excel couleur cellules

Question

Bonjour, 
j'aurais besoin d'un petit coup de main :)
je voudrais trouver le code qui me permet d'attribuer une couleur (à partir d'un bouton control activex) à une cellule de fond dans n'importe laquelle d'un tableau.

je veux bien vous envoyer un exemple, mais je ne sais plus comment faire ?
merci d'avance, j'attends vos réponses


Configuration: Windows Vista / Firefox 11.0

Lentzouille · Answer

Bjr,

merci d'envoyer l'exemple via cjoint.com 

Cdt,

griffon · Answer

http://cjoint.com/?3DArAAXeyhH

voici l'exemple qui j'espère vous aidera
merci d'avance

griffon · Answer

oui en effet, les boutons ne sont actifs parce je ne sais pas écrire le code.
Il faudrait que quelque soit la cellule du tableau concernée, elle est le fond vert ou le fond bleu (selon que j'appuie sur l'un ou l'autre des boutons).

j'espère avoir été plus clair
merci encore

ccm81 · Answer

bonjour à tous les deux
une proposition pour colorer une cellule au hasard dans le tableau de la couleur du essai 
https://www.cjoint.com/?0DAshipdUoM 
bonne suite

griffon · Answer

Bonjour, merci pour la réponse mais je ne peux pas voir si ça marche !
les macros ne fonctionnent pas sur mon ordinateur alors qu'elles sont activées ?????
est-ce normal ?
merci

ccm81 · Answer

est ce que tes macros fonctionnent sur un de tes fichiers?

griffon · Answer

oui elles fonctionnent.
je n'ai pas de problème

ccm81 · Answer

je ne vois pas où se situe l'erreur
le plus simple, tu recopies mes macros dans le module de la feuille qui conteint les boutons

griffon · Answer

je reviens, et ça y est ça marche, mais ce n'est pas exactement ce que je cherche !
il faudrait que ce soit la cellule que je sélectionne qui se colore en fond de couleur et pas une cellule au hasard dans le tableau.

pardon si cela n'a pas été plus précis au départ
merci

ccm81 · Answer

bon, j'ai ajouté un bouton3 qui remet les couleurs du tableau à vide 

Private Sub CommandButton1_Click() 
  Selection.Interior.Color = CommandButton1.BackColor 
End Sub 

Private Sub CommandButton2_Click() 
  Selection.Interior.Color = CommandButton1.BackColor 
End Sub 

Private Sub CommandButton3_Click() 
  Range("tablo").Interior.ColorIndex = xlNone 
End Sub
RQ1. on n'a plus besoin de nommer la plage  
RQ2. on peut "sécuriser" l'exécution en ne colorant pas une cellule hors du tablo, si ça te dit, tu dis 

bonne suite

griffon · Answer

où est le tableu exemple ?
quand je retourne au 1er envoi, il y a toujours 2 boutons
merci encore de votre aide

ccm81 · Answer

je pensais que tu saurais ajouter tout seul un bouton.
la version "sécurisée" qui ne colore que des cellules sélectionnées du tableau
https://www.cjoint.com/?0DAsTcA4y15 

bon courage

griffon · Answer

Cette fois ci ça marche parfaitement !
merci beaucoup pour l'aide apportée, je vais adapter à mon application .........et j'espère réussir.
C'est super d'avoir des pros qui répondent si vite
A plus et merci encore

ccm81 · Answer

de rien, 
peux tu mettre le problème à Résolu ?

Excel couleur cellules

14 réponses

Discussions similaires

Newsletters