Remplacer les cellules contenant #DIV/0!

Question

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



Configuration: Windows XP / Internet Explorer 8.0

ccm81 · Answer

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

ccm81 · Answer

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

ccm81 · Answer

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

Remplacer les cellules contenant #DIV/0!

3 réponses

Discussions similaires

Newsletters