Re- Sélection ligne suivante !!!

  • Initiateur de la discussion jb
  • Date de début
J

jb

Guest
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.
 
S

steplof

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 651
Membres
105 479
dernier inscrit
chaussadas.renaud