colonne n-1

[wilfried]

Bonsoir a Tous.
Grace a ce code de recherche:

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 ?

 

[ZZR09]

Bonsoir Wilfried, le forum,

Si je comprends bien, tu veux concertir ColonnAdj en variable string.
Si c'est le cas :

Cstr(colonnAdj)

fera l'affaire. C correspond à la conversion et les lettres suivantes au type de variable.

A+

 

[Wilfried]

Bonsoir ZZR09, le forum.

Je souhaite convertir par Exemple :

ColonnAdj = 1 en A

Slts

 

[Hervé]

Bonsoir wilfried, zzr09, le forum

Pas sur d'avoir compris la question, car la réponse se trouve dans ton code :

colonne = Left$(Cell.Address(0, 0), (Cell.Column < 27) + 2)

cette ligne te renvoi dans la variable colonne les lettres de la colonne 1= A,27=AA...)

salut