[VBA] LIKE "*...*" dans un Select Case

Résolu
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   -  
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

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:

4 réponses

Réponse 1 / 4
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
La réponse viens en testant =)
0
Réponse 2 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour Chossette,

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)
0
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
0
Réponse 3 / 4
chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
Oui c'est pas faux, mais j'aurais aimé avoir l'avis d'experts avant :D
-1
Réponse 4 / 4
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
Le mieux, c'ets de tester, et si ca marche pas, de demander aux experts" ou se trouve l'erreur et si ca peut marcher xD
-1