XL 2016 VBA : Supprimer les valeurs des cellules non coloriées

[dav123]

Bonjour le forum,
Je suis à la recherche d'une ligne de commande VBA qui me permettrait de supprimer les valeurs des cellules non coloriées (sans fond) dans une plage de donnée (A1:V80).
Avez vous une solution ?
Par avance merci,
Bonne journée à tous

 

[phlaurent55]

Bonjour Dav,

avec ce code:

Sub effacer()
For Each cellule In Range("A1:V80")
If cellule.Interior.ColorIndex = xlNone Then cellule.Value = ""
Next cellule
End Sub

Remarque: ça ne fonctionnera pas si la coloration des cellules est issue d'une MFC
Dans ce cas il faudra utiliser la condition de la MFC dans la ligne qui efface les cellules.

à+
Philippe

 

[job75]

Bonjour dav123, Philippe,

Remarque: ça ne fonctionnera pas si la coloration des cellules est issue d'une MFC
Dans ce cas il faudra utiliser la condition de la MFC dans la ligne qui efface les cellules.

Ou utiliser DisplayFormat (sur Excel 2007 et versions ultérieures) :

Sub effacer()
For Each cellule In Range("A1:V80")
If cellule.DisplayFormat.Interior.ColorIndex = xlNone Then cellule = ""
Next cellule
End Sub

A+