Bonjour,

j'ai cherché sur le forum et je n'ai pas trouvé parmi la multitude de sujets :

Voici mon problème à priori très simple.
Je souhaiterai remplacer une valeur d'erreur par le chiffre 1 car j'ai besoin ensuite de faire des groupements dans des tableaux croisés dynamiques, voici le code concerné et le message d'erreur qui va avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For Each cellule In Selection
        cellule.Value = Replace(cellule, "#valeur!", "1000")
Next cellule
l'erreur est la suivante :
Erreur d'execution '13'
Incompatibilité de type
Le code marche en mettant du numérique ou du texte simple à la place du #valeur, je pense que le # génère cela. Je précise qu'il n'y a aucune formule dans les cellules car j'ai fait un copier / Coller valeur au préalable.

Merci d'avance pour votre aide.