XL 2019 Bouton pour afficher/masquer une colonne avec condition

[pat66]

Bonsoir le forum,

j'ai besoin d'aide car je n'arrive pas à écrire correctement cette macro

SI AE5 = 6 ou 9 ou 12, le bouton affiche la colonne AT, sinon il ne peut pas

Sub Bouton1_QuandClic2()
Application.ScreenUpdating = False
If Range("AE5").Value = 6 And 9 And 12 Then
Range("AT1").EntireColumn.Hidden = False
Else
Range("AT1").EntireColumn.Hidden = True ' je les cache
End If
End Sub

D'avance merci

Pat66

 

[Staple1600]

Bonsoir

Une façon de faire

Sub Bouton()
Select Case [AE5]
Case 6, 9, 12
Range("AT:AT").Columns.Hidden = True
Case Else
Range("AT:AT").Columns.Hidden = False
End Select
End Sub

 

[Phil69970]

Bonjour Pat66, le forum
Edit : Bonjour Staple1600

Je te propose ceci :

Sub Bouton1_QuandClic2()
Application.ScreenUpdating = False
If Range("AE5").Value = 6 And Range("AE5").Value = 9 And Range("AE5").Value = 12 Then
    Range("AT1").EntireColumn.Hidden = False
Else
    Range("AT1").EntireColumn.Hidden = True ' je les cache
End If
End Sub

@Phil69970

 

[Staple1600]

Bonsoir Phil69970

Et pour le fun

Sub Bouton_2()
Range("AT:AT").Columns.Hidden = ([AE5] = 6) + ([AE5] = 9) + ([AE5] = 12)
End Sub

 

[pat66]

bonsoir le forum
Bonsoir Messieurs,

j'ai l'embarras du choix grâce à votre expertise et je vous en remercie
je vais en choisir une mais je sais déjà que toutes conviennent, et je reviens vers vous pour signaler celle que j'ai choisi

Merci

bonne soirée

 

[pat66]

Bonjour Le forum
Bonjour Messieurs

voici la macro que j'ai choisi en la modifiant (voir mon post #1)
Sub Bouton1_QuandClic2()
Application.ScreenUpdating = False
Select Case [AE5]
Case 6, 9, 12
Range("AT:AT").Columns.Hidden = False
Case Else
Range("AT:AT").Columns.Hidden = True
End Select
End Sub

et j'ai ajouté une forme pour masquer la colonne à la demande
Sub closeat()
Range("AT:AT").Columns.Hidden = True
End Sub

merci à tous et bonne journée
Pa66

 

[soan]

Bonjour @pat66, @Phil69970, Staple,

pas 2 And mais 2 Or !

car la même cellule AE5 ne risque pas d'être égale à la fois à 6, 9, et 12 !

cela dit, la 2ème solution de Staple est la plus courte.

soan