XL 2016 Masquer une ligne ou une colonne en fonction de la valeur d'une cellule...

job75

XLDnaute Barbatruc

• 28 Mars 2023

• #2

Bonjour Axos,

VB:

Sub Test()
Dim c As Range
Set c = [B2]
If CStr(c) = "0" Then c.Rows.Hidden = True: c.Columns.Hidden = True
End Sub

A+

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 28 Mars 2023

• #3

Merci Job75!

Si je suis ce code, je suppose qu'il faut le répéter pour chaque ligne ou colonne que l'on souhaite masquer. Ai-je raison?

Merci de ta réponse.

Axos.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mars 2023

• #4

Oui en utilisant une boucle :

VB:

Sub Test()
Dim c As Range
For Each c In [B2:D1000] 'à adapter
    If CStr(c) = "0" Then c.Rows.Hidden = True: c.Columns.Hidden = True
Next
End Sub

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 1 Mai 2023

• #5

Bonjour les amis!

J'ai tapé ce code sachant que je ne veux masquer que les lignes pour lesquelles la valeur inscrite dans les cellules B9 à B23 est égale à 0. Dans mon tableau (feuille "Prévisions"), c'est bien le cas mais les lignes ne sont pas masquées.

Sub Test()
Dim c As Range
For Each c In [B9:B23]
If CStr(c) = "0" Then c.Rows.Hidden = True:
End Sub

Quelqu'un peut-il m'aider à résoudre cette difficulté ?

D'avance, merci de vos réponses.

Axos.

 

Pièces jointes

• Fiche de suivi projet voyage sortie.xlsm

  176.8 KB · Affichages: 5

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 1 Mai 2023

• #6

Bonjour à tous,
Bonjour Job75,

Le code de @job75 te donne le bon résultat.
Tu peux mettre un autre bouton pour réafficher les lignes.

JHA

 

Pièces jointes

• Fiche de suivi projet voyage sortie.xlsm

  181.5 KB · Affichages: 7

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 1 Mai 2023

• #7

Merci JHA!

Mais je ne veux pas qu'elles soient affichées via un bouton. Je souhaite juste qu'elles n'apparaissent pas lorsque la cellule de la colonne B est à 0.

Peux-tu m'aider à cela?

D'avance, merci à toi!

Axos.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Mai 2023

• #8

Bonjour Axos, JHA,

Dans la macro vous avez oublié le Next.

A+

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 2 Mai 2023

• #9

je ne l'ai pas oublié dans la macro que j'ai programmé.
Donc si on peut le faire sans bouton, automatiquement, je suis preneur...

Merci de votre aide les amis!

Axos.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2023

• #10

Bonsoir Axos,

Axos à dit:

Donc si on peut le faire sans bouton, automatiquement, je suis preneur...

Cliquez pour agrandir...

S'agissant de formules on peut utiliser une macro Worksheet_Calculate :

VB:

Private Sub Worksheet_Calculate()
Dim c As Range
Application.EnableEvents = False 'désactive les évènements
For Each c In [B9:B23]
    c.Rows.Hidden = CStr(c) = "0"
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Avec toutes les formules en B9:B23 renvoyant zéro leurs lignes sont masquées.

Nota : sans les Application.EnableEvents les masquages/affichages créent l'évènement Calculate.

A+

 

Pièces jointes

• Fiche de suivi projet voyage sortie.xlsm

  180.8 KB · Affichages: 5

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 3 Mai 2023

• #11

Job75:

Merci à toi! C'est exactement ce que je veux pour le premier tableau. Mais je veux le faire aussi pour les deux tableaux suivants sur les cellules suivantes :

F38 à F52 et F59 à F73

Or, j'ai copié deux fois le code pour cela en modifiant juste les cellules concernées et les macros plantent.

Peux-tu m'aider à saisir ce qui m'échappe?

D'avance, je te remercie.

Axos.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Mai 2023

• #12

Bonjour Axos,

Axos à dit:

Mais je veux le faire aussi pour les deux tableaux suivants sur les cellules suivantes :

F38 à F52 et F59 à F73

Cliquez pour agrandir...

Sur le fichier que j'ai joint ce ne serait pas plutôt B29 à B43 et B51 à B65 ?

VB:

Private Sub Worksheet_Calculate()
Dim c As Range
Application.EnableEvents = False 'désactive les évènements
For Each c In [B9:B23,B29:B43,B51:B65]
    c.Rows.Hidden = CStr(c) = "0"
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

Vote positif 0 Vote négatif