Discussion :

[dubinou]

Bonjour,

J'essaye d'utiliser une macro simple qui me permet de supprimer automatiquement les #REF! de toutes les cellules contenant des formules avec des erreurs #REF!.
Malheureusement la macro ne marche pas. Elle ne fait rien du tout quand on la lance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Suppression_REF()
         Dim nm As Object
 
         ' recherche #REF! dans la feuille active
         For Each nm In ActiveSheet.Names
 
            ' ci trouve #REF! alors
            If InStr(1, nm.RefersTo, "#REF!") Then
 
               ' supprime "REF!
               nm.Delete
 
            End If
         Next
End Sub

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each nm In ActiveSheet.usedrange
If nm.texte = "#REF!" Then

[dubinou]

Ce nouveau code provoque une erreur d'exécution 438.

[joe.levrai]

Bonjour,

quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub toto()
Dim Cell As Range
    For Each Cell In Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas).Cells
        If Cell.Text = "#REF!" Then Cell.Clear ' ou delete, tu adaptes
    Next Cell
End Sub

[dubinou]

C'est pas complètement ça.
Je voudrais garder le contenu de la cellule et pas supprimer complètement tout son contenu.
Juste supprimer #REF! dans les formules contenu dans les cellules de telle sorte que les formules marche.

[joe.levrai]

euh ...

c'est pas une macro qu'il te faut, c'est simplement insérer une condition dans ta formule pour tester si elle est en erreur !

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(MOYENNE(A1;A4;A6);"")