Couleur de cellule excel office 365 Résolu

Question

Bonjour,

J'aimerais donne la couleur d'une cellule en fonction d'un code Hexa qui est dans une autre cellule j'ai tester plusieurs chose mais rien ne fonctionne

pouvez vous m'aidez ?

Voici mon code qui ne marche pas bien sur.

Sub coloriage()
Dim i As Long

For i = 2 To 6000

Range(A & "i").Interior.Color = Range(G & "i")
Next

End Sub

Par avance merci

cordialement

herve

Macintosh / Firefox 109.0

M-12 · Answer

Bonjour,

Teste plutôt comme ceci avec tes couleur sous la forme --> FFFF00 par exemple

Sub coloriage()
  Dim i As Long
  For i = 2 To 6000
    Range("A" & i).Interior.Color = "&H" & Range("G" & i)
  Next
End Sub

Le Pingou · Answer

Bonjour,

Une possibilité:

Sub coloriage()
Dim i As Long
For i = 2 To 6000
    Range("A" & i).Interior.ColorIndex = Range("G" & i).Interior.ColorIndex
Next
End Sub

Couleur de cellule excel office 365

2 réponses

Discussions similaires

Newsletters