Discussion :

[modus57]

Bonjour à tous.

Je ne sais pas comment faire pour passer à la cellule visible suivante ou précédente.

Après avoir fait des recherches sur plusieurs forums le n’ai pas trouvé de solutions.

Avec ce bout de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A:A").Find(What:="*", After:=ActiveCell, SearchDirection:=xlNext).SpecialCells(xlCellTypeVisible).Activate 
Range("A:A").Find(What:="*", After:=ActiveCell, SearchDirection:=xlPrevious).SpecialCells(xlCellTypeVisible).Activate

Il ne convient pas : toutes les lignes visibles sont sélectionnées.

J’ai besoin d’un peu d’aide pour résoudre ce problème.

Merci d’avance.

[antonysansh]

Bonjour modus57,

Apres test j'ai le même souci que toi et je ne sais pas l'expliquer.
.SpecialCells(xlCellTypeVisible).Activate a l'air de selectionner toute les cellules visible peu importe ce qu'il y a avant le .

Avec un Intersect tu pourrais peut être t'en sortir.

Sinon tu peux contourner le problème que cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Next_Cell()
 
    If ActiveCell.Column = 1 Then
Next_:
        With ActiveSheet.Columns("A:A")
            .Find(What:="*", After:=ActiveCell, SearchDirection:=xlNext).Activate
        End With
        While ActiveCell.EntireRow.Hidden = True
            GoTo Next_
        Wend
    Else
        'rien
    End If
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Previous_Cell()
 
    If ActiveCell.Column = 1 Then
Previous_:
        With ActiveSheet.Columns("A:A")
            .Find(What:="*", After:=ActiveCell, SearchDirection:=xlPrevious).Activate
        End With
        While ActiveCell.EntireRow.Hidden = True
            GoTo Previous_
        Wend
    Else
        'rien
    End If
End Sub

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim c As Range
 
Set c = Feuil1.Columns(1).SpecialCells(xlCellTypeVisible).Find("*", After:=Intersect(ActiveCell.EntireRow, Plage), SearchDirection:=xlNext)
c.Activate
Set c = Nothing

Specialcells sur la plage de recherche

[modus57]

Bonjour antonysansh, mercatog

Merci à tous les deux.

La solution d'antonysansh fonctionne bien et en plus lorsque la dernière cellule visible est atteinte le sélecteur bascule sur la première cellule visible et inversement c'est exactement ce que je cherchais à faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub aa_cell_suivante_visible()
    Dim c As Range, Plage
    Set Plage = Range("A2:A" & [A65000].End(xlUp).Row)
    Set c = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).Find("*", After:=Intersect(ActiveCell.EntireRow, Plage), SearchDirection:=xlNext)
    c.Activate
    Set c = Nothing
 End Sub
 
Sub aa_cell_précédente_visible()
    Dim c As Range, Plage
    Set Plage = Range("A2:A" & [A65000].End(xlUp).Row)
    Set c = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).Find("*", After:=Intersect(ActiveCell.EntireRow, Plage), SearchDirection:=xlPrevious)
    c.Activate
    Set c = Nothing
End Sub

Par contre ça fonctionne pas avec la solution de mercatog, pouvez-vous me donner une petite explication.

Merci.

[mercatog]

A force de vouloir réduire le code, on laisse des coquilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub aa_cell_suivante_visible()
Dim c As Range, Plage As Range
 
Set Plage = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Set c = Plage.Find("*", After:=Intersect(ActiveCell.EntireRow, Plage), SearchDirection:=xlNext)
c.Activate
Set c = Nothing
Set Plage = Nothing
End Sub
 
Sub aa_cell_précédente_visible()
Dim c As Range, Plage As Range
 
Set Plage = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Set c = Plage.Find("*", After:=Intersect(ActiveCell.EntireRow, Plage), SearchDirection:=xlPrevious)
c.Activate
Set c = Nothing
Set Plage = Nothing
End Sub