Lettre de la colonne d'une cellule. [FAQ]

[Pierre Fauconnier]

Pour une plage nommée

Code :

Split(Range("Plage").Address(1, 0), "$")(0)

Pour un objet Range

Code :

Split(MaPlage.Address(1, 0), "$")(0)

[ouskel'n'or]

On peut aussi simplifier

Code :

1
2
3
Set MaPlage = Range("A1:Z5") ' MaPlage.address => $A$1:$Z$5
NoCol = Split(MaPlage.Address, "$")(1)
MsgBox NoCol

[Pierre Fauconnier]

Salut Joël,

Tu as raison. Pour ma part, je suis d'accord sur

Code :

Split(MaPlage.Address, "$")(1)

Mais on peut ajouter un petit mot d'explication pour la FAQ? C'est peut-être plus sympa que de balancer le code sans commentaires...

Qu'en pensez-vous?

[ouskel'n'or]

On peut en effet expliquer ce que fait Split

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MaPlage As Range, Tablo As Variant, i As Byte
    Set MaPlage = Range("A1:AH25") ' MaPlage.address => $A$1:$AH$5
    Tablo = Split(MaPlage.Address, "$") 'convertit MaPlage.Adress en tableau
    'donne
        'Tablo(0) = ""
        'Tablo(1) = "A"
        'Tablo(2) = "1:"
        'Tablo(3) = "AH"
        'Tablo(4) = "25"
    'Vérification
    For i = 0 To UBound(Tablo)
        MsgBox Tablo(i)
    Next
    'Et donc...
    ColonneEnLettre = Split(MaPlage.Address, "$")(1) '=> "A"

Quand on affecte Split() à une variable, la variable est convertie en tableau
mais si l'on effecte Split(...)(Index) à une variable, on obtient la valeur correspondant à l'index du tableau Split(...)

De la même manière, on peut obtenir le No de colonne pour un range isolé.
Range(...).Address sans paramètre fournit une adresse absolue ($NoCol$NoLigne)
Donc

Code :

1
2
3
4
Set LeRange = Range("T12") 'Range
'ou 
Set LeRange = Cells(12, 20) 'Range
NoCol = Split(LeRange.address,"$")(1) '=> "T"

ou, sans instancier LeRange

Code :

1
2
3
4
LeRange = Range("T12").address ' String => "$T$12"
'ou
LeRange = Cells(12, 20).address ' String => "$T$12" 
NoCol = Split(LeRange,"$")(1) '=> "T"

Mais est-ce bien ce que tu demandes ?
A+

[illight]

Envoyé par ouskel'n'or

Code :

    ColonneEnLettre = Split(MaPlage.Address, "$")(1) '=> "AH"

Heuu pourquoi ça renvoie 'AH' ?? ça renvoie pas A plutot a ce moment la ? ou alors je ocmprend pas pourquoi ça renvoie AH

[ouskel'n'or]

Tu as raison, ça demandait une relecture. Merci illight.

[ouskel'n'or]

Pour épuiser le sujet avec Office 97, version dans laquelle Split n'existe pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub ColonneEnLettre97()
Dim Adresse As String, separateur, LetCol As String, NoLigne As Long
    separateur = "$"
    Adresse = Cells(15, 57).Address
    LetCol = Spliit(Adresse, separateur)(1)
    MsgBox LetCol
End Sub
 
Function Spliit(Adresse, separateur)
Dim Tableau(), Phrase, i As Byte, j As Byte
    Phrase = Adresse
    i = 1
    j = 0
    Do While i < Len(Phrase)
        If Mid(Phrase, i, 1) = separateur Then
            ReDim Preserve Tableau(j)
            Tableau(j) = Left(Phrase, InStr(Phrase, separateur) - 1)
            Phrase = Right(Phrase, Len(Phrase) - InStr(Phrase, separateur))
            j = j + 1
            i = 0
        End If
        i = i + 1
    Loop
    ReDim Preserve Tableau(j)
    Tableau(j) = Phrase
    Spliit = Tableau
End Function