Couleur de cellule excel office 365

Résolu
herve -  
 herve -

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

A voir également:

2 réponses

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 

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
0
herve
 

Merci le code fonctionne parfaitement il faut juste que je corrige les valeur Hexa en enlevent le # qui et devant mais avec un droit (G &"i";6)dans le classeur tout fonctionne merci beaucoup.

0
Réponse 2 / 2
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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
0
herve
 

Merci de votre retour mais Dans ce code je prend la couleur de la cellule.

nonn pas la valeur Hexa contenue en txt dans la cellule.

M12 m'as trouver la solution.

Merci encore de votre aide.

cordialement

herve

0