Re- Sélection ligne suivante !!!

[jb]

Bonjour,

Je n'ai pas eu de réponse à mon pb posé il y 2 jours, et je dois dire que c'est indispensable à mon projet. Voilà, je stocke des données en ligne sous une feuille excel. Je voudrais (après filtrage) pouvoir sélectionner une à une les lignes obtenues à l'aide d'un bouton.
Ex : Après filtrage, j'obtiens les lignes 2,5,12,15 et 19.
Je voudrais pouvoir sélectionner en appuyant sur le bouton Cmd1 la ligne 2, puis après nouvel appui la ligne 5, etc ...

SVP ... Aidez moi !!!

Merci et bonne journée.

JB.

 

[steplof]

Bonjour à tous,

JB, regarde la macro ci-dessous si elle répond à ton problème, à ta disposition pour l'adapter.



Option Explicit
Sub Macro1()
' le 05/04/2003 par Steplof
'

Dim DernLigne As Long
Dim Depart As Long
Dim i As Long


DernLigne = Range("a65536").End(xlUp).Row
Depart = ActiveCell.Row
For i = Depart + 1 To DernLigne

If Rows(i).Hidden = False Then
Rows(i).Select
Exit Sub
End If

Next i
End Sub


@bientôt
Steplof