Suite de lettre

[dudumomo]

Bonjour à tous
J'essaye d'effectuer une suite de lettre du type:
AF --> AM (Soit +7)
AH --> AO (+7)
etc...

J'ai une 30taine de graph à faire avec chacun une 10zaine de série. Je voulais me simplifier la tache en les copiant et en changeant seulement les colonnes à prendre en compte (Graph issu d'un même tableau avec une 100taine de colonnes), au lieu de directement sélectionner les bonnes colonnes.

J'ai commencé à écrire la suite sur papier, mais fiou, ca fait un peu long surtout quand je pense qu'il doit y avoir une solution.

Une idée comment faire ?

Je vous remercie

 

[hoerwind]

Re : Suite de lettre

Bonjour,

A1 : AF
B1 (ou A2) : =GAUCHE(A1)&CAR(CODE(DROITE(A1))+1)
copier cette formule vers la droite (ou vers le bas)

 

[dudumomo]

Re : Suite de lettre

Merci.
=GAUCHE(D1)&CAR(CODE(DROITE(D1))+7) fonctionne, mais ne fonctionne que pour AA à AZ.
Si je commence ma suite par A, cela me donne AH, alors qu'il faudrait H
Si je commence par AZ, cela me donne Aa.

Comment résoudre cela ?

 

[hoerwind]

Re : Suite de lettre

Re,

J'essaye d'effectuer une suite de lettre du type:
AF --> AM (Soit +7)
AH --> AO (+7)
etc...

Il me semble que c'est ce que fait la formule proposée.
Si ce n'est pas le résultat souhaité il serait à conseiller de reposer la question de façon à ce que la formule réponde à ton attente.

Un exemple en pièce jointe reprenant tous les cas de figure, ainsi que les résultats à obtenir, facilitera certainement la compréhension du problème.

 

[pierrejean]

Re : Suite de lettre

bonjour dudumomo

Salut hoerwind 🙂

Avec un formule personnalisée

 

[dudumomo]

Re : Suite de lettre

Re,
Je reformule :merci:

J'aimerai effectuer une suite de lettre de la forme Lettre +7
Ainsi, la suite sera de cette forme:
A --> H --> O --> V --> AC --> AJ --> AQ --> AX --> BE --> etc...

Merci de votre aide.

 

[dudumomo]

Re : Suite de lettre

Bonjour pierrejean,
Je n'ai pas compris comment tu as fait.
Pourrais tu m'expliquer s'il te plait ?

 

[pierrejean]

Re : Suite de lettre

Re

J'ai créée un formule personnalisée nommée suite
Il suffit d'ecrire le debut de la serie ,puis d'ecrire la fonction serie('le code de la cellule precedente') en dessous et enfin de tirer la formule vers le bas
Si tu souhaites partir d'un seul caractere il faudra que je revoie la formule ,mais je pense que tu peux prendre ce debut en charge

 

[dudumomo]

Re : Suite de lettre

Merci pierrejean.
J'ai fait à la main la suite à 1 lettre.
En revanche, il y a un problème avec ta suite, a chaque changement de lettre en guise de dizaine (Donc le B de BA), il y a une distortion de 1.
Exemple:
BS passe bien à BZ (+7)
mais BT passe à CB (+8) et non CA

Une idée ?

 

[pierrejean]

Re : Suite de lettre

Re

OK Je n'avais pas vérifié ce point

Vois si cela va mieux ainsi

 

[hoerwind]

Re : Suite de lettre

Re, salut pierrejean,

En pièce jointe une proposition d'une petite formule toute simple qui répond à une question qui me semblait au premier abord fort compliquée.

Pour le plaisir j'y ai ajouté une petite contrainte : rendre variable le pas de l'incrémentation.
Merci pour la question, je me suis bien amusé !

 

[ROGER2327]

Re : Suite de lettre

Bonsoir à tous

Une généralisation...

[COLOR="DarkSlateGray"][B]Function suivre$(txt$, dec&)
Dim vl&, i&
   For i = 1 To Len(txt)
      If Mid$(txt, i, 1) Like "[A-Z]" Then vl = vl * 26 + Asc(Mid$(txt, i, 1)) - 64
   Next i
   If vl > -dec Then
      vl = vl + dec
      Do While vl
         suivre = Chr(((vl - 1) Mod 26) + 65) & suivre
         vl = (vl - 1) \ 26
      Loop
   End If
End Function[/B][/COLOR]

ROGER2327
#3506

Mercredi 4 Merdre 137 (Nativité de Saint Henri Rousseau, douanier, SQ)
2 Prairial An CCXVIII
2010-W20-5T23:34:48Z