Discussion :

[philpyreneen]

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 :

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

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

Sandrine nounou initial.xlsx

[Philippe Tulliez]

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 :

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

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 :

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

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 :

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

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 :

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

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

Au lieu de

Code :

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

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

[philpyreneen]

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

[Philippe Tulliez]

Bonjour,

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]

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)

[philpyreneen]

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

[Pierre Fauconnier]

Salut.

A mettre dans le module de la feuille concernée

Code :

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

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

[philpyreneen]

merci cela fonctionne parfaitement