XL 2019 Condition avec Select case

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #2

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

 

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 21 Février 2021

• #3

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

Pat

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Février 2021

• #4

Bonsoir pat66, JM,

Application.ScreenUpdating = False ne sert à rien ici :

VB:

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+

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 22 Février 2021

• #5

Bonjour Staple
Bonjour Job

cela fonctionne aussi, merci Job

bonne journée à tous les 2
Pat66

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Février 2021

• #6

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

VB:

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]"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Février 2021

• #7

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+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Février 2021

• #8

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 22 Février 2021

• #9

pat66 à dit:

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

Cliquez pour agrandir...

Pat66

pat66 à dit:

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Février 2021

• #10

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Février 2021

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Février 2021

• #12

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

Code:

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

ou aussi :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Février 2021

• #13

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.

VB:

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 22 Février 2021

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Février 2021

• #15

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

 

Vote positif 0 Vote négatif