Discussion :

[respcond]

Bonjour,
Dans une feuille, Je cherche comment masquer les colonnes de "D" à "F" (soit les 3 colonnes) si la cellule "D1" est égale à la cellule "B2" et cela à chaque modification de "B2", sachant que c'est du texte qui est dans les cellules.

Merci à l'avance.

Bonne fin de journée.

[révèr]

Bonjour respcond,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range
 
If Target.Address = "$B$2" Then
    If Range("D1") = Range("B2") Then
       Columns("D:F").EntireColumn.Hidden = True
    Else
       Columns("D:F").EntireColumn.Hidden = False
    End If
End If
 
End Sub

A tester

[respcond]

Merci beaucoup, cela fonctionne.
Bonne journée.

[MarcelG]

Bonjour respcond, Bonjour rêver,

On peut user de valeurs booléennes comme de valeurs numériques.

Ici, on teste une valeur booléenne.
Les valeurs de D1 et B2 sont-elles exactes, oui ou non?
En conséquence les colonnes seront oui ou non masquées?

Donc
Masquer les colonnes = (égalité des cellules)

Ce qui se traduit par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("D:F").EntireColumn.Hidden = (Range("D1") = Range("B2"))

Economie est ainsi faite de 4 lignes de codes comportant une condition.

[révèr]

Oh ! Très intéressant ! Je ne connaissais pas cela ! Merci pour l'information !

[respcond]

Re, Codes très court et fonctionne bien merci .

Et si je souhaite masquer les lignes dont la cellule en colonne "D" est inférieur à la valeur de la cellule "A1".

ex si j'ai la valeur "5" en "A1" et que les cel "D5" et "D8" = 3 les lignes 5 et 8 seront masquées.

Cela devra se faire à chaque modification de "A1". (mais ça , c'est bon maintenant)

Merci à l'avance
et bon appétit