Discussion :

[FouJP]

Bonjour,
Par utilisation de filtre sur des données, je souhaite tester si le nombre de lignes visibles est égal à zéro.

Code :

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

 For Each RecCell In Selection.SpecialCells(xlVisible)

.....

Code :

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

Next RecCell

Afin de sortir de la boucle proprement et éviter d'aller jusqu'à la 1048576 ième ligne.
Cordialement,

[PMO2017]

Bonjour,

Peut être avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub aa()
If TypeName(Selection) <> "Range" Then
  MsgBox "Veuillez sélectionner une plage"
  Exit Sub
End If
'---
With Selection
  If .Rows.Count - .SpecialCells(xlVisible).Rows.Count > 0 Or _
      .Columns.Count - .SpecialCells(xlVisible).Columns.Count > 0 Then
    MsgBox "Des cellules sont masquées"
  End If
End With
End Sub

[FouJP]

Merci,
Le code

Code :

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

 Rows.count

me permet de tester la valeur d'une variable.

Code :

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

1
2
Nbr = Selection.Rows.Count
      If Nbr > 1 Then

Cordialement,