vérifier si un mot se trouve dans une cellule

Bonjour,

Avec une plage nommée "noms" dans laquelle s'effectue la
recherche. La macro active les cellules :
Sub Toto()
Range("planning_formateur!d1").Value = cformateur
Application.Goto Reference:="noms"
n = Application.CountIf(Selection, "*" & cformateur & "*")
For c = 1 To n
Selection.FindNext(After:=ActiveCell).Activate
Next
End Sub

Camille

-----Message d'origine-----
Grace à un formulaire je récupère un nom;
je souhaite ensuite tester un ensemble de range pour
vérifier si elles contiennent ce nom.

Mais dans certaines cellules le nom sera associé à un
autre texte.
Comment faire pour récupérer aussi ces cellules.

exemple :
Range("planning_formateur!d1").Value = cformateur ne
marche pas si
cformateur = Vinci
range("planning_formateur!d1").Value contient Vinci_Hugo

.

Merci pour la réponse, je teste de suite ...

-----Message d'origine-----
Bonjour,

Avec une plage nommée "noms" dans laquelle s'effectue la
recherche. La macro active les cellules :
Sub Toto()
Range("planning_formateur!d1").Value = cformateur
Application.Goto Reference:="noms"
n = Application.CountIf(Selection, "*" & cformateur
& "*")

For c = 1 To n
Selection.FindNext(After:=ActiveCell).Activate
Next
End Sub

Camille

-----Message d'origine-----
Grace à un formulaire je récupère un nom;
je souhaite ensuite tester un ensemble de range pour
vérifier si elles contiennent ce nom.

Mais dans certaines cellules le nom sera associé à un
autre texte.
Comment faire pour récupérer aussi ces cellules.

exemple :
Range("planning_formateur!d1").Value = cformateur ne
marche pas si
cformateur = Vinci
range("planning_formateur!d1").Value contient Vinci_Hugo

.

.

Salut Guy,

'************************
Option Compare Text

'Comparaison de deux séquences de caractères.
'Utilisez Option Compare pour choisir entre comparaison binaire et
'comparaison de texte. Avec le paramètre Français (France),
'les comparaisons binaires distinguent les majuscules des minuscules,
'ce qui n'est pas le cas des comparaisons de texte.

Sub yyy()
Set rng = Range("feuil1!a1")
rng_ad = rng.Address
cr = "Vinci"
If rng Like "*" & cr & "*" Then
MsgBox "la cellule " & rng_ad & _
" contient le mot < " & cr & " >"
Else
MsgBox "la cellule " & rng_ad & _
" ne contient pas le mot < " & cr & " >"
End If
Set rng = Nothing
End Sub
'**********************

--
Amicalement

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


"Guy Tardin" <g.tardin@wanadoo.fr> a écrit dans le message de
news:0aab01c351cc$39c75990$a401280a@phx.gbl...
Grace à un formulaire je récupère un nom;
je souhaite ensuite tester un ensemble de range pour
vérifier si elles contiennent ce nom.

Mais dans certaines cellules le nom sera associé à un
autre texte.
Comment faire pour récupérer aussi ces cellules.

exemple :
Range("planning_formateur!d1").Value = cformateur ne
marche pas si
cformateur = Vinci
range("planning_formateur!d1").Value contient Vinci_Hugo