Offset

[thombar]

Bonjour cher forum,

Je voudrais savoir comment faire pour appeler une cellule conjointe lorsque les lignes ont été filtrées.
Par exemple une macro a filtré et laissé en visibilité les lignes 1,2,3,4,10,12,13 et je souhaite passer de la ligne 10 à la ligne 4 par le biais de l'offset. Actuellement cette commande passe d'une cellule de la ligne 10 à la ligne 9 (qui ne fait pas partie des lignes filtrées) :

( ActiveCell.Offset(-1, 0).Select )


je vous remercie pour votre aide !!

 

[Robert]

Salut Thombar, Salut le forum,

J'ai rencontré ce problème et je l'ai contourné avec ces quelques lignes de code. Je pense qu'il y a plus simple mais ça, ça marche. À la place de : ActiveCell.Offset(-1,0).Select, écrit :

For x = 1 To 100
If ActiveCell.Offset(-x, 0).EntireRow.Hidden = False Then
ActiveCell.Offset(-x, 0).Select
Exit For
End If
Next x

modifie la valeur finale de la variable x si l'écart entre deux lignes filtrées peut être supérieur (ou si il est toujours inférieur)

À plus,

Robert

 

[thombar]

merci beaucoup