Discussion :

[Mmmuzik]

Bonjour,

voilà, j'ai une clé primaire alphanumérique (DEP=constante et 00000=var).
Y-a-t'il une manière simple d'incrémenté ceci : DEP00001 => DEP00002=> ... en gardant le même nombre de caractère qui est de 8 ??? J'ai bien une solution avec des IF mais je la trouve un peu longue à mon gout.
Quelqu'un aurait il une petite idée en VB ou générateur d'expression ????

Merci d'avance


Mmmuzik

[mikeGo20]

Pour une bonne compréhension, je vais décortiquer ....

Code :

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

1
2
3
4
5
6
7
8
 
Dim tmpValue as variant
 
'Extraire à partir du 4ième caractère
'Convertir en Long et Incrémenter 
tmpValue = CLng(Mid(TonNumero,4)) +1
'Extraire les 3 premiers caractères et concaténer la nouvelle valeur en format "00000"
TonNouveauNumero=Left(TonNumero,3) & Format(tmpValue,"00000")

[Mmmuzik]

un grand merci mikeGo20, effectivement c'est bien plus simple qu'avec des IF, lol, encore merci