W
wilfried
Guest
Bonsoir a Tous.
Grace a ce code de recherche:
Ma question comment transformer colonAdj en Lettre ?
Grace a ce code de recherche:
Code:
Sub col()
Dim RechString As String
Dim Posi As Byte
Dim Cell As Range
For Each Cell In Range('A1:F3')
RechString = Cell.Text
Posi = InStr(RechString, 'AA')
If Posi > 0 Then
colonne = Left$(Cell.Address(0, 0), (Cell.Column < 27) + 2)
colonAdj = Cell.Column - 1
MsgBox colonAdj
End If
Next
End Sub
Ma question comment transformer colonAdj en Lettre ?