Bonjour,
Bonne année à tous.

Alors pour ta source, pas mal surtout en mode fichier.
Il est vrai qu'une gestion base de donnée, aurait été plus avantageux pour toi, surtout pour la gestion.
Lorsque tu arriveras à une centaine de devis, ça va ramer à l'ouverture et tout le reste.
Sinon dans l'ensemble c'est un beau projet.
A continuer.

@++

Bonjour

je te remercie.
Bonne continuation
a++

Bonjour,
Evite Les commentaires en anglais.
On n'est sur un site ou la plupart ne comprennent pas l'anglais.

Bonjour et meilleurs à tous.

Ce qui me changrine, ceux sont les commentaires en anglais!
donc suppose que le post provient du web en général.

Bonjour Oulipan,

le fait de crée part ton programme la direction du dossier ainsi que les fichiers, t'éviteront je pense
beaucoup de problème lors d'une distribution à tiers ou bien même ici sur le site, pour nous.

Tu dois livrer un code sur lequel, l'utilisateur n'a pas à intervenir pour mettre à telle place, un dossier ou fichier
C'est à toi de le faire.

Quand tu conçois un logiciel, progiciel ou autre, tu dois toujours veiller à ce que tous les fichiers et dossiers et autres fichiers qui conduisent au bon fonctionnement du programme soient livrés dans un premier tant avec l'exécutable, mais aussi que leurs destinations y soient placés directement sans passer par l'intervention du tiers détenteur.

Si tu as besoin d'aide, contact moi.
Bonne continuation

Bonjour,

Le commentaire sur ton autre source ne pas servi du tout, car e répéte les mêmes erreurs.

Bonjour,

L'idée en règle générale est bonne.
Là ou ça coince pas mal c'est le fouillis dans le code.
Aucune indentation au niveau du code.

1ere erreur au lancement du prog =>dans Form_Load= fic = Left(CurDir, 1) + ":\vbtxt\math\num70-99\"

C'est pas à nous de placer le fichier à la racine ( mauvais choix)
C'est à toi de créer le placement de ce fichier:
Solution

'//dans un module======================================
Public Function FileExist(sFileN As String) As Boolean
    Dim tmpRv As Long
    On Error Resume Next
    tmpRv = GetAttr(sFileN)
    If Err Then
        FileExist = False
    Else
        FileExist = True
    End If
End Function

'//dans la feuille principale======================================
Private Sub Form_Load()
On Error Resume Next '//traitement d'erreur sans arret du prog

Dim mvSourceFile$ '//l'origine du fichier
Dim mvDestFile$ '//destination du fichier donc le chemin que tu souhaites dans un nouveau dossier
    mvSourceFile = App.Path & "\lficlaslecnb.txt"
    mvDestFile = App.Path & "\Datas\" & "lficlaslecnb.txt"


   If FileExist(mvDestFile) = False Then '//test l'existence du fichier, si existe pas alors on le créé:
      '//creation d'un nouveau dossier nommé Datas dans le app.path
       MkDir App.Path & "\Datas"
      
      '//copie le chemin d'origine vers le nouveau dossier Datas.
      FileCopy mvSourceFile, mvDestFile
  
   End If

fic = mvDestFile

...
...
...
Open fic For Input As #1
    Input #1, nser
    Do Until n = nser
       Input #1, chxs(n), seri(n)
       n = n + 1
    Loop
Close #1
n = 0
fait = ""
end sub

après verifie les fic dans le prog pour leur reinfecter le bon chemin.

Autant pour moi Sechaud.
Viens de pratiquer quelques tests de lecture et il est vrai que cela fonctionne à merveille.

Donc milles excuses Sechaud.

Bravo, bon travail, simple mais efficace.

@+

Bonjour,
L'idée est bonne dans son contexte théorique, mais en pratique cela l'est moins.
Un fichier texte???, pas pratique, difficile à maintenir.
Si ton fichier contient 1 seule erreur, ton programme plante.

Une option, le format XML, c'est mieux, sans bavure, vu que tu ne souhaites pas utiliser les bases de données.

Attend la suite...
@ +

Bonjour,

Que de code pour un résultat médiocre!
Créer des fonctions de dessin dans un module non dans la feuille.
Comme dit Renfield, chaque variable doit etre déclarée explicitement.

Dim Ax1, Ay1, Bx1, By1, Cx1, Cy1 As Single
devient
! = as single
& = as long
% =as integer
# = as double

Dim Ax1!, Ay1!, Bx1!, By1!, Cx1!, Cy1!
Bon courage.
@+