Copier/coller image de cellule masquée

Bonjour à tous,

Pas spécialement à l'aise encore avec le langage VBA, je cherches à faire un copier/coller d'une image, cependant l'image se trouve dans des lignes que je souhaites qu'elles restent masquées. Je souhaiterai que les lignes coller soient visibles après les lignes masquées.

ci joint un fichier type

Merci d'avance à ceux qui pourront m'aider

Bonjour,

Est-ce-que tu as essayé une macro du genre:

Sub CopierImage()
    ActiveSheet.Shapes("Image 3").Copy
    ActiveSheet.Range("E20").PasteSpecial
End Sub

En espèrant que cela t'aide ...

Bonjour,

Merci James007 pour le code, mais quand je masques mes lignes (4 à 13) et active la macro sa me copies un carré blanc avec écrit " impossible d'afficher l'image".

Je souhaites garder mes premières lignes masquées et copier l'image qui se trouve à côté. As tu une autre idée ?

Re,

Tu pourrais tester le code suivant :

Sub CopierImage()
    Application.ScreenUpdating = False
    Rows("4:13").EntireRow.Hidden = False
    ActiveSheet.Shapes("Image 3").Copy
    ActiveSheet.Range("E20").PasteSpecial
    Range("E20").Select
    Rows("4:13").EntireRow.Hidden = True
    Application.ScreenUpdating = True
End Sub

En espèrant que cela t'aide ...

Bonjour, Salut James !

Essayer :

Sub test()
    With ActiveSheet
        Application.ScreenUpdating = False
        .Rows.Hidden = False
        .Shapes("Image 3").Duplicate.IncrementTop 100
        .Rows("4:14").Hidden = True
    End With
End Sub

Cordialement.

Bonsoir

Merci à vous 2! J'essaie ça dès demain

Bonne soirée