Intervertir couleur de police et couleur de remplissage Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
gloub
Membre impliqué
Membre impliqué
Messages : 1'153
Inscrit le : 17 juillet 2007
Version d'Excel : 2003 sur PC + 365 sur Mac

Message par gloub » 12 novembre 2014, 16:56

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 !
Modifié en dernier par gloub le 12 novembre 2014, 17:38, modifié 1 fois.
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 12 novembre 2014, 17:26

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
Avatar du membre
gloub
Membre impliqué
Membre impliqué
Messages : 1'153
Inscrit le : 17 juillet 2007
Version d'Excel : 2003 sur PC + 365 sur Mac

Message par gloub » 12 novembre 2014, 17:37

Testé...et approuvé !

Merci Banzai – si je peux t'appeler par ton prénom ;o)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message