Masquer/Afficher

 
Bonjour cedrico,

La proposition de ccm81 utilise un 2ème bouton ; j'ai préféré faire ta
nouvelle demande avec ton même bouton « Afficher/Masquer » ;
de plus, j'ai ajouté une petite correction pour ta 1ère ligne de départ.

Dans mon 1er code VBA, avant de masquer des lignes, j'ai commencé
par toutes les afficher avec la 2ème instruction de la ligne #7 :

Rows("14:" & dlig).Hidden = 0

Donc si on s'arrête aussitôt après, ça fait ce que tu demandes :
afficher toutes les lignes ; reste à le rendre conditionnel.

-------------------------------------------------------

Pour faire cela, j'ai besoin d'une cellule de ta feuille qui conservera l'état
masqué ou non des lignes adéquates : 0 = visible ; 1 = masqué ; c'est un
choix purement arbitraire, et j'aurais pu inverser ces valeurs.

⚠  Au début, le nombre doit obligatoirement correspondre avec la réalité :
1 si des lignes sont masquées ; 0 si toutes les lignes sont affichées ;
ensuite, la macro inversera systématiquement cette valeur.

-------------------------------------------------------

Où mettre cette valeur ? J'ai vu que tu as 2 nombres en J94 et J95 ; j'ai donc choisi
une cellule de la même colonne, en J2 ; si tu préfères utiliser une autre cellule,
ce sera à toi d'adapter la ligne #8 du code VBA ci-dessous :

Option Explicit

Sub Essai()
  Dim dlig As Long, lig As Long
  dlig = Range("G" & Rows.Count).End(xlUp).Row
  Application.ScreenUpdating = False: Rows("15:" & dlig).Hidden = 0
  [J2] = 1 - [J2]: If [J2] = 0 Then Exit Sub
  For lig = 15 To dlig
    With Cells(lig, 7)
      If .Interior.ColorIndex = 35 Then
        If Not IsEmpty(.Value) And .Value = 0 Then Rows(lig).Hidden = -1
      End If
    End With
  Next lig
End Sub

Seule différence avec mon code VBA précédent : ajout de la ligne #8 ;
fais un clic droit sur ton bouton « Afficher/Masquer » et choisis l'item :
« Affecter une macro... » (pour lier ma macro Essai à ton bouton).

-------------------------------------------------------

Si tu veux que la valeur de J2 n'apparaisse pas, mets lui une couleur de
texte identique à celle du fond ; autre solution : utilise H2 à la place de J2
car ainsi, ta cellule sera cachée sous ton bouton « Masquer/Afficher » ;
si tu fais comme ça, n'oublie pas de changer ainsi la ligne #8 :

  [H2] = 1 - [H2]: If [H2] = 0 Then Exit Sub

⚠  il faut faire 3 changements !

-------------------------------------------------------

Comme ta ligne d'en-têtes qui contient "Qté" est en ligne 14, la 1ère ligne
peut être celle qui suit => la ligne n° 15 et plus la n° 14 ; 2 changements
déjà faits, en lignes #7 et #9 du code VBA.

Merci de me dire si ça te convient, et si ton problème est réglé,
n'oublie pas de passer le sujet en résolu.  ;)


PS :  Je préfère ne pas te retourner ton fichier joint, car à son ouverture, j'ai eu
le message d'erreur "contenu illisible" ; je l'ai quand même ouvert (et j'en ai vu
le contenu), mais un message a indiqué : "certaines parties sont perdues".
 

Génial, merci bcp! c'est ok pour moi, bonne soirée a tous