Cloer une image avec d'autres cellules

[guy72]

Bonjour,

J'ai ce code qui me permets de copier les cellules de "O5 à AA5 de la feuille WS2300" à la feuille "Janvier" dans les cellules AF à AR, là je n'ai pas de problème.

Mais maintenant, il y a une image dans cellule Q5 et cette image ne ce copie pas dans la feuille "Janvier" en cellule AH

Sub WS_2300()

Dim FeWS230 As Worksheet
Dim FeJanvier As Worksheet
Dim Source As Range
Dim Colonne As String

Set FeWS2300 = Worksheets("WS2300")
Set FeJanvier = Worksheets("Janvier")

With FeWS2300

'Vent
Set Source = .Range("O5:AA5"): Colonne = "AF"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Sheets("Janvier").Select
End With
End Sub

En bref, je ne souhaite plus copier la valeur de la cellule Q5, mais l'image qui est à sa place.

Avec un copier/coller, ça fonctionne mais avec VBA.

J'ai changé :

Set Source = .Range("O5:AA5"): Colonne = "AF"
FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
Resize(Source.Rows.Count, Source.Columns.Count).Copy = Source.Sélect
Mais ça ne fonctionne pas

Merci de votre aide

Cordialement

Guy

 

[Robert]

Re : Cloer une image avec d'autres cellules

Bonjour Guy, bonjour le forum,

Une image ne fait pas partie du contenu de la cellule. Elle est posée dessus en tant qu'objet. Pour la copier/coller il te faut sélectionner l'objet et non pas la cellule dans laquelle elle se trouve. Si tu cliques dessus tu repèreras son nom dans la zone de nom. Dans mon exemple elle s'appelle Picture 1. Tu adapteras...

Sub Macro1()
Sheets("WS2300").Shapes("Picture 1").Select
Selection.Copy
Sheets("Janvier").Select
Range("AH5").Select
ActiveSheet.Paste
End Sub

 

[jmps]

Re : Cloer une image avec d'autres cellules

Bonjour Guy, Robert,

Je crois que Robert a déjà tout dit pour la solution mais je réagis juste pour dire qu'avec cette couleur dans l'éditeur VBA ça risque de buguer 😛

On connaissait les mécontents du TGV, voilà les grévistes de la couleur 😀

Au fait... Il était pas orange le premier TGV Paris-Lyon ? 😎

 

[guy72]

Re : Cloer une image avec d'autres cellules

Bonjour Robert,
Pourtant quand je fait copier 05:AA5 et que je colle le tout en O35, je colle bien mon image ?

 

[jmps]

Re : Cloer une image avec d'autres cellules

Peux-tu mettre un fichier exemple sans données confidentielles ?
Ça serait plus facile pour tester.