Intitier un compteur dans un formulaire

Le
Bruno RCSC
Bonsoir,

Win XP, Excel 2002.

Lors de la création d'un userform, je voudrais savoir comment doit on
procéder pour :
- qu'un champ référence est par exemple 2008/001 pour première valeur
- et lors de l'enregistrement suivant la référence soit égale à 2008/002 et
ainsi de suite.

Je ne "maîtrise" que :
sheets("2008").cells(ligne,1)=Me.Numdeladde
Je saisis donc manuellement le numéro de la demande.

Merci pour votre aide.

BH.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5285331
Bonsoir.
Si j'ai bien compris, tu cherches à créer un identifiant unique. La macro
ci-dessous doit être utilisée une fois pour créer le nom défini qui
contiendra l'identifiant :

Sub Initialisation()
ActiveWorkbook.Names.Add "Ref", "2008/001", False
End Sub

La macro ci-dessous incrémente ce numéro :

Sub Increment()
Tablo = Split([Ref], "/")
If Year(Date) <> CInt(Tablo(0)) Then
ActiveWorkbook.Names.Add "Ref", Year(Date) & "/001", False
Else
Tablo(1) = Format(CInt(Tablo(1)) + 1, "000")
ActiveWorkbook.Names.Add "Ref", Join(Tablo, "/"), False
End If
Var = [Ref]
End Sub

Cordialement.
Daniel
"Bruno RCSC" 47a0de83$0$901$
Bonsoir,

Win XP, Excel 2002.

Lors de la création d'un userform, je voudrais savoir comment doit on
procéder pour :
- qu'un champ référence est par exemple 2008/001 pour première valeur
- et lors de l'enregistrement suivant la référence soit égale à 2008/002
et ainsi de suite.

Je ne "maîtrise" que :
sheets("2008").cells(ligne,1)=Me.Numdeladde
Je saisis donc manuellement le numéro de la demande.

Merci pour votre aide.

BH.




isabelle
Le #5285311
bonjour Bruno,

tu pourrais par exemple avec Insertion, Nom, Définir
créer 2 nom par exemple
NoDate = "2007/"
et
No = 0
et lors de l'initialisation du userform :

Private Sub UserForm_Initialize()
x = [No] + 1
Names("No").Delete
Names.Add Name:="No", RefersToR1C1:=x
textBox1 = [NoDate] & Format([No], "000")
End Sub

isabelle

Bonsoir,

Win XP, Excel 2002.

Lors de la création d'un userform, je voudrais savoir comment doit on
procéder pour :
- qu'un champ référence est par exemple 2008/001 pour première valeur
- et lors de l'enregistrement suivant la référence soit égale à 2008/002 et
ainsi de suite.

Je ne "maîtrise" que :
sheets("2008").cells(ligne,1)=Me.Numdeladde
Je saisis donc manuellement le numéro de la demande.

Merci pour votre aide.

BH.




Bruno RCSC
Le #5146141
Bonsoir,

Merci à vous deux.
Je vais essayer de mettre en oeuvre les solutions proposées.

BH.
Publicité
Poster une réponse
Anonyme