OVH Cloud OVH Cloud

rechercher remplacer

3 réponses
Avatar
huch
Bonjour

Pouvez-vous m'aider.
Sur XL2000 je cherche à faire par macro un "rechercher remplacer" qui
accepte le caractère * en jocker et qui ne remplace que la première
occurence trouvée dans la cellule.
Car en enregistrement macro j'obtiens cela,

Selection.Replace What:=quoi, Replacement:=parquoi,
LookAt:=xlPart,SearchOrder:=xlByColumns, MatchCase:=False

le jocker est accepté, mais toutes les occurences sont modifiées

Et si j'utilise la syntaxe suivante (qui viens de l'aide Xl), ça ne
prent pas le jocker.
ll = Replace(mot, quoi, parquoi, 1, 1, 0)

Merci de vos idées.

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

3 réponses

Avatar
Daniel
Bonjour.
Set c = Selection.Find("toto*")
If Not IsEmpty(c) Then
c.Value = "parquoi"
End If
Cordialement
Daniel
"huch" a écrit dans le message de news:

Bonjour

Pouvez-vous m'aider.
Sur XL2000 je cherche à faire par macro un "rechercher remplacer" qui
accepte le caractère * en jocker et qui ne remplace que la première
occurence trouvée dans la cellule.
Car en enregistrement macro j'obtiens cela,

Selection.Replace What:=quoi, Replacement:=parquoi,
LookAt:=xlPart,SearchOrder:=xlByColumns, MatchCase:úlse

le jocker est accepté, mais toutes les occurences sont modifiées

Et si j'utilise la syntaxe suivante (qui viens de l'aide Xl), ça ne prent
pas le jocker.
ll = Replace(mot, quoi, parquoi, 1, 1, 0)

Merci de vos idées.

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net




Avatar
huch
Merci beaucoup , j'essaye des que je peux




Daniel a couché sur son écran :
Bonjour.
Set c = Selection.Find("toto*")
If Not IsEmpty(c) Then
c.Value = "parquoi"
End If
Cordialement
Daniel
"huch" a écrit dans le message de news:

Bonjour

Pouvez-vous m'aider.
Sur XL2000 je cherche à faire par macro un "rechercher remplacer" qui
accepte le caractère * en jocker et qui ne remplace que la première
occurence trouvée dans la cellule.
Car en enregistrement macro j'obtiens cela,

Selection.Replace What:=quoi, Replacement:=parquoi,
LookAt:=xlPart,SearchOrder:=xlByColumns, MatchCase:úlse

le jocker est accepté, mais toutes les occurences sont modifiées

Et si j'utilise la syntaxe suivante (qui viens de l'aide Xl), ça ne prent
pas le jocker.
ll = Replace(mot, quoi, parquoi, 1, 1, 0)

Merci de vos idées.

-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net






--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net


Avatar
huch
merci
J'ai testé et un peu adapté



Daniel avait prétendu :
Bonjour.
Set c = Selection.Find("toto*")
If Not IsEmpty(c) Then
c.Value = "parquoi"
End If
Cordialement
Daniel
"huch" a écrit dans le message de news:

Bonjour

Pouvez-vous m'aider.
Sur XL2000 je cherche à faire par macro un "rechercher remplacer" qui
accepte le caractère * en jocker et qui ne remplace que la première
occurence trouvée dans la cellule.
Car en enregistrement macro j'obtiens cela,

Selection.Replace What:=quoi, Replacement:=parquoi,
LookAt:=xlPart,SearchOrder:=xlByColumns, MatchCase:úlse

le jocker est accepté, mais toutes les occurences sont modifiées

Et si j'utilise la syntaxe suivante (qui viens de l'aide Xl), ça ne prent
pas le jocker.
ll = Replace(mot, quoi, parquoi, 1, 1, 0)

Merci de vos idées.

-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net






--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net