Incrémentation Automatique d'ID

Bonjour,

J'ai un soucis pour incrémenter l'ID de mes objets correctement. La structure de l'ID est la suivante: "INF00000000000x" , mais il faut que la longueur totale de chaque ID soit identique (15 caractères dans mon cas). Or, avec ce que j'ai écrit ci-dessous, bâ ca mârche pô!

Code très allégé, histoire d'aller à l'essentiel :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim IDInfra as string Dim NumIDInfra as long   IDInfra = "INF000000000001"   NumIDInfra = Val(Mid(IDInfra, 11))   Worksheets("INFRA").Cells(1, 1) = Left(IDInfra, Len(IDInfra) - (Len(NumIDInfra))) & NumIDInfra   NumIDInfra = NumIDInfra + 1

---

Et je me retrouve avec des ID qui n'ont pas la même longueur, car NumIDInfra est bien converti en nombre (ici "1") mais il conserve une longueur de 4 caractères (correspondant à "0001"), donc soustrait trop de caractères dans ma formule. Je dois récupérer les 4 derniers chiffres de la variable IDInfra car je serai aussi amené à incrémenter après un ID déjà existant, pouvant parfois être déjà supérieur à 1000.

Résultat obtenu :

INF000000002
[...]
INF0000000010
[...]
INF00000000100
[...]
INF000000001000

Résultat souhaité:

INF000000000002
[...]
INF000000000010
[...]
INF000000000100
[...]
INF000000001000

Quelqu’un aurait il une solution pour parer ce problème? :mrgreen:

Bonjour,

Essaie comme ceci

Code:

---

1 2 3 4 5 6 7

Dim ID Dim Valeur   ID = Range("A1") 'à changer au besoin   Valeur = Val(Right(ID, Len(ID) - 3)) + 1 MsgBox "INF" & Format(Valeur, "000000000000")

---

Bonjour Parmi,

effectivement ca fonctionne!
Je l'ai un peu modifié, dans mon code ca donne ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim IDInfra as string Dim NumIDInfra as long   IDInfra = "INF000000000001"   NumIDInfra = Val(Right(IDInfra, Len(IDInfra) - 3))   Worksheets("INFRA").Cells(1, 1) = "INF" & Format(NumIDInfra, "000000000000")   NumIDInfra = NumIDInfra + 1

---

Merci Parmi c'est parfait! ;)

Bonjour,
Tu pouvais modifier le format de ta cellule comme suit: "INF000000000000" anisi 1 donnerait INF000000000001, 2 INF000000000002 et ainsi de suite!