XL 2019 Bouton pour afficher/masquer une colonne avec condition

Staple1600

XLDnaute Barbatruc

• 19 Février 2021

• #2

Bonsoir

Une façon de faire

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 19 Février 2021

• #3

Bonjour Pat66, le forum
Edit : Bonjour Staple1600

Je te propose ceci :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2021

• #4

Bonsoir Phil69970

Et pour le fun

VB:

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 19 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 20 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Février 2021

• #7

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

 

Dernière édition: 20 Février 2021

Vote positif 0 Vote négatif