Incrementer un code comportant des lettres et des chiffres.

[jeanphi13]

Bonjour a tout le monde,
Voila, apres avoir longtemps cherche et dans ma tete et sur ce forum, je suis toujours perdu.

Ma question est toute simple: peut-on incrementer un code, qui est fait de lettres et chiffres??

Exemple: le premier code est "GGT-DE0001"

Je voudrais l'incrementer pour donner "GGT-DE0002"

Merci a vous tous pour ce petit renseignement!!

JP (desole pour les accents, mais etant en Angleterre j'ai pas de clavier azerty!!)

 

[Pierrot93]

Re : Incrementer un code comportant des lettres et des chiffres.

Bonsoir JeanPhi

Si j'ai bien compris ta question, sur le bord inférieur droit de ta cellule, petit carré noir, tu tires vers le bas avec le bouton droit de la souris, quand tu relache, dans le menu contextuel tu as le choix "incrémenter une série".

bonne soirée
@+

 

[Tibo]

Re : Incrementer un code comportant des lettres et des chiffres.

Bonjour et bienvenue,

Par formule, si tu commences en ligne 1, tu peux essayer avec ceci :

="GGT-DE"&TEXTE(LIGNE();"0000")

Essaye et dis nous

@+

Edit : salut Pierrot : J'ai cherché une solution de formuliste alors qu'il y avait tellement plus simple.

@+

 

[Catrice]

Re : Incrementer un code comportant des lettres et des chiffres.

Bonsoir à tous,

Encore plus simple, avec le clic gauche, étirer la selection vers le bas en tirant sur le petit carré noir ....

 

[jeanphi13]

Re : Incrementer un code comportant des lettres et des chiffres.

Merci Pierrot93 et Tibo pour la reponse rapide, mais...

En fait je vous ai pas tout explique. Je ne peux pas juste selectionner le coin en bas a droite de la cellule car j'ai cree un bouton+code vba qui va gerer l'insertion d'un nouvelle ligne.

Cette nouvelle ligne faisant partie d'une BDD, classee selon mon fameux code, je voudrais qu'a chaque fois que j'insere une nouvelle ligne, celle ci comporte mon code incremente.

Ai-je ete assez clair??

Merci encore et @+!

 

[Pierrot93]

Re : Incrementer un code comportant des lettres et des chiffres.

Un code vba alors, si ta 1ère cellule en A1, incrémente A2 :

Range("A2").Value = Mid(Range("A1").Value, 1, 6) & Format(Mid(Range("A1").Value, 7, 4) + 1, "0000")

bonne soirée
@+


Edit bonsoir Tibo et Catrice

 

[jeanphi13]

Re : Incrementer un code comportant des lettres et des chiffres.

Bon alors en fait j'ai encore du mal, faut dire que je suis novice.

Le probleme est que pour inserer une nouvelle ligne je dois d'abord reperer la derniere de mon tableau, et il faut savoir que quand j'insere une nouvelle ligne, celle-ci ne s'insere pas tout de suite apres, mais 3 lignes apres(offset 3).

J'ai ecrit ce bout de code, qui bien sur ne marche pas!!

**********************************************************

Range("B65536").End(xlUp).Offset(3, 0).Activate
col = ActiveCell.Column
row = ActiveCell.row

Range("B65536").End(xlUp).Offset(0, 0).Activate
colbis = ActiveCell.Column
rowbis = ActiveCell.row


Range("col & row").value = Mid(Range("colbis & rowbis").value, 1, 6) & Format(Mid(Range("colbis & rowbis").value, 7, 4) + 1, "0000")


**********************************************************


Je pense que j'ai fait un truc tres tres lourd, mais bon........

Merci encore pour votre coup de main qui m'aide vraiment!

JP

 

[Pierrot93]

Re : Incrementer un code comportant des lettres et des chiffres.

Re

essaye peut être comme ceci, en remplacant ta variable "row" par "taligne", "Row" étant déjà une propriété vba :

Cells(Taligne, col).value = Mid(Cells(rowbis, colbis).value, 1, 6) & Format(Mid(Cells(rowbis, colbis).value, 7, 4) + 1, "0000")

a tester...

@+

 

[jeanphi13]

Re : Incrementer un code comportant des lettres et des chiffres.

OK, merci, je testerais ca un peu plus tard, plus le temps!!

Encore merci et a bientot, JP