Discussion :

[rossemma]

bonjour,

J'ai un peu bidouillé le code ci-dessous pour afficher dans un tableau les références d'une cellule.
Mais je voudrais afficher uniquement la lettre de la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test2()
 
    Dim i As Byte
    Dim c As Range
 
    For i = 3 To 16
        Set c = Worksheets("MONTH").Range("1:1").Find(sh_parameters.Range("O" & i), LookIn:=xlValues, LookAt:=xlWhole)
        Range("P" & i) = c.Offset(0, 0).Address(ColumnAbsolute:=False, rowabsolute:=False)
        Range("q" & i) = c.Offset(0, 1).Address(ColumnAbsolute:=False, rowabsolute:=False)
        Range("r" & i) = c.Offset(0, 2).Address(ColumnAbsolute:=False, rowabsolute:=False)
        Range("s" & i) = c.Offset(0, 3).Address(ColumnAbsolute:=False, rowabsolute:=False)
    Next
    Set c = Nothing
 
End Sub

Merci d'avance pour votre aide.

[riaolle]

Bonjour,

Une petite recherche sur le net te donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

colonne = Split(c.Address, "$")(1)

On "coupe" l'adresse en prenant $ comme séparateur. Avec $A$1, cela donne Rien, A, 1. Puis on prend le deuxième élément de cette liste, soit l'élément n°1 (le premier élément étant l'élément n°0).

[rossemma]

un grand merci