Discussion :

[lerico]

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 :

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

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

[lerico]

J'ai trouvé.

Pour ceux que ça intéresse :

Code :

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

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+

[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 :

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

1
2
 
num = c.Column