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

Axos · 28 Mars 2023

Bonjour les ami(e)s!

Je cherche à savoir comment masquer une ligne ou une colonne si une cellule est égale à la valeur 0.

Exemple :
1er cas :
B2=0 donc la ligne 2 serait masquée ;
2ème cas :
B2=0 donc la colonne B serait masquée.

Qui aurait la solution s'il vous plaît? Je pense que cela se code en vba mais je ne sais pas comment faire!

Merci les ami(e)s!

Axos.

job75 · 28 Mars 2023

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+

Axos · 28 Mars 2023

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.

job75 · 28 Mars 2023

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

Axos · 1 Mai 2023

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.

JHA · 1 Mai 2023

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

Axos · 1 Mai 2023

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.

job75 · 1 Mai 2023

Bonjour Axos, JHA,

Dans la macro vous avez oublié le Next.

A+

Axos · 2 Mai 2023

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.

job75 · 2 Mai 2023

Bonsoir Axos,

Axos à dit:
Donc si on peut le faire sans bouton, automatiquement, je suis preneur...

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+

Axos · 3 Mai 2023

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.

job75 · 3 Mai 2023

Bonjour Axos,

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

F38 à F52 et F59 à F73

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+

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

Axos

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Axos

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Axos

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Axos

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires