XL 2013 Rechercher et remplacer par :

[volwerik]

Bonjour,

J'ai réalisé ce code avec l'enregistrement automatique d'excel pour sélectionner une plage de cellule et remplacer la valeur #VALEUR! par rien cependant ce code quand je l'execute ne fonctionne pas et je n'ai pas de message d'erreur.

Range("C8:BBB500").Select
Selection.Replace What:="#VALEUR!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Avez-vous une idée d'où cela peut provenir ?

Merci par avance,

 

[jmfmarques]

Bonjour
Ce qu'il te faut corriger/compléter, c'est la formule qui conduit à cet affichage.

 

[pierrejean]

Bonjour volwerik

Utilisez plutot

For Each cel In Range("C8:BBB500")
  If IsError(cel.Value) Then cel.Value = ""
Next

 

[volwerik]

Bonjour
Ce qu'il te faut corriger/compléter, c'est la formule qui conduit à cet affichage.

Oui je sais mais je viens récupérer les données d'un autre fichier et les importer dans un nouveau. Cela peut résoudre mon problème mais je veux comprendre pourquoi le code ci-dessus ne fonctionne pas. Merci de ton retour en tout cas.

 

[volwerik]

Bonjour volwerik

Utilisez plutot

For Each cel In Range("C8:BBB500")
  If IsError(cel.Value) Then cel.Value = ""
Next

Ce code fonctionne bien, le seul problème c'est le temps d'exécution qui est très très long sur ma plage de données. Tu aurais une solution alternative ?