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 patrictoulon

Je présume qu'il y a un hic dans ma proposition, sans quoi job75 l'aurait proposée, non ?

J'ai testé 6 fois (avec 6, 9 et 12) , j'ai bien eu le masquage/démasquage.

 

[patricktoulon]

non il ne l'a pas vu
c'est vrai que j'ai essayé de combiner le like et le not hidden dans un seul booleen tout a l'heure mais n'ayant pas réussi ,j'ai laisser tomber , tu l'a fait avec le like hex c'est bien

 

[patricktoulon]

sinon tu prends les choses a l'envers aussi et sans hex
tu teste pas si la cellule like mais si l'argument du like like la cellule

Sub Bouton1_QuandClic4()
On Error Resume Next
Columns(46).Hidden = " 6 9 12 " Like "* " & [AE5] & " *" = Not Columns(46).Hidden
End Sub

LOL

purée j'imagine @pat66 devant sont écran
ils sont tous fous sur exceldownloads

 

[Staple1600]

Re

Fous, non.
Sous couvre-feux, oui.
Et je préfère mettre mon oeil dans VBE que de me fader Les Mystères de l'Amour ou Joséphine Ange à Marseille et tutti quanti

 

[Staple1600]

Re

En biaisant un petit coup.

Sub Bouton1_QuandClic4()
On Error Resume Next
Columns(46).Hidden = ([AE5] Mod 3 = 0) = Not Columns(46).Hidden
End Sub

Il y a évidemment un préliminaire à respecter

PS: Désolé pour le champ lexical, c'est le fait d'avoir penser aux Anges.


EDITION: Un autre biais

Sub Bouton1_QuandClic4()
On Error Resume Next
Columns(46).Hidden = ([AE5] \ 3) <= 4 = Not Columns(46).Hidden
End Sub

NB:
=>pat66
Ces deux dernières propositions c'est juste par pur divertissement.

 

[job75]

Re

En biaisant un petit coup.

En biaisant beaucoup car la demande porte sur 6, 9, 12 en AE5.

Pas sur <vide>, 0, 3, 15, 18, 21...

 

[Staple1600]

Re, Bonsoir job75

Le biais était de mettre une validation sur AE5
(n'autorisant que 6,9 et 12)

Sinon, la syntaxe* du message#13 pose problème ou pas?
(*issue de la tienne)

PS: Et les propositions après mon message#13 ne sont que du divertissement comme précisé.

 

[job75]

Le biais était de mettre une validation sur AE5
(n'autorisant que 6,9 et 12)

Allons allons la liste de validation autorise aussi une cellule vide

 

[Staple1600]

Re

Oui, je sais, c'est pour cela que ce n'est que du divertissement.

Et pour ma 1ère proposition (librement inspirée de la tienne)
J'avais raison d'émettre des doutes ou pas ?
(cf message#13)

 

[job75]

Sinon, la syntaxe* du message#13 pose problème ou pas?
(*issue de la tienne)

Aucune raison qu'elle pose problème, tu évites If Then, c'est classique et plus simple.

 

[Staple1600]

Re

=>job75
Merci de la précision.
Je me disais qu'il devait y avoir un loup comme tu ne l'avais pas proposé dans tes variantes.

 

[patricktoulon]

re:

Sub Bouton1_QuandClic4()
Columns(46).Hidden = ([AE5] Mod 3 = 0 And [AE5] <= 12 And [AE5] <> 0) = Not Columns(46).Hidden
End Sub

LOL!!!

 

[Staple1600]

Re

N'en jetez plus la cour est pleine

Sub Bouton1_QuandClic6()
On Error Resume Next
Columns(46).Hidden = [NOT(ISERROR(MATCH(AE5,{6;9;12},0)))] = Not Columns(46).Hidden
End Sub

 

[patricktoulon]