Macro VBA - Masquer en fonction d'un pourcentag

Pierrot93

XLDnaute Barbatruc

• 31 Août 2010

• #2

Re : Macro VBA - Masquer en fonction d'un pourcentag

Bonjour Guillaume

peut être ainsi :

Code:

Rows("2:10").Hidden = Range("A1").Value < 0.5

bonne journée
@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 31 Août 2010

• #3

Re : Macro VBA - Masquer en fonction d'un pourcentag

Bonjour,

et si = 50% ???

Le pourcentage est-il issu d'une formule, ou une entrée manuelle?

Si formule :

Code:

Private Sub Worksheet_Calculate()
Rows("2:10").Hidden = Range("A1") < 0.5
End Sub

Si entrée manuelle :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then Rows("2:10").Hidden = Target < 0.5
End Sub

Remplace < par <= si 50% doit également masquer les lignes

Bonne journée

Edit : Bonjour Pierrot

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 31 Août 2010

• #4

Re : Macro VBA - Masquer en fonction d'un pourcentag

Bonjour Pierrot, bonjour bhbh,
Et bien! Toujours les même qui me sauve ! 🙂


Merci à vous deux pour vos réponses, je m'en vais tester vos macros!

Ps: Il s'agit d'une entrée manuel avec valeur = à 50% doit être aussi masqué. Excellente précision de ta part bhbh, je l'avais complètement oublié!

Ps2: Peut-on avoir une même macro pour plusieurs cellules d'entrée des pourcentages ou faut t'il que je fasse autant de macro que de cellules d'intégration % ?

Cordialement,
Guillaume A.

 

Dernière édition: 31 Août 2010

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 31 Août 2010

• #5

Re : Macro VBA - Masquer en fonction d'un pourcentag

Re-,

Pour définir plusieurs cellules, tu as sûrement du voir des codes du style :

Code:

If Not Intersect(Target, Range("A1:F1")) Is Nothing Then
    Rows("2:10").Hidden = Target <= 0.5
End If

Regarde l'aide, sur Intersect

Bonne journée

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 31 Août 2010

• #6

Re : Macro VBA - Masquer en fonction d'un pourcentag

Re bhbh,
Voila ce que j'ai utilisé et cela marche très bien. En espérant que cela ne soit pas trop lourd!

If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$7" Then Rows("9:14").Hidden = Target <= 0.5
If Target.Address = "$C$20" Then Rows("23:25").Hidden = Target <= 0.5
If Target.Address = "$C$27" Then Rows("28:28;30:30;32:32").Hidden = Target <= 0.5

Cliquez pour agrandir...

Cependant je n'arrive pas à déterminer comment faire pour plusieurs lignes séparés... Oui je sais...Surement la fatigue...

Cordialement,
Guillaume A.

 

Dernière édition: 31 Août 2010

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 31 Août 2010

• #7

Re : Macro VBA - Masquer en fonction d'un pourcentag

Re-,

En plus de F1, surtout n'hésite pas à abuser de l'enregistreur de macro...

Code:

Range("28:28[COLOR="Red"][B],[/B][/COLOR]30:30[COLOR="Red"][B],[/B][/COLOR]32:32").EntireRow.Hidden =.....

Bonne journée

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 31 Août 2010

• #8

Re : Macro VBA - Masquer en fonction d'un pourcentag

Encore une fois merci =)
Comme quoi dès fois on se bloque pour des bêtises....

Bonne journée à toi!

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 31 Août 2010

• #9

Re : Macro VBA - Masquer en fonction d'un pourcentag

Re bonjour

J'ai oublié de préciser qu'à chaque fois que c'est 0% cela ne doit pas s'effacer. Comment rajouter çela dans la formule car je n'ai pas l'impression qu'il est ai la fonction Et/And et je n'arrive pas à rajouter <>0 ?

Ex:

If Target.Address = "$C$27" Then Rows("28:28;30:30;32:32").Hidden = Target <= 0.5 Et <> 0

Cliquez pour agrandir...

Merci de votre considération.

Cordialement,
Guillaume A.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 31 Août 2010

• #10

Re : Macro VBA - Masquer en fonction d'un pourcentag

Salut GuillaumA, Pierrot 🙂, bh² 🙂, le Forum

Peut-être comme cela

Code:

If Target.Address = "$C$27" And Target.Value <> 0 Then Rows("28:28,30:30,32:32").Hidden

Bonne Journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Août 2010

• #11

Re : Macro VBA - Masquer en fonction d'un pourcentag

Re, bonjour Dull🙂

aarf, pas compris la même chose....

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$27" Then Range("28:28,30:30,32:32").EntireRow.Hidden = _
    (Target <= 0.5 And Target > 0)
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 31 Août 2010

• #12

Re : Macro VBA - Masquer en fonction d'un pourcentag

Formule précédente marchant parfaitement.
Un grand merci!

 

Dernière édition: 22 Septembre 2010

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 22 Septembre 2010

• #13

Re : Macro VBA - Masquer en fonction d'un pourcentag

Bonjour,
De retour sur cette macro j'aimerai la modifier un peu (partie rouge)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$20" Then Range("22:22,24:24,26:27").EntireRow.Hidden = Target > 0

Cliquez pour agrandir...

Ne sachant pas encore très bien les fonctions VBA, j'aimerai écrire l'équivalent de ceci:

If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$20" Then
Range(Lignes entre 21 et 30, de la colonne 16, dans lesquelles s'affiches la valeur ML).EntireRow.Hidden = Target > 0

Cliquez pour agrandir...

Puis je vous demander encore de l'aide? Ou ai-je épuisé mon quotas journalier 🙁

Cordialement,
Guillaume A.

 

Vote positif 0 Vote négatif