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
A voir également:

2 réponses

pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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