Suite de lettre de l'alphabet dans une cellule

Bonjour,

Je cherche à créer une formule qui me permettra de partir d'une cellule dans laquelle il y a des lettres AY et ajouter 3 à cette cellule pour obtenir BB. C'est une suite de l'alphabet, il doit y avoir une formule mais je ne la connais pas.

(exemple: passer de AY à BB puis à BE puis à BH...)

Merci pour votre aide.

Bien cordialement,

Noé

bonsoir,

Voici 2 fonctions personnalisées -à mettre dans un module standard (Module1)- qui font ce que tu demandes :

Function COW(ByVal X&) As String
Dim i&, j&, k&
X = X - 1
i = Int(X / 26)
COW = Chr$(65 + i) & Chr$(65 + X - i * 26)
End Function

Function UCOW(z$) As Integer
Dim i%, j%, k%
j = (Asc(Left(z, 1)) - 65) * 26
k = (Asc(Right(z, 1)) - 65)
UCOW = j + k + 1
End Function

UCOW décode un code de 2 lettres

COW recode jusqu'à "ZZ"

Si A1 contient "AY" on écrira :

=COW(UCOW(A1)+3)

...pour obtenir le résultat incrémenté de 3...

A+

Bonjour.

Ci-joint une résolution de ton problème.

Cordialement

Bonjour,

une p'tite démonstration toute simple (cf ligne n°6 CL = …) :

Sub Demo()
    CL$ = "AY"

    For N% = 1 To 3
        M$ = M$ & vbLf & N & " :   " & CL
        CL = Split(Cells(1, CL).Offset(, 3).Address, "$")(1)
         M = M & "  " & Chr$(26) & "  " & CL & vbLf
    Next

    MsgBox M
End Sub