Discussion :

[ottoH]

Bonjour !

Je voudrais faire une comparaison d'une variable string (designation)avec une chaîne de caractères, et pour cela j'utilise like (que j'ai déjà utilisé auparavant dans mon programme et cela fonctionne).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
select case designation
Case designation Like "Management" Or designation Like "management"
        Nb_Management = Val(Workbooks(nom_FP).Worksheets("F (1)").Cells(curs_2, 28).Value)
        skip = True
        Range(Cells(curs_2, 1), Cells(curs_2, 50)).Delete
    Case designation Like "AQ*"

Voici mon code. Je sais qu'à un moment précis, à l'entrée dans le case, designation ="Management", et d'ailleur, si je selectionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

designation Like "Management" Or designation Like "management"

j'ai un petit message me disant que l'expression est vraie.

Or pdt l'execution, excel passe directement au case suivant, qui est faux, comme le reste, et finit donc sur le case else, mais ce n'est pas ce que je veux.
Une idée ?

[parmi]

Bonjour,

Voir l'aide sur Select Case
Il est bien stipulé que Like n'est pas géré...

(sic)
opérateur de comparaison
Caractère ou symbole indiquant une relation entre plusieurs valeurs ou expressions. Il s'agit notamment des opérateurs inférieur à (<), inférieur ou égal à (<=), supérieur à (>), supérieur ou égal à (>=), différent de (<>) et égal (=). Les opérateurs de comparaison Is et Like peuvent également être utilisés. N'oubliez pas que les opérateurs Is et Like ne peuvent servir d'opérateurs de comparaison dans une instruction Select Case.

[Marc-L]

Bonjour,

mon idée est l'instruction Select Case n'est pas du tout respectée ‼

Exemple extrait de l'aide en ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Select Case Number
    Case 1 To 5
    Debug.Print "Entre 1 et 5"
 
    Case 6 To 8 
    Debug.Print "Entre 6 et 8"
 
    Case Is > 8
    Debug.Print "Supérieur à 8"
End Select

L'expression évaluée dans le Select Case n'a donc pas à être répétée dans les lignes Case …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[EngueEngue]

change tes case par des if...

[casefayere]

Bonjour,

Plutot que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case designation Like "Management" Or designation Like "management"

Comme EngueEngue, je préconise les "if", en ajoutant ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
......IF Ucase(designation) Like Ucase("management") then
........

[ottoH]

Ok merci pour ces réponses rapides et claires. J'avais bien entendu essayé sans répéter le variable sur laquelle le case est effectué, mais avec le like, c'était peine perdu (en tout cas l'erreur était là bien claire ). Je n'avais pas regardé en effet dans l'aide du case, merci donc.
Je vais faire avec les if, particulièrement plébiscités, bien que mettre des elsif à la pelle ( je dois vérifier que designation soit différent de 5 chaînes de caractères différents) ne me soit pas franchement immédiate.

Merci donc, et bonne soirée.

[Philippe Tulliez]

Bonjour,
En faisant un Select Case True cela fonctionne parfaitement avec Like
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TestLike()
 Dim designation As String
 designation = "Ceci est un management"
 '  designation = "Ceci est un texte"
 Select Case True
  Case designation Like "*Management*" Or designation Like "*management*"
   MsgBox "management se trouve dans la chaîne " & designation
  Case Else
   MsgBox "management ne se trouve pas dans la chaîne " & designation
 End Select
End Sub

Si la casse ne doit pas être sensible je travaillerais avec cette instruction UCASE(Designation) Like "*management*" comme préconisé par Dominique