Remplacer une chaîne de caractères par le caractère vide

Résolu/Fermé
muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017 - Modifié le 3 nov. 2017 à 16:32
muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017 - 3 nov. 2017 à 16:52
Bonjour,
je voudrais éviter d'utiliser des boucles (car il y'en a tellement dans mon code)...cependant j'arrive pas à remplacer dans toute ma feuille de calcul la chaine de caractères voulue par le caractère vide.
Voici mon bout de code ci-dessous

Cells.Replace What:="EST" Or "EDT", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

j'avoue que j'ai trouvé sur le net et j'ai juste adapté (court et que je croyais simple) mais lors de la compilation j'ai l'erreur 13 type mismatch qui est généré.

Bon weekend
Merci d'avance

1 réponse

jordane45 Messages postés 38273 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 6 novembre 2024 4 695
3 nov. 2017 à 16:38
Bonjour,

Sub test()


Cells.Replace What:="EST", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="EDT", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


2
muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017
3 nov. 2017 à 16:52
Merci Jordane :)
ça marche bien
Un problème de moins pour lundi.

Merci
0