Find mais qui commence par..

Avec respect de la casse :

Sub zzz()
For Each c In [A1:A5]
If c Like "ent*" Then MsgBox c.Address
Next
End Sub

AV

Bonjour,

Il faut spécifier le paramètre: LookAt:=xlWhole

Selection.Find(What:="ent*", After:=ActiveCell, LookIn:=xlValues,
LookAt:=xlWhole).Activate

Par défaut, les paramètres conservent les valeurs de la précédente
recherche.

Cordialement JB

Bonjour

Excel vba, j'utilise Find dans une recherche, mais si je mets Find("Ent*" ) je trouve
entraide
entrée
mais aussi
rentrée
etc
comment préciser : tous les mots qui commencent par "ent"
merci

--
Pierre CFI
MVP Microsoft Access

oui, au fond , mais cette méthode n'est-elle pas plus lente qu'un find (sur qq milliers de ligne ?
je vais tester

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news: ON1WZCJ2GHA.4476@TK2MSFTNGP02.phx.gbl...

Avec respect de la casse :

Sub zzz()
For Each c In [A1:A5]
If c Like "ent*" Then MsgBox c.Address
Next
End Sub

AV

Find est bien sûr + rapide. Pour la casse, utiliser
MatchCase:=True/False

Selection.Find(What:="ent*", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True).Select

JB

oui, au fond , mais cette méthode n'est-elle pas plus lente qu'un find (sur qq milliers de ligne ?
je vais tester

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news: ON1W ZCJ2GHA.4476@TK2MSFTNGP02.phx.gbl...

Avec respect de la casse :

Sub zzz()
For Each c In [A1:A5]
If c Like "ent*" Then MsgBox c.Address
Next
End Sub

AV