Bonsoir , je vous remercie de votre réponse , par contre ça n'a pas marché , (je ne sais pas pourquoi!)
Juste pour rappel
je voudrais avoir un numéro de dossier qui sera incrémenté , lors d'enregistrement d'un nouveau dossier , sous la forme suivante : 201900001; 201900002;201800001 ainsi de suite , l'incrémentation est à partir de l'exercice comptable , voici ce qui j'ai fait mais j'y n'arrive pas!!!!
MERCI
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 1).Offset(1, 1).Select
i = i + 1
Loop
ActiveCell.Value = FORMULAIRE.EXERCICECOMPTBLE.Value ' L'exercice comptable '
ActiveCell.Offset(0, 1).Value = FORMULAIRE.TextBox3.Value 'L'Ecrire la désignation lors de la saisie de données '
ActiveCell.Offset(0, 2).Value = FORMULAIRE.TextBox4.Value 'Ecrire la valeur de l'emprunt en numérique '
ActiveCell.Offset(0, 3).Value = FORMULAIRE.TextBox5.Value 'Indiquer la durée d'amortissement '
ActiveCell.Offset(0, 4).Value = FORMULAIRE.ComboBox_mode.Value 'Indiquer le mode d'amortissment : amortissement constant ou par annuité constante '
ActiveCell.Offset(0, 5).Value = FORMULAIRE.TextBox7.Value ' Saisir le taux annuel d'amrortissment de l'emprunt '
If ActiveCell.Offset(-1, -1).Value = "ID" Then
ActiveCell.Offset(0, 1).Value = Range(B1) & ("00001")
End If
Unload FORMULAIRE
MsgBox ("L'enregistrment est effectué avec succés!")