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. Bjr,

    merci d'envoyer l'exemple via cjoint.com

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

      voici l'exemple qui j'espère vous aidera
      merci d'avance
      0
      1. Euhhh c'est juste 2 boutons coloré qui ne font rien est-ce normal ?
        0
    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
      0
      1. 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
        1. et pour colorer tout le tableau
            Range("tablo").Interior.Color = CommandButton1.BackColor
          0
      2. 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
        1. est ce que tes macros fonctionnent sur un de tes fichiers?
          0
          1. oui elles fonctionnent.
            je n'ai pas de problème
            0
            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
              0
              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
                0
                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
                  0
                  1. une erreur que tu auras certainement corrigée

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