Effacer un mot ecrit plusieurs fois

Bonjour,

une petite question, voila si dans une feuille je dis si dans colonne "A" ce trouve le mot "lui" alors dans colonne "B" écrire le mot "moi".

Admettons que dans A1 A2 A3 se trouve le mot "lui" donc dans B1 B2 B3 s'écrit "moi" 3 fois donc. Je voudrais savoir s'il est possible d'écrire une seul fois le mot "moi" en B1 et effacer les autres mots.

Merci d'avance pour vos réponses

Cordialement

Salut,

code à adapter en fonction de tes besoins.

++

Bonjour,

merci pour ta réponse j'ai essayé ton code mais je ne dois pas l'adapter correctement je pense

dans ma feuille j'ai mis ce code qui ajoute des No de tel sous conditions

'******************************************************
'AJOUTE DANS LA COLONNE COMMENTAIRE LES No DE TÉLÉPHONE
'******************************************************
 Range("x5:x500").FormulaR1C1 = "=IF(RC[-20]=""F-MARS"",""Tel: (877) 631-7333"",IF(RC[-20]=""F-OPTIM"",""Tel: (1-800)363-7617"",""""))"

 Call Unique

j'ai plusieurs cellules avec le même numéro

donc j'ai rajouté ton code comme suis

Sub Unique()
Dim myRange As Range
Set myRange = Cells.Find("Tel: (877) 631-7333", , xlValues, xlWhole, , xlNext)
If Not myRange Is Nothing Then
Cells.Replace what:="Tel: (877) 631-7333", replacement:=""
myRange = "Tel: (877) 631-7333"
End If
End Sub

mais cela ne supprime pas les doublons et ne garde pas le premier surement une erreur de ma part

Cordialement

Salut,

remplace xlWhole par xlPart.

Bonjour Game Over,

Apparemment, le problème ne se situe pas sur la recherche mais sur l’identification de la chaine de caractères avec la fonction Replace.

xlPart serait donc à placer dans l’instruction

Cells.Replace what:="Tel: (877) 631-7333", replacement:="", lookat:=xlPart

A+

Bonjour frangy et merci...

à la lecture de ton post, j'ai repensé le processus et j'ai aussi le sentiment de ne pas avoir correctement évalué le problème...

Pour ma part, un fichier serait le bienvenu.

Bonjour,

J'ai remplacé xlWhole par xlPart tout a l'air de fonctionner parfaitement je vais essayer aussi l'autre solution et adapter le code pour le 2 Eme No de tél.

je tenais à vous remercier tous les deux de vous être penché sur mon probléme

Cordialement