Discussion :

[dcogez]

Bonjour,

Je souhaite effectuer diffrentes actions en fonction de la chaine de caractères (chaine1, chaine2, chaine3... jusqu'à chaine7) que je trouve dans une autre chaîne de caractères (chaine). Comment puis-je faire ça simplement ? Le select case est-il utilisable dans ce cas ?

J'essaierai bien ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If instr(chaine, chaine1) <> 0 then
...
Else
If instr(chaine, chaine2) <> 0 then
...
Else
If instr(chanie, chaine3) <> 0 then
...
end if
end if
end if

Quelqu'un aurait-il une méthode moins contraignante ?

Merci

[dcogez]

Merci pour cette réponse rapide.

J'ai mal préciser un point : la chaîne de caractère que je recherche (chaine1, chaine2...) est comprise dans l'autre chaine (chaine). C'est pour ça que dans mon exemple j'utilise le Instr.

Le select case peut-il tout de même fonctionner ?

[fred65200]

bonjour dcogez et bienvenu,
juste pour info les conditions if se structure comme suit.

Code :

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

1
2
3
4
5
6
7
If instr(chaine, chaine1) <> 0 then
...
ElseIf instr(chaine, chaine2) <> 0 then
...
ElseIf instr(chaine, chaine3) <> 0 then
...
end if

Cordialement

[ouskel'n'or]

Merci pour cette réponse rapide.

J'ai mal préciser un point : la chaîne de caractère que je recherche (chaine1, chaine2...) est comprise dans l'autre chaine (chaine). C'est pour ça que dans mon exemple j'utilise le Instr.

Le select case peut-il tout de même fonctionner ?

Non, si Chaine n'est qu'une partie de l'une ou l'autre chaîne (ce que j'avais shunté ).
La syntaxe proposée par Fred me paraît plus adaptée

Edit
Il serait d'ailleurs intéressant de savoir ce que tu fais si instr(chaine, chaine1) est vrai.
Et puis fais gaffe, dcogez, tu as mis Chanie dans le dernier test

[dcogez]

Merci.
Je ne connaissais pas le ElseIf.

[fred65200]

re
je pense que tu veux ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Chaine As String
Dim Chaine1 As String
Dim Chaine2 As String
Dim Chaine3 As String
Chaine = "Il fait beau aujourd'hui"
Chaine1 = "Il"
Chaine2 = "fait"
Chaine3 = "beau"
If InStr(Chaine, Chaine1) <> 0 Then MsgBox Chaine1 & " est dans " & Chaine
If InStr(Chaine, Chaine2) <> 0 Then MsgBox Chaine2 & " est dans " & Chaine
If InStr(Chaine, Chaine3) <> 0 Then MsgBox Chaine3 & " est dans " & Chaine
End Sub

@+

[ucfoutu]

Bonjour,

s'il y en a 7 à vérifier, il ne serait pas idiot de faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private Sub Command1_Click()
 Dim Chaine As String, i As Integer, alors As String
 Chaine = "Il fait beau aujourd'hui"
 Dim meschaines
 meschaines = Array("Il", "nounours", "fait", "coquin", "blabla", "beau", "pipeau") 
 For i = 0 To UBound(meschaines)
   alors = meschaines(i)
   MsgBox alors & " ===>>" & est_il_la(Chaine, alors)
 Next
End Sub
 
Private Function est_il_la(texte As String, quoi As String) As Boolean
  est_il_la = InStr(texte, quoi)
End Function