OVH Cloud OVH Cloud

Macro/Recherche

3 réponses
Avatar
JB
Bonjour,

Pour resumer le probl=E8me, j'ai realiser une macro qui=20
devrait permettre d'effectuer une recherche de cellules=20
contenant une chaine de caract=E8re, comme suit:
If Worksheets.Cells.Value =3D "*AMP*" then
...

Or la formule "*AMP*" qui fonctionne dans une feuille=20
excel (Rechercher/...), ne donne aucun r=E9sultat dans la=20
macro. Y a t il d'autre possibilit=E9 d'effectuer la=20
recherche d'une chaine de caract=E8re parmis d'autres?

Merci pour tous vos conseils.
JB

3 réponses

Avatar
garnote
Salut JB,

Essaie ceci :

Sub Va_Chercher()
ici = ActiveCell
cherche = InStr(1, ici, "AMP", 0)
If cherche = 0 Then
MsgBox "Pas là."
Else
MsgBox "J'ai trouvé."
End If
End Sub

Serge

"JB" a écrit dans le message de news:
12ce801c3f6f0$0e83abc0$
Bonjour,

Pour resumer le problème, j'ai realiser une macro qui
devrait permettre d'effectuer une recherche de cellules
contenant une chaine de caractère, comme suit:
If Worksheets.Cells.Value = "*AMP*" then
...

Or la formule "*AMP*" qui fonctionne dans une feuille
excel (Rechercher/...), ne donne aucun résultat dans la
macro. Y a t il d'autre possibilité d'effectuer la
recherche d'une chaine de caractère parmis d'autres?

Merci pour tous vos conseils.
JB
Avatar
el_bodeguero
If Worksheets.Cells.Value Like "*AMP*" then...

"JB" a écrit dans le message de
news:12ce801c3f6f0$0e83abc0$
Bonjour,

Pour resumer le problème, j'ai realiser une macro qui
devrait permettre d'effectuer une recherche de cellules
contenant une chaine de caractère, comme suit:
If Worksheets.Cells.Value = "*AMP*" then
...

Or la formule "*AMP*" qui fonctionne dans une feuille
excel (Rechercher/...), ne donne aucun résultat dans la
macro. Y a t il d'autre possibilité d'effectuer la
recherche d'une chaine de caractère parmis d'autres?

Merci pour tous vos conseils.
JB
Avatar
JB
Les deux méthodes fonctionnent parfaitement...
Je pencherai du coté d'el bodeguero qui ne necessite que
de menues modifications.
Merci beaucoup.
Jb

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

Pour resumer le problème, j'ai realiser une macro qui
devrait permettre d'effectuer une recherche de cellules
contenant une chaine de caractère, comme suit:
If Worksheets.Cells.Value = "*AMP*" then
....

Or la formule "*AMP*" qui fonctionne dans une feuille
excel (Rechercher/...), ne donne aucun résultat dans la
macro. Y a t il d'autre possibilité d'effectuer la
recherche d'une chaine de caractère parmis d'autres?

Merci pour tous vos conseils.
JB
.