Remplacer les cellules contenant #DIV/0!
aaa
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je voudrais remplacer toutes les cellules contenant soit #DIV/0! soit #N/A soit FAUX par 0,
à l'aide d'une amcro VBA.
Merci d'avance
Je voudrais remplacer toutes les cellules contenant soit #DIV/0! soit #N/A soit FAUX par 0,
à l'aide d'une amcro VBA.
Merci d'avance
3 réponses
-
bonjour
es tu sûr de vouloir faire ça avec une macro?
si oui peut être ceci
Public Sub InitErr() For Each c In Selection If IsError(c.Value) Then c.Value = 0 Else If c.Value = False Then c.Value = 0 End If End If Next c End Sub
bonne suite -
ou si tu ne veux traiter que les erreurs DIV/0 et #NA
Public Sub InitErr() For Each c In Selection If IsError(c.Value) Then errval = c.Value If errval = CVErr(xlErrDiv0) Or errval = CVErr(xlErrNA) Then c.Value = 0 End If Else If c.Value = False Then c.Value = 0 End If End If Next c End Sub
bonne suite -
oui, mais
il te faut une colonne supplémentaire
si on suppose que les cellules concernées sont en A5:Axx
B5=SI(ESTERREUR(A5);0;SI(NON(A5);0;A5))
à tirer vers le bas
puis sélectionner B5:Bxx
Copier/collage spécial/Valeurs sur A5:Axx
pour ce qui est de la macro
Alt-F11
Insertion/module
Copier/coller le code de la macro
Revenir sur la feuille
Outils/Macro/macros
Selectionner la macro
Options/Raccourci clavier ctrl+i par exemple/OK
Utilisation
selectionner la plage à traiter/ctrl+i
bon courage