Intervertir couleur de police et couleur de remplissage

Bonjour,

Je voudrais créer une macro qui intervertisse, pour chaque cellule de la sélection, la couleur de la police et la couleur de remplissage,

Par exemple, du texte rouge sur fond blanc passerait en blanc sur fond rouge.

Malheureusement, mes connaissances en VBA sont trop limitées → quelqu’un pourrait-il m’aider siouplé ?

Merci !

Bonjour

A tester

Option Explicit

Sub Inversion()
Dim Coul As Long
Dim Cel As Range

  Application.ScreenUpdating = False
  For Each Cel In Selection
    Coul = Cel.Interior.Color
    Cel.Interior.Color = Cel.Font.Color
    Cel.Font.Color = Coul
  Next Cel
End Sub

Testé...et approuvé !

Merci Banzai – si je peux t'appeler par ton prénom ;o)

Rechercher des sujets similaires à "intervertir couleur police remplissage"