Comment conserver la mise en forme des cellules tout en faisant référence à des cellules situées dans une autre feuille ?
Généralement, lorsqu’une cellule fait référence à une autre, elle ne conserve que sa valeur. Dans cet article, toutefois, je vous propose un code VBA qui permet de conserver à la fois la valeur et la mise en forme de la cellule référencée — le tout étant automatiquement mis à jour dès que la cellule source est modifiée, comme le montre la capture d’écran ci-dessous.
Conserver la mise en forme des cellules tout en faisant référence à une autre cellule avec VBA
Conserver la mise en forme des cellules tout en faisant référence à une autre cellule avec VBA
Pour réaliser cette opération, il vous suffit d’exécuter le code ci-dessous.
1. Ouvrez le classeur que vous utilisez, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Ensuite, double-cliquez sur le nom de la feuille dans laquelle vous souhaitez insérer la référence de cellule, dans le volet Projet - ProjetVBA, afin d’afficher un module vierge. Dans cet exemple, j’insère la référence de la cellule A1 dans la feuille Feuil1. Voir la capture d’écran :
2. Collez le code ci-dessous dans votre script, puis adaptez la référence de la cellule unique spécifiée selon vos besoins dans le code VBA.
VBA : conserver la mise en forme et les valeurs tout en faisant référence à une autre cellule
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubRemarque : A1 est la cellule de référence, B1 dans la Feuil2 est la cellule que vous souhaitez lier à la cellule de référence, tout en conservant des valeurs et une mise en forme identiques à celles de A1 dans Feuil1.
Ainsi, lorsque vous modifiez les valeurs ou la mise en forme de la cellule A1 dans Feuil1, la cellule B1 dans Feuil2 sera mise à jour après un double-clic sur la cellule de référence.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels