Incrémenter sur un format alpha numérique. RESOLU

[T77XDD]

Bonjour,
je cherche à incrémenter une cellule en créant une nouvelle ligne, la première de la ligne avec une incrémentation de "-1" à partir de "F 21345".
Pour le moment j'en suis à incrémenter à partir d'un nombre mais pas d'une formule alpha numérique.
Merci pour votre aide.

 

[Misange]

Re : Incrémenter sur un format alpha numérique.

Bonjour
Quel est le rapport entre le classeur posté et la question ?
Un classeur exemple, ça sert à montrer que ce que l'on souhaite, là,je ne vois aucune formule, juste 20, 19

=GAUCHE(A1;1)&DROITE(A1;NBCAR(A1)-1)-1
à tirer vers le bas avec ta première valeur alpha en A1

 

[T77XDD]

Re : Incrémenter sur un format alpha numérique.

Re,
Désolé, j'avais enregistré le fichier sans que le module "Ajout" soit créé.
Dans la nouvelle feuille dans le tableau gauche on incrémente de -1 une valeur numérique,
le but est d'obtenir le résultat du tableau droit (F 21345 -> F21344 -> F21343 etc)
Merci.

 

[david84]

Re : Incrémenter sur un format alpha numérique.

Bonjour, Misange,
Tes explications ne sont pas très claires...à tester :

=GAUCHE(E$5;1)&DROITE(E$5;5)*1-LIGNE(1:1)+1

A+

 

[T77XDD]

Re : Incrémenter sur un format alpha numérique.

Merci pour cette solution,

ce que je recherche c'est: en cliquant sur "ajout", sur la ligne en dessous de la dernière ligne, dans la colonne 1, s'écrive la valeur de la ligne supérieure -1 d'où F 21345, F 21344 etc et que la cellule suivante soit sélectionnée (date) pour continuer la saisie.

 

[T77XDD]

Re : Incrémenter sur un format alpha numérique.

Je suis coincé là, un coup de main?
Merci.

 

[david84]

Re : Incrémenter sur un format alpha numérique.

Bonjour,
un essai :

Sub toto()
Dim C As Range, DerLig As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Set C = Range("A" & DerLig).Offset(-1)
If IsNumeric(C) Then _
Range("A" & DerLig) = Range("A" & DerLig - 1).Value - 1
Range("B" & DerLig).Activate
End Sub

Utilisation d'un format de cellule pour la plage A5:A10.
A+

 

[Misange]

Re : Incrémenter sur un format alpha numérique.

Bonjour
Tu n'as pas besoin de macro pour cela, utilise plutot la fonctionnalité des tableaux excel
Ce lien n'existe plus
voir exemple en PJ
Il te suffit d'écrire n'importe quoi en F6 ou G6 pour que le tableau augmente d'une ligne et que la formule de la colonne E se mette à jour.

 

[T77XDD]

Re : Incrémenter sur un format alpha numérique.

Bonjour,
merci pour le code, j'ai mis un bon moment pour comprendre que le format avait été modifié,
en-suite j'ai transposé les formules sur mon classeur, maintenant tout est nickel.

 

[Misange]

Re : Incrémenter sur un format alpha numérique. RESOLU

Bon dommage, je ne saurai même pas si tu as testé ce que je t'ai proposé. C'est toujours un peu frustrant...

 

[T77XDD]

Re : Incrémenter sur un format alpha numérique. RESOLU

Bonsoir, j'ai regardé mais n'ai pas trouvé dans les pj. Désolé.

 

[Misange]

Re : Incrémenter sur un format alpha numérique. RESOLU

Exact (tu pouvais le dire !)