Afficher/Masquer plage

titymax à dit:

Bonjour à tous,

Aujourd'hui, j'ai encore un souci de VBA (pas étonnant vu mes compétences...proche du 0 absolu).

En fait, comme illustré dans l'exemple joint, via le togglebutton, je désire afficher/masquer les lignes de la plage [32:74] dans le cas où la cellule correspondante de la colonne E "NB" est vide.

--> Un coup j'affiche toutes les lignes de la plage, un coup je n'affiche que celle dont Ex n'est pas vide.

Voilà, je pense ne pas en être loin 🙄...

Merci à tous

Bonne mâtinée

Cliquez pour agrandir...

Private Sub ToggleButton1_Click()
[COLOR="Red"]Dim Derligne As Integer[/COLOR]
Application.ScreenUpdating = False
[COLOR="Red"]Derligne = Range("E65536").End(xlUp).Row[/COLOR]
If ToggleButton1 = 0 Then
  ToggleButton1.Caption = "CACHER LES LIGNES INUTILES"
  For Each CEL In Range("E31:E74")
    If CEL.Value = "" Then CEL.EntireRow.Hidden = False
  Next
  Range("C31").Select
  Else
  ToggleButton1.Caption = "AFFICHER TOUTES LES LIGNES"
  For Each CEL In Range("E31:E74")
    If CEL.Value = "" Then CEL.EntireRow.Hidden = True
  Next
End If
End Sub