Dans d’autres numéros de ExcelTips, vous apprenez à utiliser l’outil Appareil photo pour capturer des images dynamiques de différentes parties de votre feuille de calcul. Vous vous demandez peut-être comment utiliser le même type de fonctionnalité à partir de VBA.

La documentation sur la question n’est pas très claire, mais la macro suivante montre le processus général:

Sub DoCamera()

Dim MyPrompt As String     Dim MyTitle As String     Dim UserRange As Range     Dim OutputRange As Range

Application.ScreenUpdating = True

'Prompt user for range to capture     MyPrompt = "Select the range you would like to capture."

MyTitle = "User Input Required"

On Error Resume Next     Set UserRange = Application.InputBox(Prompt:=MyPrompt, _         Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)

If UserRange Is Nothing Then End     On Error GoTo 0

'Copy range to Clipboard as picture     UserRange.CopyPicture

'Prompt user for range to paste to     MyPrompt = "Select the range on which you would like to paste."

MyTitle = "User Input Required"

On Error Resume Next     Set OutputRange = Application.InputBox(Prompt:=MyPrompt, _         Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)

If OutputRange Is Nothing Then End     On Error GoTo 0

'Paste picture to output range     OutputRange.PasteSpecial     Selection.Formula = UserRange.Address End Sub

Cette macro vous invite à spécifier une plage à copier, puis la copie dans le Presse-papiers sous forme d’image et vous demande où la coller.

Une fois collée, la dernière ligne de la macro est la clé pour rendre la « photo » dynamique, tout comme cela se fait manuellement avec l’outil Appareil photo. La commande PasteSpecial colle réellement l’image et l’image collée reste sélectionnée. La définition de la propriété Formule pour la sélection (l’image) entraîne la nature dynamique du graphique.

_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 (10521) 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-Using_the_Camera_in_VBA [Utilisation de la caméra dans VBA].