Remplacer les cellules contenant #DIV/0!

aaa -  
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

A voir également:

3 réponses

ccm81 Messages postés 11033 Statut Membre 2 434
 
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
0
aaa
 
puis-je faire cela sans macro???

Merci d'avance
0
ccm81 Messages postés 11033 Statut Membre 2 434
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 434
 
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
0