Trouver la dernière colonne non vide d'unr plage

[white-spirit]

Bonjour Le Forum,

je coinçe sur la recherche suivante:

dans le déroulement d'une macro, je veux identifier la dernière colonne non vide d'une plage ( pas forcément remplie).
Concrètement, la plage est G5:AT124

La dernière colonne contenant qq chose peut aller de H à AT, c'est donc celle-ci que je veux trouver ...

Je précise: il y a des données ailleurs, tout autour de cette plage, sans qu'elles soient concernées par ma recherche.

Quelqu'un pourrait-il m'aider à trouver une solution.

Cordialement, merci d'avance à tous.

WS

 

[Pierrot93]

Re : Trouver la dernière colonne non vide d'unr plage

Bonjour,

regarde peut être ceci :

Dim x As Long
x = Range("G5:AT124").Find("*", Range("AT124"), xlValues, , 2, 2, 0).Column
MsgBox x

bon après midi
@+

 

[white-spirit]

Re : Trouver la dernière colonne non vide d'unr plage

Bonsoir Pierrot,

ça fonctionne parfaitement, sauf si la plage est totalement vide, mais j'ai trouvé une astuce : si la 1ere colonne ne contient pas de "non vide", je skippe l'opération.

Merci de ta rapidité, efficace comme toujours !

Cordialement

WS

 

[Pierrot93]

Re : Trouver la dernière colonne non vide d'unr plage

Re,

AArf oui si il y a une possibilité que la plage soit vide :

Dim x As Range
Set x = Range("G5:AT124").Find("*", Range("AT124"), xlValues, , 2, 2, 0)
If Not x Is Nothing Then MsgBox x.Column