Alimentation auto de texbox
amram.a
Messages postés
58
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
bonjour le forum
SVP,
J'ai un USF qui me permet d'alimenter un tableau. Je souhaiterais qu'à chaque utilisation une référence automatique soit attribuée dans TextBox27 mais avec un format spécifique.
Exemple: (01CIV0001) ainsi de suite
merci à touts
SVP,
J'ai un USF qui me permet d'alimenter un tableau. Je souhaiterais qu'à chaque utilisation une référence automatique soit attribuée dans TextBox27 mais avec un format spécifique.
Exemple: (01CIV0001) ainsi de suite
merci à touts
2 réponses
-
Bonjour,
une référence automatique soit attribuée dans TextBox27
Certes, mais en partant de quoi?-
merci f894009 de te penché sur mon sujet
je veux qu'a chaque identification, le numéro change avec la suite de la dernière identification.
voilà le code que j'ai inscris
Private sub UserForm_Activate() 'Date et heure Label75.Caption = "Le : " & Format(Now(), "dd mmmm yyyy") & " il est : " & Format(Now(), "hh : mm: ss") TextBox1.Value = Format(Now, "dd/mm/yyyy") TextBox27.Value = Format(Val(Max + 1), "01CIV000") End Sub
soit (01CIV001-2017) ; (01CIV002-2017) ; (01CIV003-2017) ainsi de suite
merci de m'aidé
voir pièce jointe]
https://www.cjoint.com/c/GDskSzBMiNr
-
-
TextBox27 = "01CIV-" & Format(Val(Max + 1), "0000") & Format(Now(), "-yy")
