Caractère générique en vbasic ?

Bonjour,

voir réponse du message "vérifier si un mot se trouve dans une cellule" de Guy Tardin
du 24.07.2003

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"dintar" <formation1@ifrance.com> a écrit dans le message de
news:0da801c351e0$76d2da80$a001280a@phx.gbl...
Bonjour à tous,
je me démène dans mes contradictions.

Je ne parviens pas à écrire la fonction suivante

Sub toto()
cformateur = "vinci"
If Range("feuil1!a2").Value = *cformateur* then
Range("feuil1!d5").Value = "bravo"
End If
End Sub

Comment expliquer à vbasic que la variable cformateur peut
ne pas être la totalité du contenu de la cellule.
l'* joker ne fonctionne pas tel que je l'utilise.

Merci de m'éclaircir !

Salut Dintar,
Avec l'opérateur Like :
Sub toto()
Dim cformateur As String
cformateur = "vinci"
If Range("A2").Value Like "*" & cformateur & "*" Then
Range("D5").Value = "bravo"
End If
End Sub

Avec la fonction InStr() :
Sub toto2()
Dim cformateur As String
cformateur = "vinci"
If InStr(Range("A2").Value, cformateur) <> 0 Then
Range("D5").Value = "bravo"
End If
End Sub

Avec la fonction Find de la feuille de calcul :
Sub toto3()
Dim cformateur As String
cformateur = "vinci"
If Application.WorksheetFunction.Find( _
cformateur, Range("A2").Value) <> 0 Then
Range("D5").Value = "bravo"
End If
End Sub

Hervé.

"dintar" <formation1@ifrance.com> a écrit dans le message news:
0da801c351e0$76d2da80$a001280a@phx.gbl...
Bonjour à tous,
je me démène dans mes contradictions.

Je ne parviens pas à écrire la fonction suivante

Sub toto()
cformateur = "vinci"
If Range("feuil1!a2").Value = *cformateur* then
Range("feuil1!d5").Value = "bravo"
End If
End Sub

Comment expliquer à vbasic que la variable cformateur peut
ne pas être la totalité du contenu de la cellule.
l'* joker ne fonctionne pas tel que je l'utilise.

Merci de m'éclaircir !

Bonjour,

Mais comment
connaître ces fonctions qui me semblent hermétiques mais
pourtant nécessaires.

Dans l'aide d'Excel...