XL 2019 Condition avec Select case

[pat66]

Bonsoir Le forum
Voila une macro qui fonctionne bien, mais est il possible de masquer la colonne AT en recliquant sur le bouton
même si AE5 contient 6,9,12, c'est peut être incohérent ?
Sub Bouton1_QuandClic2()
Application.ScreenUpdating = False
Select Case [AE5]
Case 6, 9, 12
Range("AT1").EntireColumn.Hidden = False
Case Else
Range("AT:AT").Columns.Hidden = True
End Select
End Sub

dans le genre de celle ci
If Range("AT1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
Range("AT1").EntireColumn.Hidden = False ' je les montre
Else
Range("AT1").EntireColumn.Hidden = True ' je les cache
End If

merci

 

[Staple1600]

Bonsoir


Ah je reconnais mon oeuf
Essaie ainsi

Sub Bouton1_QuandClic2()
Application.ScreenUpdating = False
Select Case [AE5]
Case 6, 9, 12
Range("AT1").EntireColumn.Hidden = Not Range("AT1").EntireColumn.Hidden
End Select
End Sub

 

[pat66]

Bonsoir Staple
ravi de te lire, oui c'est ton œuf
je viens de tester c'est impeccable
merci beaucoup

Pat

 

[job75]

Bonsoir pat66, JM,

Application.ScreenUpdating = False ne sert à rien ici :

Sub Bouton1_QuandClic2()
If IsNumeric(CStr([AE5])) Then If InStr("6|9|12", [AE5]) Then Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

A+

 

[pat66]

Bonjour Staple
Bonjour Job

cela fonctionne aussi, merci Job

bonne journée à tous les 2
Pat66

 

[patricktoulon]

re
bonjour à tous
oui effectivement le select case est superflu ainsi qu'une condition(isnumeric) d'ailleurs
'faire un like absolu (pas de jocker) ("|"="ou")
'comme le like est absolu et les nombre sont séparés par un "ou" dans le motif ,on a pas besoins de tester si il y a éventuellement autre chose EST!!! avec un de ses chiffres

Sub Bouton1_QuandClic2()
If [AE5] Like "[6|9|12]" Then Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

en gros "Like "[6|9|12]"" veut dire "[=6 ou =9 ou =12]"

 

[job75]

Bonjour patricktoulon, le forum,

Je n'avais pas pensé au Like, c'est bien mieux, merci à toi.

Avec InStr la condition IsNumeric est nécessaire pour le cas où [AE5] = "".

A+

 

[patricktoulon]

bonjour job75 et de rien

oui en fait le like absolu avec condition"ou" , c'est juste une écriture réduite d'un switch ou select case

 

[pat66]

Bonjour le fil
Bonjour PatrickToulon

j'ai testé
Sub Bouton1_QuandClic2()
If [AE5] Like "[6|9|12]" Then Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

cela fonctionne avec 6 et 9 mais pas avec 12 ? sinon celles de Job et Staple fonctionnent

Pat66

 

[patricktoulon]

re
en voila une drôle d'histoire, je regarderais cela en rentrant là obligé de partir

 

[patricktoulon]

comme ça vite fait ca me plait pas mais j'ai pas le temps
Sub Bouton1_QuandClic2()
If [AE5] Like "[6|9]" Or [AE5] = 12 Then Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

 

[job75]

En hexadécimal 12 s'écrit C donc on peut utiliser :

Sub Bouton1_QuandClic2()
If IsNumeric([AE5]) Then If Hex([AE5]) Like "[69C]" Then Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

ou aussi :

Sub Bouton1_QuandClic3()
On Error Resume Next
If Not Hex([AE5]) Like "[69C]" Then Else Columns("AT").Hidden = Not Columns("AT").Hidden
End Sub

 

[Staple1600]

Bonsoir le fil, pat66, job75, patricktoulon

Si cette version n'a pas été proposée, je suppose qu'il y a une faille que je n'ai point vue.

Sub Bouton1_QuandClic4()
On Error Resume Next
Columns(46).Hidden = Hex([AE5]) Like "[69C]" = Not Columns(46).Hidden
End Sub

 

[pat66]

Bonsoir messieurs,

Je suis gâté Staple1600, Job75, PatrickToulon, c'est un honneur, chapeau bas pour votre générosité
un grand merci à tous pour votre expertise

Pat66

 

[patricktoulon]

Hoh!! ça me plait ça, cette écriture c'est classe
sé zzoliiii!!!!
bon qué ki rest' a enl'vé encore