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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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" a écrit dans le message de news: 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.
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" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
47a0de83$0$901$ba4acef3@news.orange.fr...
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.
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" a écrit dans le message de news: 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
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.
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.
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
Bonsoir,
Merci à vous deux. Je vais essayer de mettre en oeuvre les solutions proposées.
BH.
Bonsoir,
Merci à vous deux.
Je vais essayer de mettre en oeuvre les solutions proposées.