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

2 réponses

  1.
    M-12 Messages postés 1349 Statut Membre 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
    1. 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
  2. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     

    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
    1. 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

Discussions similaires

Changer la couleur d'une cellule selon son texte
fantomex -
Picton -

5 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Excel et cellules en couleur si texte
Jimmy -
Chap -

10 réponses