cacher des lignes grace au code VB

[darmayan]

Bonjour à tous,
J'aimerai faire un bouton qui lorsqu'on appuie dessus me cache certaines lignes et me les fasses réapparaitre quand on rapuie dessus.

Le problème c'est que je n'y connais rien du tout en VBA et en macro. J'ai regardé déjà sur les forums mais je n'arrive pas a adapter à mon cas.C'est pour cela que je fais appel à vous.

Les lignes doivent ce cacher si en même temps les cellules de la colonne G(total matériel) et H(total MO) sont égal à 0. Le nombre de ligne peut varier suivant les facturations faites.

Voici en pièce jointe une parti de mon fichier,
Merci d'avance pour vos réponses

 

[Cousinhub]

Re : cacher des lignes grace au code VB

bonjour,

et si elles sont vides?

Doit-on les masquer également?

 

[darmayan]

Re : cacher des lignes grace au code VB

non on ne doit masquer que celles ou il y a des chiffres a l'intérieur

 

[Cousinhub]

Re : cacher des lignes grace au code VB

Re-,

en supposant qu'il n'y ait pas de chiffres négatifs (que la somme de g et h ne fasse pas 0....)

essaie ces codes :

Sub tout()
Cells.EntireRow.Hidden = False
End Sub

Sub masque()
Application.ScreenUpdating = False
For Each cel In Range("A11:A" & [A65000].End(xlUp).Row)
    If Application.Sum(Cells(cel.Row, 7).Value, Cells(cel.Row, 8).Value) = 0 _
        And Application.CountA(Cells(cel.Row, 7), Cells(cel.Row, 8)) > 0 Then Rows(cel.Row).Hidden = True
Next cel
End Sub

pour les boutons, tu insères 2 dessins via la barre d'outils dessins, et clic droit sur chaque, Affecter une macro.

Tu peux même insérer des images, et même procédure...

Bonne soirée

 

[darmayan]

Re : cacher des lignes grace au code VB

Merci pour tout c'est excatement ca 🙂

 

[Cousinhub]

Re : cacher des lignes grace au code VB

Re-,

euh, petite erreur, remplace Countif par Counta....

désolé

 

[job75]

Re : cacher des lignes grace au code VB

Bonsoir darmaya, Rebonsoir bh2 🙂

Je commençais à m'endormir sur le forum, alors une petite variante pour la ligne de test :

If Cells(cel.Row, 7) & Cells(cel.Row, 8) = "00" Then Rows(cel.Row).Hidden = True

A+

 

[JCGL]

Re : cacher des lignes grace au code VB

Bonjour à tous,
Salut BH² 🙂,
Salut Job 🙂,

Avec les codes de BH² et Job et un ToogleButton.

A++ 🙂
A+ à tous

 

[job75]

Re : cacher des lignes grace au code VB

Bonsoir JCGL 🙂

C'est calme ce soir, tu ne trouves pas ?

A+

 

[darmayan]

Re : cacher des lignes grace au code VB

Merci pour toutes vos réponses, cela m'a beaucoup servi