Discussion :

[christof27]

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.

[ucfoutu]

Bonjour,

Utilise la fonction IsError
et donne la valeur que tu veux à ta cellule ainsi testée si cette fonction renvoie True

EDIT :
ceci étant dit, je n'aime pas ce principe, qui consiste à soigner (mal.... donner une valeur = 1 ....!) un furoncle au lieu de s'en prendre à la cause (la furonculose) !

[christof27]

Bonjour uc,

merci, je vais tester tout cela.

Pour Ton information, la furonculose vient des gens qui ne renseignent pas correctement un formulaire WEB quand on leur demande une date de naissance (même si il est vrai, le Webmaster aurait du gérer toutes les possibilités de saisies). Je fais donc du mieux possible avec cette maladie

Voulant grouper les ages par 10, laisser du texte me planterai aussi mon groupement.

[Pierre Fauconnier]

Salut.

Il serait à mon avis plus intéressant de remplacer la valeur d'erreur par du vide, et d'identifier le vide au sein du TCD.

Cela étant, je suppose que #Valeur provient du résultat d'une formule, et il serait donc plus sage de suivre ucfoutu et de soigner la "furonculose" par une modification de la formule qui renvoie parfois #Valeur (utilisation de SI ou de tout autre test conditionnel).

Peux-tu donner la formule qui renvoie parfois cette erreur?

[christof27]

Bonjour pierre,

Ce n'est pas mon projet VBA, je n'accède pas au code à volonté, mais avec vos informations, je sais maintenant quoi faire.

Merci à vous 2