Substitution de chaîne à l'aide d'Excel VBA (similaire à la fonction SUBSTITUTION d'Excel)

Question

J'ai une question concernant la modification de chaîne. Supposons que nous avons la chaîne suivante: 4155595208 ***
dans la cellule A1 (10 nombres et 3 départs).

Maintenant je voudrais substituer ces 3 étoiles avec un champ vide et obtenir le résultat dans la cellule B1 (ainsi je veux obtenir le résultat 4155595208). Si j'ai utilisé une fonction Excel intégrée dans des conditions normales, je taperais la chose suivante dans la cellule B1:
= substitute (A1, « * », « »)

Maintenant, je voudrais faire la même chose en utilisant Excel VBA. Chaque fois que j'ai essayé d'exécuter le code suivant cependant, j'ai reçu le message d'erreur: "Erreur d'exécution '13': Type incompatibilité".

sous test()
cellules (1,2) = "= substitute (M2," * " "")"
end sub

Je suppose que le problème peut se produire à cause de la bande de guillemets mais je ne sais pas. Quelqu'un pourrait-il m'aider avec cette affaire?

Merci à l'avance,
Laszlo

Answer 1

Vous devez utiliser des guillemets doubles doubles lors de l'écriture des formules

Cells(1, 2) = "=SUBSTITUTE(M2,"" * "","""")"