Reproduire mise en forme cellule dans un rectangle
Fermé
BastienVrc
-
4 juil. 2018 à 14:21
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 5 juil. 2018 à 14:41
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 5 juil. 2018 à 14:41
A voir également:
- Reproduire mise en forme cellule dans un rectangle
- Mise en forme conditionnelle excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Signification rectangle avec croix dedans ✓ - Forum Samsung
- Si cellule contient texte alors ✓ - Forum Excel
- Verrouiller cellule excel - Guide
2 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
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
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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
