Incrémenter chaîne alpha numérique

Résolu
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -  
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -
Bon soir a tous
je cherche comment écrire en vba pour ajouter 1 a une chaine alpha numérique dans mon exemple j'ai dans cellule A74 SO-2019-009 (+1) deviend :
SO reste toujours-année en cours-010
Merci d'vance.
A voir également:

4 réponses

m@rina Messages postés 26831 Date d'inscription   Statut Contributeur Dernière intervention   11 538
 
Bonjour,

Tu peux être plus clair ? Tu veux incrémenter quoi exactement ?
le 74 ? le 009 ?

Si c'est juste le 009 il s'agit d'une incrémentation tout à fait ordinaire. En VBA, ça donne quelque chose comme ça :
Range("A1").AutoFill Destination:=Range("A1:A50"), Type:=xlFillDefault

m@rina

0
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
 
Oui
je m'excuse j'ai pas bien poser la question, ce que je veux dire c'est que j'ai dans la cellule (A74):
SO-2019-009 je veux aouter 1 en dans cellule (A74) pour qu'il deviend : SO-2019-010
L'orsque j'ecrit : [A74].Value = [A74].Value + 1 ne marche pas
Bon Soir et Merci.
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 142
 
Bonjour,

tu peux également faire avec une formule, si ta première valeur doit commencer sur la ligne 74 et commencer par le chiffre 9, colle cette formule
="SO-"&ANNEE(AUJOURDHUI())&"-"&TEXTE(9+LIGNE()-74;"000")

ou encore comme cela
="SO-"&ANNEE(AUJOURDHUI())&"-"&TEXTE(LIGNE()-65;"000")

une fois ta série réalisée, pour fixer les valeurs tu peux faire un Copier/Collage Spécial/Valeur
0
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
 
Oui
Ça va bien merci pour votre aide
Bonne journée
0