Bonton suivant/precedent sur ligne avec filtre automatique

[n3Twork]

Re coucou

me revoici encore avec un ti probleme j'ai un bouton suivant et precedent et je voudrais qu'il se deplace de +1 ou -1 donc faire un ActiveCell.Offset(1, 0) ou ActiveCell.Offset(-1, 0) mais comment lui dire de prendre que les valeur filtré ? car actuellement il me prend toute les valeur...

j'ai trouver ce code mais sa ne marche pas trop

Dim cel As Range

For Each cel In Range(ActiveCell.Offset(1, 0), Cells(65536, ActiveCell.Column))
If cel.EntireRow.Hidden = False Then
cel.Select
End If
Next cel

merci

 

[Kobaya]

Re : Bonton suivant/precedent sur ligne avec filtre automatique

salut,

voici le code qu'il te faut. cree 2 boutons nommes VersLeHaut et VersLeBas, et copie ce code dans le module de code de ta feuille

Private Sub VersLeHaut_Click()
    Do
        ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.EntireRow.Hidden = False
End Sub
Private Sub VersLeBas_Click()
    Do
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.EntireRow.Hidden = False
End Sub

 

[Dan]

Re : Bonton suivant/precedent sur ligne avec filtre automatique

Bonjour,

essaie ce code là :

Sub test()
Dim i, lig As Integer
i = ActiveCell.Row
lig = Activesheet.Range("A65536").End(xlUp).Row
For i = 1 To lig
With ActiveCell
If .Rows(i).Hidden = True Then .Offset(1, 0).Activate: End
End With
Next i
End Sub

J'ai mis i = 1. Cela équivaut au numéro de ta première ligne dans la colonne A. Donc si ton tableau part de la ligne 2 -> i = 2

Pour monter, mets offset(-1,0)