Discussion :

[athos7776]

Bonjour, je viens de lire ce topic qui pourrait me parraitre très utile dans ma situation.

J'ai une macro qui me permet de copier les cellules d'un Workbook dans un autre Workbook. Par contre, celles ci contiennent parfois des valeurs #DIV/0!...j'aimerais pouvoir les faire disparaitre, mais je ne suis pas capable de les supprimer. Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Cell As Range
Dim Trouve As Boolean
Trouve = False
 
For Each Cell In ActiveSheet.Range("A1:C108")
    If Cell.Value = "#DIV/0!" Then Trouve = True
Next
 
If Trouve = True Then
    Cell.Value = 0
End If

Merci beaucoup!

[jolop35]

Bonjour

Pour effacer le contenu des cellules contenant une erreur

Code :

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

1
2
3
4
5
Sub MACRO_TEST()
Dim Plg As Range
Set Plg = ActiveSheet.Range("A1:C108")
Plg.SpecialCells(xlCellTypeFormulas, 16).ClearContents
End Sub

Pour effacer les formules Erreur et les cellules contenant le résultat
d'un coller/spécial Valeurs seules.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MACRO_TESTa()
Dim aWS As Worksheet
Dim PlgF As Range
Dim PlgC As Range
Set aWS = ActiveSheet
With aWS
    Set PlgF = _
    .Range("A1:C108").SpecialCells(xlCellTypeFormulas, 16)
    Set PlgC = _
    .Range("A1:C108").SpecialCells(xlCellTypeConstants, 16)
    Union(PlgF, PlgC).ClearContents
End With
Set PlgF = Nothing: Set PlgC = Nothing: Set aWS = Nothing
End Sub

J.L