Coloriage forme libre par macro
Fermé
Pelouno
-
19 nov. 2014 à 14:05
Mike-31 Messages postés 18337 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 19 nov. 2014 à 17:39
Mike-31 Messages postés 18337 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 19 nov. 2014 à 17:39
A voir également:
- Coloriage forme libre par macro
- Mise en forme conditionnelle excel - Guide
- Libre office gratuit - Guide
- LibreOffice : l'alternative libre et gratuite à Microsoft Office - Télécharger - Suite bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
2 réponses
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
19 nov. 2014 à 17:13
19 nov. 2014 à 17:13
Bonjour,
Voici une instruction VBA qui fonctionne :
Dans la feuille active elle met la couleur de fond de la cellule A1 dans la forme "Forme libre 1"
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"
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 100
19 nov. 2014 à 17:39
19 nov. 2014 à 17:39
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
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