masquer 0%

Modeste geedee

XLDnaute Barbatruc

• 16 Octobre 2012

• #2

Re : masquer 0%

Bonsour®

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

Oupssss!!!!
Confondu ligne et cellule

VB:

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

VB:

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

 

Dernière édition: 16 Octobre 2012

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Octobre 2012

• #3

Re : masquer 0%

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

 

Pièces jointes

• masquer(2).xls

  22 KB · Affichages: 52
• masquer(2).xls

  22 KB · Affichages: 60
• masquer(2).xls

  22 KB · Affichages: 59

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Octobre 2012

• #4

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

 

Pièces jointes

• masquer 0% desatan.xls

  30 KB · Affichages: 46

Dernière édition: 16 Octobre 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Octobre 2012

• #5

Re : masquer 0%

Bonjour desatan
Salut Modeste geedee

Si tu tiens aux macros:

Code:

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

 

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 16 Octobre 2012

• #6

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Octobre 2012

• #7

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

 

Pièces jointes

• Sans-titre-1.jpg

  595 bytes · Affichages: 158
• Sans-titre-1.jpg

  595 bytes · Affichages: 158
• Sans-titre-1.jpg

  595 bytes · Affichages: 156

Dernière édition: 16 Octobre 2012

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Octobre 2012

• #8

Re : masquer 0%

Re le Fil, Fred🙂

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

Bonne Journée

 

Pièces jointes

• masquer 0% desatan-2.xls

  31 KB · Affichages: 42

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 16 Octobre 2012

• #9

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 ?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Octobre 2012

• #10

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

 

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 16 Octobre 2012

• #11

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 ?

 

Dernière édition: 16 Octobre 2012

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Octobre 2012

• #12

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

 

Pièces jointes

• desatan-3.xls

  34.5 KB · Affichages: 48

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 16 Octobre 2012

• #13

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 16 Octobre 2012

• #14

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)

Code:

 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

 

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 16 Octobre 2012

• #15

Re : masquer 0%

pas compris désolé 😕

 

Vote positif 0 Vote négatif