Coloriage forme libre par macro

Pelouno -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Comment est-il possible de corréler le remplissage d'une cellule avec le remplissage d'une forme libre ?
Quelle sorte de macro peut aller chercher la couleur d'une cellule pour la donner à une forme libre ?

Cordialement.

(utilisation d'excel 7)

Windows 7 / excel 7

2 réponses

  1. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    Voici une instruction VBA qui fonctionne :
    ActiveSheet.Shapes("Forme libre 1").Fill.ForeColor.RGB = Range("A1").Interior.Color


    Dans la feuille active elle met la couleur de fond de la cellule A1 dans la forme "Forme libre 1"
    2
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonsoir,

    oui ou encore avec une variable en tête

    Sub Coloriage()
    Couleur = Sheets("Feuil1").Range("C2").Interior.Color
    Sheets("feuil1").Shapes("Forme libre 1").Fill.ForeColor.RGB = Couleur
    End Sub
    0