Comment savoir si une cellule est colorer ou non sur VBA Résolu/Fermé

Question

Bonjour, 

Je suis actuellement en train de faire un ordonnancement au plus tard, j'utilise donc différentes couleurs afin d'obtenir un graphique clair afin de connaitre l'ordre de passage des pièces en fonction des machines.
Donc lorsque je remplis mes cellules de différentes couleurs, je souhaite tester au préalable les cellules afin de savoir si celle-ci sont déjà colorer ou non, si elles le sont je souhaite les décaller à droite des dites cellules colorés.
J'espère avoir été assez claire, ce n'est pas très évident d'expliquer ca par écrit.

Merci d'avance

Configuration: Windows 7 / Mozilla 11.0

cs_Le Pivert · Accepted Answer

Bonjour,

Sub test()
 Dim Col As Range, C As Range
 For Each Col In Range("A1:A50").Columns ' a adapter
  For Each C In Col.Cells
  If C.Interior.ColorIndex = "-4142" Then 'pas de couleur
  'rien
  Else
  'mettre le code de décalage à droite a la place des MsgBox
   MsgBox C.Interior.ColorIndex
   MsgBox C.Column
   MsgBox C.Row
  End If
  Next
 Next
 End Sub

Comment savoir si une cellule est colorer ou non sur VBA

1 réponse

Discussions similaires