XL 2013 Rechercher et remplacer par :

volwerik · 5 Juin 2020

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 · 5 Juin 2020

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

pierrejean · 5 Juin 2020

Bonjour volwerik

Utilisez plutot

VB:

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

volwerik · 5 Juin 2020

jmfmarques à dit:
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 · 5 Juin 2020

pierrejean à dit:
Bonjour volwerik

Utilisez plutot

VB:

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 ?

XL 2013 Rechercher et remplacer par :

volwerik

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

volwerik

XLDnaute Nouveau

volwerik

XLDnaute Nouveau

Discussions similaires