Suite de lettre

H

hoerwind

XLDnaute Barbatruc

• 19 Mai 2010

• #2

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)

 

Vote positif 0 Vote négatif

dudumomo

XLDnaute Occasionnel

• 19 Mai 2010

• #3

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 ?

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 19 Mai 2010

• #4

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2010

• #5

Re : Suite de lettre

bonjour dudumomo

Salut hoerwind 🙂

Avec un formule personnalisée

 

Pièces jointes

• dudumomo.xls

  22.5 KB · Affichages: 106
• dudumomo.xls

  22.5 KB · Affichages: 107
• dudumomo.xls

  22.5 KB · Affichages: 108

Vote positif 0 Vote négatif

dudumomo

XLDnaute Occasionnel

• 19 Mai 2010

• #6

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.

 

Vote positif 0 Vote négatif

dudumomo

XLDnaute Occasionnel

• 19 Mai 2010

• #7

Re : Suite de lettre

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2010

• #8

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

 

Pièces jointes

• dudumomo.zip

  6.8 KB · Affichages: 46
• dudumomo.zip

  6.8 KB · Affichages: 45
• dudumomo.zip

  6.8 KB · Affichages: 43

Vote positif 0 Vote négatif

dudumomo

XLDnaute Occasionnel

• 21 Mai 2010

• #9

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 ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Mai 2010

• #10

Re : Suite de lettre

Re

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

Vois si cela va mieux ainsi

 

Pièces jointes

• dudumomo.zip

  9.4 KB · Affichages: 37
• dudumomo.zip

  9.4 KB · Affichages: 42
• dudumomo.zip

  9.4 KB · Affichages: 40

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 21 Mai 2010

• #11

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é !

 

Pièces jointes

• IncrementationVariableLetrresEn-TêtesColonnes.zip

  11.2 KB · Affichages: 51

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Mai 2010

• #12

Re : Suite de lettre

Bonsoir à tous

Une généralisation...

Code:

[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

 

Pièces jointes

• Décalage_3506.xls

  28 KB · Affichages: 80

Vote positif 0 Vote négatif