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

  1. Lentzouille Messages postés 728 Statut Membre 64
     
    Bjr,

    merci d'envoyer l'exemple via cjoint.com

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

    voici l'exemple qui j'espère vous aidera
    merci d'avance
    0
    1. Lentzouille Messages postés 728 Statut Membre 64
       
      Euhhh c'est juste 2 boutons coloré qui ne font rien est-ce normal ?
      0
  3. 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
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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. ccm81 Messages postés 11033 Statut Membre 2 434
       
      et pour colorer tout le tableau
        Range("tablo").Interior.Color = CommandButton1.BackColor
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

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

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