Rechercher une chaine dans une autre

[beegees]

Salut tout le monde,

Avec VBA, j'aimerais rechercher une chaine dans une chaine :

A1 = "12 juin 2006"

Si dans A1 il y a le mot "Juin" alors autrement.

C'est faisable en VBA ?

Merci d'avance pour l'aide.

beegees

 

[Guest]

Re : Rechercher une chaine dans une autre

Bonjour beegees,

Instr donne la position de départ d'une chaine dans une autre

If instr(1,Range("A1").text,"juin")>0 Then
 
Else
 
End if

Ou pour des dates

If Month(RAnge("A1"))=6 then
 
Else
 
end if

A bientôt

 

[pierrejean]

Re : Rechercher une chaine dans une autre

bonjour beegees

if Instr(Range("A1"),"Juin")<> 0 then
....
else
......
end if

Edit : Salut hasco

 

[job75]

Re : Rechercher une chaine dans une autre

Bonjour Beegees,

Ecrire en VBA :

If IsNumeric(Application.Search("juin", [A1])) Then
------------
Else
-------------
End If

A+

Salut les VBAistes, ça se bouscule

Edit : Instr(Range("A1"),"Juin")<> 0 ne fonctionne pas si A1 contient une valeur d'erreur...

 

[beegees]

Re : Rechercher une chaine dans une autre

Salut tout le monde,

Un tout GRAND merci pour votre aide, votre réponse à comme d'habitude résolue mon problème.

Encore un tout grand merci à vous tous.

beegees

 

[STephane]

Re : Rechercher une chaine dans une autre

bonjour

allez j'y vais de ma solution.

Public Function string_IsInString_3(ChaineCherchee As Variant, ChaineMere As String) As Boolean
string_IsInString_3 = (Split(ChaineMere, ChaineCherchee)(0) = ChaineMere)
End Function

Sub string_IsInString_3_DEMO()
MsgBox string_IsInString_3("4", "143")
End Sub