[VBA] LIKE "*...*" dans un Select Case
Résolu
chossette9
Messages postés
6855
Statut
Contributeur
-
chossette9 Messages postés 6855 Statut Contributeur -
chossette9 Messages postés 6855 Statut Contributeur -
Bonjour,
j'ai actuellement un fichier avec une macro qui me permet de traiter mon classeur.
A un endroit de mon code, j'ai :
Est-ce possible de remplacer ceci par un :
Merci d'avance pour vos réponses !
j'ai actuellement un fichier avec une macro qui me permet de traiter mon classeur.
A un endroit de mon code, j'ai :
If Cells(k, 5) Like "*Document commercial*" Then ... ElseIf Cells(k, 5) Like "*Indiquez un titre autorisé*" Then ... End If
Est-ce possible de remplacer ceci par un :
Select case Cells(k,5) Case "*Document commercial*" ... Case "*Indiquez un titre autorisé*" ... End Select?
Merci d'avance pour vos réponses !
A voir également:
- Excel vba select case like
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
4 réponses
Bonjour Chossette,
Non, ce n'est malheureusement pas possible
pour éviter une suite de IF tu pourrais peut-^tre feinter
Ps: n'oublie pas quand m^me le "=" après case ;o)
Non, ce n'est malheureusement pas possible
pour éviter une suite de IF tu pourrais peut-^tre feinter
Sub chossette()
liste = Array("Document commercial", "Indiquez un titre autorisé")
For cptr = 0 To UBound(liste)
If Cells(2, 5) Like "*" & liste(cptr) & "*" Then
retour = liste(cptr)
Exit For
End If
Next
Select Case retour
Case Is = "Document commercial"
MsgBox "commercial"
Case Is = "Indiquez un titre autorisé"
MsgBox "titre"
Case Else
MsgBox "perdu"
End Select
End Sub
Ps: n'oublie pas quand m^me le "=" après case ;o)
Ok michel, je testerais cette méthode et te dirais si c'est bon.
pour ta remarque sur le = dans le Select case, ce n'est valable que si je mets le "Is", mais je ne suis pas obligé de mettre le "Is" ?
Du coup, je vais quand même mettre la question en résolue, car tu as bien répondu à la quesiton initiale.
Cordialement.
pour ta remarque sur le = dans le Select case, ce n'est valable que si je mets le "Is", mais je ne suis pas obligé de mettre le "Is" ?
Du coup, je vais quand même mettre la question en résolue, car tu as bien répondu à la quesiton initiale.
Cordialement.