Cacher des colonnes suivant le choix d'une liste deroulante

[willwill]

Bonjour a tous,

J'ai bien parcourru le forum a la recherche d'une reponse a mon probleme mais je n'arrive pas a la mettre en forme suivant mon exemple

Je souhaiterai cacher des colonnes suivant le choix d'une liste deroulante.

Exemple
Si je choisi dans ma liste "Aout" alors les colonnes Ax a Ay se cachent.

Voici mon essai mais ca ne fonctionne pas:

If [A29] = "Aout" Then Columns("AA:AI").Hidden = True
If [A29] = "Septembre" Then Columns("AK:AZ").Hidden = True

Merci d'avance pour vos avis

 

[VDAVID]

Re : Cacher des colonnes suivant le choix d'une liste deroulante

Salut WillWill,

Le code en lui même est bon, par contre, dans quelle procédure l'a tu-mis?
Car pour qu'il s'active lorsque tu change la valeur d'une liste déroulante, il faut l'incorporer dans un:

Private Sub Worksheet_Change(ByVal Target As Range)

 

[willwill]

Re : Cacher des colonnes suivant le choix d'une liste deroulante

j'ai entrer ces lignes de code dans la page "module 1" et aussi dans "Sheet1" mais ca ne fonctionne toujours pas😕

Private Sub Worksheet_Change(ByVal Target As Range)
If [A29] = "Aout" Then Columns("AA:AI").Hidden = True
If [A29] = "Septembre" Then Columns("AK:AZ").Hidden = True
End Sub

 

[JBARBE]

Re : Cacher des colonnes suivant le choix d'une liste deroulante

Bonjour à tous,

Ta macro est bonne et fonctionne trés bien ( voir fichier ci-joint)

Ce ne sont pas les mêmes colonnes que toi mais un exemple avec liste déroulante

bonne journée

 

[willwill]

Re : Cacher des colonnes suivant le choix d'une liste deroulante

Merci pour vos reponses, je viens de reessayer la macro, ca fonctionne 😱😱, en fait, je ne lancais pas la macro car je croyais qu'elle se lancerai automatiquement a chaque nouveau choix dans la liste deroulante.

Merci de votre aide