Impossible de supprimer #VALEUR! par macro
Bonjour,
comment puis je supprimer par macro le contenu d'une colonne contenant #VALEUR! ?
J'ai essayé ceci
Columns("CE:CE").Select
Selection.Replace What:="#VALEUR!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Je précise que c' est une valeur brute et non pas une formule
Par contre quand je fais manuellement recherche et remplacer par "" cela fonctionne
Merci de votre aide
Bonjour,
Peut-être ainsi :
Columns("CE").SpecialCells(xlCellTypeConstants, 16).ClearContentsBonne journée
Bonjour,
cette macro fonctionne correctement chez moi. Peux-tu mettre un fichier dans lequel on peut reproduire le problème ?
Merci de vos réponses
@h2so4, voici un exemple du fichier en PJ
@cousinhub, j'ai un message d'erreur
Bonjour,
Sur ton fichier, mon code :
'On Error Resume Next
Columns("A").SpecialCells(xlCellTypeConstants, 16).ClearContentsfonctionne parfaitement..????
A la rigueur, tu rajoutes la gestion des erreurs "on error...."
Bonne journée
Bonjour,
le texte que tu cherches à supprimer est #VALEUR! mais pour VBA ta colonne A ne contient pas ce texte mais #VALUE! il est donc normal qu'il n'y ait rien de supprimé !
Bonjour,
@h2so4
Dans un classeur FR, c'est bien #VALEUR!
Bonne journée
Bonjour,
Dans un classeur FR, c'est bien #VALEUR!
certes mais pour VBA, il semblerait qu'il faille mettre #VALUE! pour supprimer #VALEUR! en français (ou dans toutes les langues). Ceci dit j'ai appris quelque chose aujourd'hui.
Re-,
Je confirme, ceci fonctionne également :
Columns("A:A").Replace What:="#VALUE!", Replacement:="", LookAt:=xlPartBonne journée
Merci pour ces réponses , j'avais aussi trouvé cela qui fonctionne
Dim Plg As Range
Set Plg = ActiveSheet.Range("CD:CE")
Plg.SpecialCells(xlCellTypeFormulas, 16).ClearContents
Euh.....
Quelle différence avec mon code (qui ne fonctionne pas), et le tien (qui fonctionnerait)?