Discussion :

[flamel]

Bonjour,

Je voudrais savoir si une sous-chaîne se trouve en entier dans une chaîne
Les instructions du genre' inst'r ne conviennent pas.
Merci si vous pouvez m'aider.

[casefayere]

Bonjour,
Une solution par formule :

Code :

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

=SI(ESTERREUR(TROUVE("ddDd";A1))=FAUX;"la sous chaine est présente";"pas de sous-chaine en bretagne")

la Bretagne, ça me faisait plaisir

[flamel]

Merci casefayere,

Mais c'est du langage macro et pas du VBA.
Comment le mettre en VBA ?

... er vivent,les Bretons !

[casefayere]

Tu as plusieurs solution, avec VBA :

- tu peux inserer la formule, toujours avec VBA, soit
avec formulaR1C1
si je reprends mon exemple

Code :

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

1
2
    range("B2").FormulaR1C1 = _
        "SI(ESTERREUR(TROUVE(""ddDd"";A1))=FAUX;""la sous chaine est présente"";""pas de sous-chaine en bretagne"")"

ou avec formulaLocal ou formula, là il faut que je regardes
-tu peux demander une réponse directe, soit dans une formule, soit dans un message ou autre, idem il faut que je regardes mais dis-en plus

Quelle option t'interesse ?

Excuses-moi, trop de chouchen, la formule

Code :

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

1
2
    range("B1").FormulaR1C1 = _
        "=IF(ISERROR(FIND(""ddDd"",RC[-1]))=FALSE,""la sous chaine est présente"",""pas de sous-chaine en bretagne"")"

[flamel]

Je veux savoir, si après avoir activé une cellule, sa valeur se trouve dans une liste donnée.

[casefayere]

Donc t ne cherches pas un bout de texte à l'intérieur d'un autre texte, tu veux savoir si le contenu d'une cellule se trouve parmi une liste.

Si c'est ça, ou se trouve ta liste ?

...si après avoir activé une cellule...

Donc avec l'évènement "change", faire un "find" ?

[flamel]

Voici, par exemple, ce que j'ai essayé, mais ça ne donne que l'existence du premier caractère et pas du tout l'ensemble de la chaîne.

Code :

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

If InStr("GrisRougeVertBleuCyanMagentaJaune", xCamaieu)

etc.
si xCamaieu = "Vert", ou "Magenta ", c'est bon, etc., autrement c'est faux.

Je n'ai pas à savoir l'emplacement, mais si seulement ça existe.

En VBA, il n'y a pas d'instruction du genre 'contain' ?

[pgz]

Bonjour.

L'instruction Instr devrait convenir, mais avec tous ces arguments

Code :

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

If InStr(1,"GrisRougeVertBleuCyanMagentaJaune", xCamaieu) Then

Cordialement,

PGZ

[casefayere]

Sinon, je pensai à une autre solution, à adapter bien sur, juste pour se servir de "like"

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro3()
Dim xcamaieu As String
xcamaieu = "Vert"
Range("A1") = "GrisRougeVertBleuCyanMagentaJaune"
If Range("A1") Like "*" & xcamaieu & "*" Then
MsgBox "la sous chaine est présente"
Else
MsgBox "pas de sous-chaine"
End If
End Sub

Re, je viens de revoir un excellent tuto, a relire flamel :
http://silkyroad.developpez.com/VBA/...racteres/#LI-D

dont ceci

La recherche est sensible à la casse si le dernier argument "compare" (facultatif) est égal à 0, ou omis.
(Casse: Signifie que la recherche n'est pas sensible aux majuscules et aux minuscules)
VB6-VBA


MsgBox InStr(1, "Developpez", "Z", 0) 'renvoie 0
MsgBox InStr(1, "Developpez", "z", 0) 'renvoie 10

La recherche n'est pas sensible à la casse si le dernier argument "compare" est égal à 1
VB6-VBA


MsgBox InStr(1, "Developpez", "z", 1) 'renvoie 10
MsgBox InStr(1, "Developpez", "Z", 1) 'renvoie 10

[Theze]

Bonjour,

Si Instr ne convient pas, regarde du coté de "Like" (voir dans l'aide). Pour une recherche en tenant compte ou non de la casse, définir en tête de module "Option Compare" (Binary ou Text) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub RechercherChaine()
 
    Dim Texte As String
    Dim Chaine As String
 
    Texte = "Ici, c'est ma chaîne principale où doit s'effectuer la recherche du mot"
 
    'les astérisques permettent la chaîne dans le texte, en ôtant l'un
    'ou l'autre la chaîne est recherchée soit en dédut soit en fin du texte
    Chaine = "*doit s'effectuer*"
    MsgBox Texte Like Chaine
 
End Sub

Hervé.

Oups,

désolé, je n'ai pas fait attention à la réponse donné par casefayere avec Like

Bonne journée à toutes et tous.

Hervé.

[pgz]

Bonjour.

La solution avec LIKE fonctionne bien. Mais Instr aussi, la preuve

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Flamel()
Dim sCouleur As String, sListe As String
 
sListe = StrConv("GrisRougeVertBleuCyanMagentaJaune", vbUpperCase)
 
sCouleur = "BLeU"
Debug.Print sCouleur & " : " & IIf(InStr(1, sListe, StrConv(sCouleur, vbUpperCase)) > 0, "OK", "KO")
 
sCouleur = "VertDeGris"
Debug.Print sCouleur & " : " & IIf(InStr(1, sListe, StrConv(sCouleur, vbUpperCase)) > 0, "OK", "KO")
 
End Sub

on obtient dans la fenêtre d'exécution

BLeU : OK
VertDeGris : KO

Le pb est que si l'on teste sCouleur = "VertBleu", la réponse sera OK. Pour éviter ce pb,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Flamel2()
Dim sCouleur As String, sListe As String
 
sListe = StrConv("|Gris|Rouge|Vert|Bleu|Cyan|Magenta|Jaune|", vbUpperCase)
 
sCouleur = "BLeU"
Debug.Print sCouleur & " : " & IIf(InStr(1, "|" & sListe, StrConv(sCouleur, vbUpperCase) & "|") > 0, "OK", "KO")
 
sCouleur = "VertBleu"
Debug.Print sCouleur & " : " & IIf(InStr(1, "|" & sListe, StrConv(sCouleur, vbUpperCase) & "|") > 0, "OK", "KO")
 
End Sub

On obtient alors

BLeU : OK
VertBleu : KO

On peut bien-sûr adopter le même amendement pour la solution LIKE.

Bon dimanche, et, comme dirait casefayere, doucement sur la sous-chaîne!

PGZ

[flamel]

Merci à tous.
Problème résolu.
Tout est bien.
Cordialement.