Effacer le contenu des cellules avec Excel VBA

Imaginez que vous deviez parcourir une liste et marquer des valeurs incorrectes afin de supprimer ces valeurs incorrectes ultérieurement. Comme vous ne souhaitez pas supprimer immédiatement les valeurs incorrectes pour des raisons de sécurité, marquez toutes les entrées incorrectes. Pour ce faire, attribuez la couleur de police ROUGE.

Sub ContenuPoliceRouge()
Dim Cellule As Range
For Each Cellule In ActiveSheet.UsedRange
If Cellule.Font.ColorIndex = 3 Then
Cellule.ClearContents
End If
Next Cellule
End Sub

Définissez d’abord une variable du type de données Plage. Utilisez ensuite une boucle For Each, qui recherche toutes les cellules de la zone utilisée et vérifie la mise en forme des cellules. La propriété UsedRange vous aide à déterminer la zone utilisée sur la feuille de calcul. Les valeurs sont supprimées de toutes les cellules formatées avec la couleur de police ROUGE et correspondent donc à l’indice de couleur 3.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x