Supprimer un des mots d'une cellule

[Alexandra]

Bonjour,

J'aurais une autre question. Merci bien à Christophe pour sa réponse à ma précédente question.

Je dois parcourir un tableau avec une macro et changer les noms des cellules. J'ai des noms comme Germany Commissionaire, Sweden Commissionaire etc...et je dois les changer en Germany, Sweden...Evidemment je peux les chercher et les remplacer un à un. Mais, je me demande si il y a pas une méthode pour faire tous ceux-ci d'un coup comme par exemple la fonction MID dans Excel qui coupe le mot. Le problème est qu'ici ça ne marcherai pas, car les mots non pas tous la même longueur pour pouvoir les couper.

Si vous avez une idée dites-le-moi,

Merci bien d'avance.

Alex.

 

[Eric C]

Bonjour le forum
Bonjour Alex

Comme tu le dis si bien, il suffit de les chercher & de les remplacer.

Sub ChercheEtRemplaceAlex ()
Cells.Replace What:="Commissionaire", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
'qui n 'est autre que la macro obtenue par menu Edition / Remplacer.

Tu places ce code dans un module AltF11 Insertion Module

Bon Week-end à toutes & à tous
@ ++ Eric C