Discussion :

[Alexiis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[parmi]

Bonjour,

Essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Alexiis]

Bonjour Parmi,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Invité]

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