Sujet Précédent Sujet Suivant

Couleur de cellule excel office 365

Résolu/Fermé
herve - 4 févr. 2023 à 17:15
 herve - 5 févr. 2023 à 17:46

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 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
4 févr. 2023 à 18:03

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
5 févr. 2023 à 17:44

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 12116 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 4 juillet 2024 1 442
4 févr. 2023 à 18:13

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
5 févr. 2023 à 17:46

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

Un site pour avoir une clé Microsoft office 365
nat -
Nat -

4 réponses