XL 2021 Incrémentation bête et méchante...

[Constantin]

Bonjour à tous,
Dans ce mini-fichier, j'essaye d'incrémenter la cellule D1 (= A) pour qu'en "tirant" dessus je puisse établir une liste qui aille de A à plus que Z (AF par exemple)
Cela fonctionne avec les nombres mais avec l'alphabet, ça ne veut pas.
J'ai cherché, mais je n'ai pas trouvé de réponse(s). Faut-il passer par une macro ? Y a t-il une solution Excel de base ?
Si l'un de vous a une idée, j'en serai ravi !
Bon week-end !

 

[sylvanu]

Re,
Une autre approche, si le problème est de trouver le N° de colonne en VBA, il suffit de faire :

NumCol = Range("AA1").Column

NumCol renvoie le N° de colonne correspondant à AA1.
Le max sera pour Range("XFD1").Column qui donnera 16384.

 

[dysorthographie]

Bonsoir,

Function Icrementalpha(Optional Init As String, Optional ByVal Col As Integer = 0) As String
    Dim T As String: T = " " & Init
    Select Case Mid(T, Len(T) - Col, 1)
        Case " ": Mid(T, Len(T) - Col, 1) = "A"
        Case "Z"
            Mid(T, Len(T) - Col, 1) = "A"
            T = Icrementalpha(Trim(T), Col + 1)
        Case Else: Mid(T, Len(T) - Col, 1) = Chr(Asc(Mid(T, Len(T) - Col, 1)) + 1)
    End Select
    Icrementalpha = Trim(T)
End Function
Sub test()
Debug.Print Icrementalpha("AZ")
End Sub

 

[Cousinhub]

Hi,
Juste pour confirmer que ma solution était la bonne...
Et que mettre toute autre réponse comme "solution" revenait à un "hold-up"
à moins que @Constantin ne prouve le contraire, devant un jury indépendant
mais comme il ne sait déjà pas trop ce qu'il veut, le délibéré me semble délicat...
Bonne nuit à tous, et bon vote municipal à tous, pour demain