Zoomer sur une cellule, puis revenir à l'affichage initial

Bon dimanche

Merci !

Et merci pour ton altruisme hors du commun.

Aaaaaaaarrrrrgh !

Je suis de retour à mon travail (où je suis sur Excel 2013), et la macro ne marche pas...

J'obtiens le message d'erreur suivant :

Erreur d'exécution '1004':

Impossible de lire la propriété Paste de la classe Pictures.

J'ai tenté de remplacer la déclaration As Picture par As Object, mais ça ne change rien...

Quand je clique sur le bouton Débogage de l'interface VBA, la ligne suivante est surlignée en jaune :

Set celz = ActiveSheet.Pictures.Paste(link:=True)

Que faire ?

Peux-tu faire passer un exemplaire allégé du classeur ?

Je peux, mais c'est pareil dans tous mes classeurs... (

Qu'est-ce que tu veux que j'allège : les données de la feuille ? Les autres feuilles ? Les autres macros ?

Tu élimines là où il y a des données que tu ne veux pas montrer, tu laisses une feuille ou deux maxi, c'est largement suffisant. Par contre, il vaut mieux laisser le code, que je vois s'il n'y a pas une interaction...

Mais auparavant, ayant émis l'hypothèse que 2013 ne supporte pas l'affectation simultanée de la copie à une variable objet, teste la version ci-dessous...

Conserve la déclaration As Object...

Sub ZoomCel()
    Dim slc$
    If celz Is Nothing Then
        Application.ScreenUpdating = False
        slc = Selection.Address
        Selection.Copy
        ActiveSheet.Pictures.Paste(link:=True).Select
        Set celz = Selection
        Application.CutCopyMode = False
        With celz
            .Width = .Width * zm
            .Height = .Height * zm
            .Left = (Application.Width - .Width) / 2
            .Top = (Application.Height - .Height) / 2
            .Interior.Color = RGB(255, 255, 153)
            .OnAction = "SuppriCelz"
        End With
        ActiveSheet.Range(slc).Select
    End If
End Sub

Re-

Ça y est, ça fonctionne !

En plaçant ton nouveau code dans un module sans aucune autre macro ni avant ni après, ça marche.

Donc merci encore !

Merci du retour, j'ai un problème similaire à régler sur un autre sujet... Je vais prendre la même méthode !

Bonne soirée.

:^)