XL 2019 Condition avec Select case

pat66 · 21 Février 2021

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 · 21 Février 2021

Bonsoir

Ah je reconnais mon oeuf
Essaie ainsi

Code:

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

Staple1600 · 22 Février 2021

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 · 22 Février 2021

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 · 22 Février 2021

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

VB:

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 · 22 Février 2021

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 · 22 Février 2021

Re

En biaisant un petit coup.

VB:

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

VB:

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 · 22 Février 2021

Staple1600 à dit:
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 · 22 Février 2021

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 · 22 Février 2021

Staple1600 à dit:
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 · 22 Février 2021

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 · 22 Février 2021

Staple1600 à dit:
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 · 22 Février 2021

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 · 22 Février 2021

re:

VB:

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

LOL!!!

Staple1600 · 22 Février 2021

Re

N'en jetez plus la cour est pleine

VB:

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 · 22 Février 2021

XL 2019 Condition avec Select case

pat66

XLDnaute Impliqué

Staple1600

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires