Masquer des colonnes

bonjour
je cherche a creer une macro pour masquer des colonnes si on rentre une donnée dans une cellule
etant débutant en vba j'ai essayé ceci

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub If Target.Value <> 0 Then Columns(2, 3, 4).Hidden = False If Target.Value = 0 Then Columns(2, 3, 4).Hidden = True End Sub

---

si je rentre B4 =0
je voudrais masquer les colonnes 2,3,4
mais je crois avoir fait une erreur
merci de votre aide

Pièce jointe 309019

Bonjour,
Il me semble difficile d'introduire une valeur en B4 à partir du moment où l'on aura masqué la colonne 2 ;)
Pour masquer une colonne on utilise l'indice de la collection qui est soit numérique, soit alphanumérique
Exemple pour masquer ou afficher la colonne 3

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub If Target.Value <> 0 Then Columns(3).Hidden = False If Target.Value = 0 Then Columns(3).Hidden = True End Sub

---

Comme la valeur de la propriété Hidden est de type booléen, profitons en

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub Columns(3).Hidden = Target.Value = 0 End Sub

---

et pour effacer plusieurs colonne, on peut utiliser une structure répétitive telle que For ... To ... Next
Exemple pour masque les colonnes de 3 à 5

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Integer If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub For c = 3 To 5 Columns(c).Hidden = Target.Value = 0 Next End Sub

---

Il y a bien entendu d'autres solutions

[EDIT]
Une coquille s'est glissée dans mon code.
Même si cela fonctionnait le test est plus compréhensible comme ci-dessous

Code:

---

Columns(c).Hidden = Target.Value = 0

---

Au lieu de

Code:

---

Columns(c).Hidden = False = Target.Value

---

je te remercie pour ta réponse mais je voudrais modifier le fonctionnement
je voudrais que si je clique en J2 cela me masque les colonnes B,C,D
merci pour votre aide

Bonjour,

Citation:

---

je te remercie pour ta réponse mais je voudrais modifier le fonctionnement
je voudrais que si je clique en J2 cela me masque les colonnes B,C,D

---

Franchement, avec le code que tu as sous les yeux et si tu fais un minimum d'effort de lire le code, cela ne doit pas être difficile de modifier B4 par J2 non ?

[EDIT]

Citation:

---

je voudrais que si je clique en J2 cela me masque les colonnes B,C,D

---

Pour intercepter la sélection d'une cellule, il faut utiliser cette procédure événementielle Worksheet_SelectionChange(ByVal Target As Range)

je veux bien te croire à condition de connaitre quelque chose en vba ce qui n'est pas mon cas

Salut.

A mettre dans le module de la feuille concernée

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("J2")) Is Nothing Then Range("b:d").EntireColumn.Hidden = True End If End Sub

---

Perso, je déteste les exit sub ;)

merci cela fonctionne parfaitement