Beth a demandé comment copier la mise en forme des couleurs d’une cellule externe dans une cellule du classeur actuel. Malheureusement, il n’existe aucun moyen intrinsèque de le faire en utilisant les fonctionnalités de liaison d’Excel. Vous pouvez cependant copier la mise en forme d’un classeur à un autre à l’aide d’une macro.

À titre d’exemple, considérons le code de macro suivant:

Dim lMyColor As Long Workbooks.Open Filename:="C:\mypath\myworkbook.xlsm"

lMyColor = Range("A1").Interior.Color Windows("TargetBook.xlsm").Activate Range("E8").Interior.Color = lMyColor

Ce code ouvre un classeur (myworkbook.xlsm) et récupère la couleur de remplissage de la cellule A1. Il revient ensuite au classeur cible (à partir duquel ce code est supposé s’exécuter) et remplit la couleur de remplissage dans la cellule E8.

Cette approche fonctionne très bien si vous copiez la couleur de remplissage d’une seule cellule vers une seule cellule. Si, à la place, vous souhaitez copier une plage de cellules ou copier plus de mise en forme que la couleur de remplissage, vous serez peut-être mieux servi avec cette approche:

Workbooks.Open Filename:= "C:\mypath\myworkbook.xlsm"

Range("A1:B6").Copy Windows("TargetBook.xlsm").Activate Range("E8").PasteSpecial Paste:=xlPasteFormats, _   Operation:=xlNone, SkipBlanks:=False, _   Transpose:=False

Encore une fois, ce code ouvre le classeur externe. Il utilise ensuite la méthode .Copy pour une plage de cellules (A1: B6). Après avoir basculé vers le classeur cible, les formats de ces cellules sont collés dans les cellules à partir de E8.

Si vous décidez d’utiliser un code comme celui-ci, vous pouvez le placer dans la macro Auto_Open du classeur cible. Bien sûr, vous devez modifier le code afin qu’il fasse référence au chemin d’accès et aux noms de classeur appropriés, ainsi qu’aux plages source et cible souhaitées.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11169) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Referencing_External_Cell_Colors [Référencement des couleurs de cellules externes].