Posez votre question Signaler

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

chossette9 3903Messages postés 20 avril 2009Date d'inscription 13 avril 2012Dernière intervention - Dernière réponse le 17 juin 2011 à 13:52

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 !

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

Suggestions

[VBA] LIKE "*...*" dans un Select Case
VBScript - Les structures conditionnelles » Articles
VBA Mise en Forme Conditionnelle (Résolu) » Forum
[VBA Word] : case à cocher (Résolu) » Forum
VBA sélection case Excel ds Userform (Résolu) » Forum
Excel-VBA instruction select case (Résolu) » Forum

Plus

Réponse

Ctesias 456Messages postés 16 mai 2011Date d'inscription 1 décembre 2011Dernière intervention 17 juin 2011 à 09:55

La réponse viens en testant =)

Ajouter un commentaire

Réponse

michel_m 7330Messages postés 2 janvier 2008Date d'inscription 30 mai 2012Dernière intervention 17 juin 2011 à 11:52

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)

Ajouter un commentaire

chossette9- 17 juin 2011 à 13:52

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.

Réponse

-1

chossette9 3903Messages postés 20 avril 2009Date d'inscription 13 avril 2012Dernière intervention 17 juin 2011 à 10:35

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

Ajouter un commentaire

Réponse

-1

Ctesias 456Messages postés 16 mai 2011Date d'inscription 1 décembre 2011Dernière intervention 17 juin 2011 à 10:35

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

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

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

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

Passage au tout numérique : quel coût pour les particuliers ?

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

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