incrémenter un numéro depuis un userform

[Vins74000]

Bonjour à tous,

étant complètement débutant en VBA, je vous remercie par avance de m'excuser si je dis de grosses conneries.

Je suis en train de construire un fichier afin de gérer l'archivage, le suivi etc ... de commandes.
J'ai, a l'aide de tuto, créé un Userform avec les données dont j'ai besoin, le bouton qui va avec etc ... mais je bloque sur une choses qui doit être très simple, mais impossible de trouver ce qu'il me faut.

Avec le userform je remplis les colonnes B,C,D,E et F pas de souci ... en revanche en colonne A, je souhaites affecter un numéro à 6 chiffres pour assurer un suivi propre.
Comment puis je remplir automatiquement ce numéro, il doit bien sur être unique et s'incrémenter de 1 à chaque nouvel enregistrement.

Un grand merci par avance pour votre aide.

 

[Hasco]

Bonjour,

Si vous n'avez pas plusieurs enregistrements à faire en une seconde vous pouvez construire un numéro à l'aide du temps actuel :

Range("A" & i )= Format(Now,"yyyymmddhhmmss")

Ou le max de la colonne + 1 :

Range("A" & i) = Application.Max(Range("A2:A1000")) + 1

où i est le numéro de ligne traité.

cordialement

 

[sylvanu]

Bonjour Vins, Roblochon,
Par exemple en faisant :

Nmax = Format(1 + Application.Max([A:A]), "000000")

On regarde le max déjà présent dans la colonne A auquel on ajoute 1, et on le met au format 6 caractères.

 

[Vins74000]

Merci!

on est d'accord que si je veux que le numéro apparaisse dans mon tableau quand je click sur mon bouton de validation, il faut que je place le code dans "commandbutton1_click()" ?

 

[sylvanu]

Avec le userform je remplis les colonnes B,C,D,E et F pas de souci

Mettez le remplissage de la cellule en colonne A au même endroit.

 

[Vins74000]

arf, desole je debutes vraiment

on en fait pas comme ca ?

 

[sylvanu]

1- Mettez du code, pas des images. ( et utilisez les balises </> pour être plus lisible )
2- Range("a") ne veut rien dire, mettez plutôt Range("a" & dlt )= nmax
3- Et tant qu'à faire pour être homogène, remplacer [A:A] par Sheets("feuil1").Range("A:A"). C'est la même chose mais Feuil1 est spécifiée comme dans le reste du code.
4- Vous pouvez supprimer tous les Sheets("feuil1") et mettre un :

With Sheets("feuil1")
'...
'...
End With

 

[Vins74000]

super, grand merci!!

je ferai attention a la forme pour les prochaines fois!