En VBA: Masquer des colonnes en fonctions de la comparaison de 2 cellules

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.

Bonjour respcond,

Code:

---

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

Merci beaucoup, cela fonctionne.
Bonne journée.

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:

---

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

---

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

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

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

Salut,

Idem.

Tu balayes les cellules et tu adaptes

Code:

---

1 2 3 4 5 6 7

Dim c As Range   For Each c in Activesheet.Range("D1:D25") With c .EntireRow.Hidden = (Cells("D"& .Row).Value …….) End With Next c

---

(Ecrit "au kilomètre" et non testé.)

Je te laisse compléter l'égalité figurant dans le code.

Merci , cela m'a bien aidé, voila le code que j'ai écrit et cela fonctionne bien.
Valeur en "D26" et ligne de 29 à 394, en vérifiant par rapport à la colle D de ces lignes.

Code:

---

1 2 3 4

Dim c As Range For Each c In ActiveSheet.Range("D29:D394") c.EntireRow.Hidden = (c < ActiveSheet.Range("d26")) Next c

---

Un petit bémol, l'opération est un peu longue, je ne sais pas si cela peut être amélioré...

Opération Longue ?

En début de procédure : Application.ScreenUpdating = False.

En fin de procédure : Application.ScreenUpdating = True.

Je croyais que la référence était la cellule A1;

D'autre part,
- Ne pas hésiter à utiliser le bloc With pour une meilleure lisibilité.
- Préciser la propriété .Value, même si celle-ci est implicite.

Merci , cela améliore un peu :)

Par ailleurs, l'utilisation de ActiveSheet peut poser problème. Que se passerait-il si, par une erreur de code quelconque, VBA prenait le focus d'une autre feuille ?

Sheets("Nom Feuille")
Sheets(1)
Sheets(numFeuille) - où numFeuille est une variable
Sheets("Je suis la feuille de " & nomClient) - où nomClient est une variable

Autant de manière de s'assurer que tu sois sur la bonne feuille.

Couplé à un...

Code:

---

1 2 3 4 5 6 7

Dim Ws As Worksheet   Set Ws = Sheets(...)   Ws.Range("D26") 'Cela évite de perdre le focus pour des raisons qui pourraient te prendre du temps à trouver

---

A l'origine, sauf erreur, le code était intégré à une procédure évènementielle de la feuille de travail.

Donc, pour ce cas seulement, la désignation de la feuille active ne pose pas problème.

Je dis bien "pour ce cas seulement".
Dans les autres cas, il faut bien entendu s'y opposer.

Dans ce cas il n'y aurait même pas nécessité d'utiliser ActiveSheet. Etant donné que le propre de tout bon codeur est d'éviter au maximum l'utilisation des Activate et Select :aie:

Mais je préfère tout de même m'en assurer. Cela ne prend pas beaucoup de mémoire et lève toute ambiguïté (j'ai retenu, Philippe :mouarf: )