Discussion :

[bbdz13]

Bonjour à tous,

Débutant en VBA sous Excel, je dois créer un formulaire dans lequel j’associe un numéro d’identification aux données entrées dans ce formulaire.

Je m’explique :
- si j’ouvre le formulaire et que je valide par OK ce que j’y entre, alors le numéro sera jjmmaaaa-xx (jjmmaaaa pour la date et xx pour le numéro associé à mes entrées)
- tandis que si j’ouvre le formulaire mais que je ne valide pas mes entrées (j’annule mes entrées), alors le numéro xx = 01 ne sera pas enregistré et sera de nouveau disponible pour une prochaine utilisation du formulaire

Mon début de code est le suivant :

Private Sub Calendar_Click()

Dim NumeroXX As Integer

NumeroEnregistrement.Value = Format(Calendar.Value, "ddmmyyyy") & "-" & NumeroXX

End Sub

Mon souci est que je n’arrive pas à créer ce compteur à mettre derrière ma date (=NumeroXX) du moins à faire en sorte que chaque numéro d’enregistrement soit unique et qu’un numéro soit réutilisable si je ne valide pas mon formulaire

D’avance merci !

[blepy]

Il faut, à mon avis, passer par le stockage de cette variable dans une cellule d'une feuille Excel du même classeur, feuille qui peut être masquée.

A+

[Gorfael]

Salut bbdz13

NumeroEnregistrement = Format(Calendar, "ddmmyyyy") & "-" & NumeroXX
Si j'ai bien compris, numeroxx doit être unique
il faut donc que tu travailles avec
cint(right(NumeroEnregistrement, len(NumeroEnregistrement)-9))
et tu le compares aux numérosxx existants (avec le même traitements
Faut peut-être charger les numèros dans un tableau de 1 à numéro max, avec une indication des numéros pris.
A+