Reproduire mise en forme cellule dans un rectangle
Fermé
BastienVrc
-
4 juil. 2018 à 14:21
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 5 juil. 2018 à 14:41
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 5 juil. 2018 à 14:41
A voir également:
- Reproduire mise en forme cellule dans un rectangle
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Aller à la ligne dans une cellule excel - Guide
- Reproduire la mise en forme word - Accueil - Microsoft Office
- Mise a jour chrome - Accueil - Applications & Logiciels
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 740
5 juil. 2018 à 01:59
5 juil. 2018 à 01:59
Bonsoir Bastien
Si tu veux de l'aide il faut fournir ton fichier. A poster sur mon-partage.fr, faire créer un lien que tu copies et reviens coller ici.
Cdlmnt
Via
Si tu veux de l'aide il faut fournir ton fichier. A poster sur mon-partage.fr, faire créer un lien que tu copies et reviens coller ici.
Cdlmnt
Via
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
5 juil. 2018 à 14:41
5 juil. 2018 à 14:41
Bonjour,
Insérer une forme dans la feuille2. La cellule de référence dans la feuille 1 est A1 à adapter
Se mettre sur la feuille1 faire Alt F11 pour accéder à l’éditeur et mettre dans le module de la feuille1 ce code:
Insérer une forme dans la feuille2. La cellule de référence dans la feuille 1 est A1 à adapter
Se mettre sur la feuille1 faire Alt F11 pour accéder à l’éditeur et mettre dans le module de la feuille1 ce code:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Feuil2.Shapes(1).DrawingObject.Interior.ColorIndex = Range("A1").Interior.ColorIndex End If End Sub