masquer 0%

[desatan]

Bonjour,

Je cherche une macro qui s'appliquerai sur une plage de données et qui permettrait de masquer les lignes égale à 0% ?
Et une macro qui permettrai d'afficher à nouveau toutes les lignes ?

Merci par avance

 

[Modeste geedee]

Re : masquer 0%

Bonsour®

😎 sans macro
format de cellule :
0%;[Rouge]-0%;;

Oupssss!!!!
Confondu ligne et cellule

Sub mask()
Dim cellule As Range
For Each cellule In Range("B4:B40")
     cellule.EntireRow.Hidden = (cellule = 0)
Next
End Sub

Sub Voir()
Dim cellule As Range
For Each cellule In Range("B4:B40")
     cellule.EntireRow.Hidden = false
Next
End Sub

 

[Efgé]

Re : masquer 0%

Bonjour desatan, Modeste geedee 🙂, Une proposition par macro en un seul bouton. Cordialement

 

[Dull]

Re : masquer 0%

Re desatan, le Forum

Un essai en pièce jointe

EDITION: Oupssss... Re Modeste GD🙂, Fred 🙂 AchementalaBourre...Moi
Re Edith: Salut Pierre🙂
Bonne Journée

 

[pierrejean]

Re : masquer 0%

Bonjour desatan
Salut Modeste geedee

Si tu tiens aux macros:

Sub masquer()
For n = 1 To Range("B" & Rows.Count).End(xlUp).Row
  If Range("B" & n).Value <> "" And Range("B" & n).Value = 0 Then Rows(n).Hidden = True
Next n
End Sub

Sub afficher()
Rows.Hidden = False
End Sub

Edit: Salut Efgé , Salut Dull

 

[desatan]

Re : masquer 0%

merci à tous,

Efgé, ta solution me plait bien ;-) comment as-tu créé ton bouton ? enfin ca n'a pas l'air d'en être un

 

[Efgé]

Re : masquer 0%

Re, Bonjour Dull 🙂 Bonjour pierrejean 🙂. C'est un bouton contrôle (PAS formulaire) Menu Affichage / Barres d'outils / Boite à outils Contrôles . Choisir le bouton, le dessiner sur la feuille puis clic droit dessus, visualiser le code, mettre le code. Pour finir retour sur la feuille et décliquer le bouton avec le crayon et l'equerre (le premier en haut de la barre d'outil 😉 ). Cordialement

 

[Dull]

Re : masquer 0%

Re le Fil, Fred🙂

pour palier au ...SimpleBouton...😛 d'FG 🙂 le code avec le ToggleButton

Bonne Journée

 

[desatan]

Re : masquer 0%

ok merci et comment tu changes le nom dans ton bouton ? Et comment tu le déplaces après dans la feuille ?

 

[Efgé]

Re : masquer 0%

Re à tous, Pour mon simple bouton ; -) ) Pour le nom il est géré par le code (CommandButton1.Caption = ...) pour le déplacer, tu reclique sur le bouton magique (crayon + equerre) et tu peux le déplacer... Cordialement

 

[desatan]

Re : masquer 0%

ca fonctionne pas pour moi :-( pourtant j'ai fait exactement ce que tu m'as dit ??
dans mon fichier d'origine c'est la colonne 17 que je veux teste à 0%, j'ai remplacer dans le code 2 par 17 mais rien ne fait.
Le fichier fait 1000 lignes mais je ne sais pas si c'est important ?

 

[Dull]

Re : masquer 0%

Re le Fil

Sinon regardes dans la loupe en haut à droite (la loupe), de cette page, et fait une recherche avec "Bouton Flottant"

un essai en pièce jointe

Bonne Journée

 

[desatan]

Re : masquer 0%

Dull, dans ton fichier desatan3, comment tu détermines que c'est en fonction des 0 de la colonne B qu'il doit masquer les lignes ?
Merci

 

[Si...]

Re : masquer 0%

salut

Dull😉 fais bien de te proposer, dans ce cas, le Bouton bascule et Si... tu utilises sa particularité, tu as un code très court (testé avec son fichier)

 Private Sub ToggleButton1_Click()
   Dim L As Long
   ToggleButton1.Caption = IIf(ToggleButton1, "Démasquer", "Masquer")
   For L = 4 To Range("A" & Rows.Count).End(xlUp).Row
     Rows(L).Hidden = IIf(ToggleButton1 And Cells(L, 2) = 0, True, False)
   Next
 End Sub

 

[desatan]

Re : masquer 0%

pas compris désolé 😕