[VBA-E] Adresse de colonne

Version imprimable

Bonjour,

Je cherche à définir l'adresse de la colonne contenant une cellule dont la valeur est "Total".

J'ai fait le programme suivant :
Code:

1 2 3 4 5 6 7 8 With Rows("4:4") Set c = .Find("Total") num = c.Address(columnabsolute) End With NumCol = Cells(5, num).Column Tot = IIf(NumCol > 26, Chr(64 + NumCol \ 26) & Chr(64 + NumCol Mod 26), Chr(64 + NumCol)) Totl = Range("" & Tot & "4").CurrentRegion.Rows.Count
LA valeur de l'adresse me ramène $H4 alors que je voudrais ramener, soit H, soit 4, pour l'utiliser par la suite et calculer le nombre de ligne.

Merci pour votre aide,

LeRico

J'ai trouvé.

Pour ceux que ça intéresse :

Code:

1
2
3
4
5
6
    With Rows("4:4")
        Set c = .Find("Total")
        num = Mid(c.Address(columnabsolute), 2, 1)
    End With
 
    Totl = Range("" & num & "4").CurrentRegion.Rows.Count

A+

14/12/2006, 11h43
SfJ5Rpw8
ce n'est pas la peine de jouer avec les fonctions de chaînes de caractéres... find te renvoi un "range" et tu as donc la possibilité d'accéder au propriété column ou row de celui-ci..
Code:

1 2 num = c.Column