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

3 réponses

  1. 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
    1. aaa
       
      puis-je faire cela sans macro???

      Merci d'avance
      0
  2. 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
  3. 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