C@thy
XLDnaute Barbatruc
Bonjour le forum,
dans le temps jadis (= avant la V2007) j'avais cette macro :
mais, évidemment ça ne marche pas avec les colonnes à 3 lettres (ex. AAA doit donner 703...)
Je suis sûre que vous avez une idée...
Merci à vous.
Bises
C@thy
dans le temps jadis (= avant la V2007) j'avais cette macro :
Code:
Sub ConvertirLettrColonne()
quest1:
If Application.ReferenceStyle = xlA1 Then
letColonne = InputBox("Indiquez la lettre de la colonne")
If Len(letColonne) > 2 Then GoTo quest1
If Len(letColonne) = 2 Then
verif_colonne = (((Asc(UCase(Left(letColonne, 1))) - 64) * 26)) + (Asc(UCase(Right(letColonne, 1))) - 64)
Else
verif_colonne = (Asc(UCase(letColonne)) - 64)
End If
End If
MsgBox verif_colonne
End Sub
Je suis sûre que vous avez une idée...
Merci à vous.
Bises
C@thy