Incrémentation numéro automatique

Bonjour à toutes et tous,

sur le fichier joint, je n'arrive pas à incrémenter un numéro automatique (matricule) à chaque ouverture de mon formulaire pour alimenter ma base de donnée ......

Qq1 peut il m'aider ?

D'avance merci

Bonjour,

Est-ce-que tu as besoin de ...

=ligne()+22

En espèrant qu cela t'aide ...

pas vraiment ????

Re,

A adapter à ton code ...

Private Sub UserForm_Initialize()
Dim i As Long
nouveau = True
i = Feuil1.Cells(Application.Rows.Count, "A").End(xlUp).Row
 If nouveau = True Then matricule = Feuil1.Range("A" & i).Value + 1
End Sub

J'espère que cela pourra t'aider ...

Merci pour ton retour,

qd j'intègre ce code une erreur se produit :

Erreur d'éxécution '13':

Incompatibilité de type

erreur qui provient sur :

Private Sub CommandButton2_Click()
frmsaisie.Show
End Sub

Re,

Je ne sais pas comment tu as intégré les instructions à ton code ...

As-tu conservé la procédure UserForm_Initialize() ... ?

De mon côté, je viens de re-tester le code ... qui fonctionne ....

j'ai intégré les instructions à la suite de mon code dans mon useform

pour ne rien te cacher je ne maitrise pas tout et j'y vais à tatons, c'est mon premier essai de formulaire sous vba. Alors il est certain que je dois mal m'y prendre.

pas de doute sur ton code

RE,

Au sujet des UserForms, il existe quelques points à ne pas négliger ...

Un très bon résumé :

https://www.excel-pratique.com/fr/vba/userform.php

Ok merci pour l'aide,

je vais chercher et tout revoir

j'ai lu j'ai testé mais je cale, une petite orientation qd aux erreurs que j'ai pu effectuer ou aux oublis ???

étourderie sur nom de formulaire

Content que tu aies pu résoudre ton problème ....

Si cela peut te réconforter .... nous sommes tous passés par ces moments ...

" la tête dans le guidon ...impossible de voir la route ..."