Bonjour,
Je cherche á effacer le contenu de cellules contenant une virgule dans un très grand tableau de données. J'ai utilisé le code suivant pour colorier ces cellules en rouge:
Sub MFC()
With ActiveSheet.Range("A1:CO1193").FormatConditions
.Delete
With .Add(xlTextString, TextOperator:=xlContains, String:=",")
.Interior.Color = RGB(255, 0, 0)
End With
End With
End Sub
Ce qui fonctionne bien! Puis, j'ai essayé d'effacer le contenu de ces cellules avec ce code:
Sub Clearcontent()
Dim cell As Range
For Each cell In Range("A1:CO1193")
If cell.Interior.Color = RGB(255, 0, 0) Then
cell.ClearContents
Else
End If
Next
End Sub
Rien ne se passe. Quelles est l'erreur et comment puis-je la corriger ?
Ci-dessus le tableau de données concerné.
Une belle soirée,
Vinciane