Probleme foume remplacement

J'ai un autre probleme :

Ma formule pour remplacer un mot par rien :

Sub supprimer_anti-()
Range("B1:B14000").Replace What:="anti-", Replacement:="", LookAt:=xlPart
End Sub

fonctionne pas et me donne une erreur, je pense c'est parceque les cellules en question contiennet beacoup de caracteres et beaucoup de anti-

comment je peut faire pour le faire fonctionner sur ca ?

Merci beacoup

Bonjour,

chez moi, elle fonctionne parfaitement, j'ai juste modifié le nom de la macro :

Sub supprimer_anti()
Range("B1:B14000").Replace What:="anti-", Replacement:="", LookAt:=xlPart
End Sub

Le - n'est pas autorisé dans les noms de code

ca je l'ai corrigé, mais le probleme c'est le meme, qund le nombre de caracteres est elevé, la formule marche pas.

Exemple, essaie de l'appliquer sur :

anti-PP2A antibody, anti-Protein Phosphatase 2A antibody, anti-PP2CB antibody, anti-PPP2CB antibody, anti-Protein Phosphatase 2 antibody, anti-Catalytic Subunit Beta Isoform antibody, anti-Serine/threonine-protein phosphatase 2A antibody, anti-PPP2R5C antibody, anti-B' alpha regulatory subunit antibody, anti-B56G antibody, anti-IMYPNO1 antibody, anti-KIAA0044 antibody, anti-MGC23064 antibody, anti-PP2A B subunit B' gamma isoform antibody, anti-PP2A B subunit B56 gamma isoform antibody, anti-PP2A B subunit PR61 gamma isoform antibody, anti-PP2A B subunit R5 gamma isoform antibody, anti-PP2A subunit B B gamma isoform antibody, anti-PP2A subunit B B55 gamma isoform antibody, anti-PP2A subunit B PR55 gamma isoform antibody, anti-PP2A subunit B R2 gamma isoform antibody, anti-PR61G antibody, anti-Protein phosphatase 2 regulatory subunit B (B56) gamma isoform antibody, anti-Renal carcinoma antigen NY REN 29 antibody, anti-Serine/threonine protein phosphatase 2A 55 kDa regulatory subunit B gamma isoform antibody, anti-Serine/threonine protein phosphatase 2A 56 kDa regulatory subunit gamma isoform antibody

et supprimer les anti-

Ca donnera une erreur

Merci

Re-,

effectivement...

Une solution de raccro, qui pourrait être longue en fonction du nombre de cellules....

Sub supprimer_anti()
For Each cel In [B9:B22]
tout = Join(Split(cel, "anti-"))
cel.Value = tout
Next cel
End Sub

Merci ca marche trés bien

just un commentaire, ca bloque sur les #N/A , et ca fait une erreur, alors je les ai supprimé de mon tableau et la ca marche trés bien.

Merci beaucoup