Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste

boudal

XLDnaute Nouveau
Bonjour tout le monde,
Je sollicite votre aide pour résoudre mon problème.
Je souhaiterais coller une image sur une colonne. J'ai un fichier avec deux feuilles de calcul : Feuil1 et Feuil2. Je veux copier l'image dans la feuil1 et la coller sur une certaines colonnes dans la feuil2.
Comme je suis novice avec VBA Excel, je fais un enregistrement de macro ensuite, j'apporte des modification (en ajoutant de boucle par exemple)
Lorsque je lance le code, tout va bien jusqu'à ce que j'ai une erreur à partir de la 5ème boucle au niveau de "ActiveSheet.Paste" me disant "La méthode Paste de la classe Worksheet a échoué".

Voici mon code :
Sub Ajouter_Image()
Dim cell As Range
Sheets("Feuil1").Select
ActiveSheet.Shapes.Range(Array("Image")).Select
Selection.Copy
Sheets("Feuil2").Select

For Each cell In Range("L34:L50")
cell.Select
ActiveSheet.Paste
Next cell
End
End Sub

Merci pour votre aide.
 

Staple1600

XLDnaute Barbatruc
Bonjour @boudal, le fil

Sans fichier exemple fourni, le code ci-dessous fonctionne
(avec un forme sur la feuille 1 aux dimensions standards d'une cellule)
Code:
Sub test_basique()
Dim shp As Shape, shpC As Shape
For i = 34 To 50
Set shp = Feuil1.Shapes(1)
shp.Copy
Application.Goto Feuil2.Range("L" & i)
ActiveSheet.Paste
Next
End Sub
 

Discussions similaires

Réponses
2
Affichages
179

Statistiques des forums

Discussions
313 285
Messages
2 096 819
Membres
106 754
dernier inscrit
Pbabar