[VBA] LIKE "*...*" dans un Select Case Résolu

Question

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 !


Configuration: Windows XP / Firefox 4.0.1

Ctesias · Answer

La réponse viens en testant =)

chossette9 · Answer

Oui c'est pas faux, mais j'aurais aimé avoir l'avis d'experts avant :D

Ctesias · Answer

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

michel_m · Answer

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)

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

4 réponses

Discussions similaires

Newsletters