Discussion :

[redstoff]

bonjour je cherche à faire une commande du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
me.label1.backcolor = range("a1").interior.colorindex

le souci vient du fait que vb veut une valeur hexadécimal et que la fonction sur excel donne une valeur décimal.

donc comment faire pour obtenir même couleur sur mon label que sur ma cellule?

j'ai cherché mais je n'ai pas trouvé de solution à mon problème.

je me remet donc à vous et vos connaissance pour m'aider à trouver une solution.

merci

[Michel_M]

Bonjour,

cette pièce jointe pourra peu-être t'aider en te donnant la correspondance entre les codes de couleurs

[redstoff]

bonjour,
c'est un document tres utile et je m'en suis déjà servis mais il ne m'a pas aidé.

sais tu peux etre comment définir une variable en hexadécimal?

j'ai tenté de faire une commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
couleurhex = Hex(ActiveWorkbook.Colors(Range("a1").Interior.ColorIndex))
me.label1.backcolor = couleurhex

mais il y a une incompatibilité de type

[Philippe Tulliez]

Bonjour,
Utilise la propriété Color et non ColorIndex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Label1.BackColor = Range("a1").Interior.Color

[redstoff]

mais lol comment j'ai honte de ne pas avoir trouvé ça.

je te remercie grandement