Excel couleur cellules

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

  1. http://cjoint.com/?3DArAAXeyhH

    voici l'exemple qui j'espère vous aidera
    merci d'avance
    1. Euhhh c'est juste 2 boutons coloré qui ne font rien est-ce normal ?
  2. 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
    1. 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
      1. 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
        1. 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
          1. 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
            1. une erreur que tu auras certainement corrigée

              Private Sub CommandButton2_Click()   
                Selection.Interior.Color = CommandButton2.BackColor   
              End Sub 
          2. où est le tableu exemple ?
            quand je retourne au 1er envoi, il y a toujours 2 boutons
            merci encore de votre aide
            1. 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