colonne n-1

wilfried · 18 Octobre 2005

Bonsoir a Tous.
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 ?

ZZR09 · 18 Octobre 2005

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 · 18 Octobre 2005

Bonsoir ZZR09, le forum.

Je souhaite convertir par Exemple :

ColonnAdj = 1 en A

Slts

Hervé · 18 Octobre 2005

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

colonne n-1

wilfried

Guest

ZZR09

XLDnaute Occasionnel

Wilfried

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires