Excel couleur cellules

griffon -  
ccm81 Messages postés 11033 Statut Membre -
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

14 réponses

Lentzouille Messages postés 728 Statut Membre 64
 
Bjr,

merci d'envoyer l'exemple via cjoint.com

Cdt,
0
griffon
 
http://cjoint.com/?3DArAAXeyhH

voici l'exemple qui j'espère vous aidera
merci d'avance
0
Lentzouille Messages postés 728 Statut Membre 64
 
Euhhh c'est juste 2 boutons coloré qui ne font rien est-ce normal ?
0
griffon
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
et pour colorer tout le tableau
  Range("tablo").Interior.Color = CommandButton1.BackColor
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
griffon
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
est ce que tes macros fonctionnent sur un de tes fichiers?
0
griffon
 
oui elles fonctionnent.
je n'ai pas de problème
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
griffon
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
une erreur que tu auras certainement corrigée

Private Sub CommandButton2_Click()   
  Selection.Interior.Color = CommandButton2.BackColor   
End Sub 
0
griffon
 
où est le tableu exemple ?
quand je retourne au 1er envoi, il y a toujours 2 boutons
merci encore de votre aide
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
griffon
 
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
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
de rien,
peux tu mettre le problème à Résolu ?
0