Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut caroual,
Une macro vraiment très expérimentale :
Sub Va_Chercher() For Each image In ActiveSheet.DrawingObjects If image.BottomRightCell.Address = "$A$1" Then image.Select Selection.Cut [a2].Select ActiveSheet.Paste End If Next End Sub
Serge
"caroual" a écrit dans le message de news: buhi29$trq$
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
Salut caroual,
Une macro vraiment très expérimentale :
Sub Va_Chercher()
For Each image In ActiveSheet.DrawingObjects
If image.BottomRightCell.Address = "$A$1" Then
image.Select
Selection.Cut
[a2].Select
ActiveSheet.Paste
End If
Next
End Sub
Serge
"caroual" <caroual2@wanadoo.fr> a écrit dans le message de news:
buhi29$trq$1@news-reader5.wanadoo.fr...
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule
pour la déplacer dans une autre.
Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy
range("a2").paste
Sub Va_Chercher() For Each image In ActiveSheet.DrawingObjects If image.BottomRightCell.Address = "$A$1" Then image.Select Selection.Cut [a2].Select ActiveSheet.Paste End If Next End Sub
Serge
"caroual" a écrit dans le message de news: buhi29$trq$
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
isabelle
bonjour caroual,
je crois qu'il faut passer par la collection,
For Each d In ActiveSheet.DrawingObjects If d.Name = "zaza" Then 'exécuter la copie End If Next
isabelle
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
bonjour caroual,
je crois qu'il faut passer par la collection,
For Each d In ActiveSheet.DrawingObjects
If d.Name = "zaza" Then
'exécuter la copie
End If
Next
isabelle
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule
pour la déplacer dans une autre.
Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy
range("a2").paste
For Each d In ActiveSheet.DrawingObjects If d.Name = "zaza" Then 'exécuter la copie End If Next
isabelle
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
michdenis
Bonjour Caroual,
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image '----------------------------- Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1") Set Source = .Range("C1") Set Destination = .Range("G25") For Each S In .Shapes If S.TopLeftCell.Address = Source.Address Then S.Left = Destination.Left S.Top = Destination.Top End If Next End With Set Source = Nothing: Set Destination = Nothing End Sub '-----------------------------
Salutations!
"caroual" a écrit dans le message de news:buhi29$trq$ Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
Bonjour Caroual,
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image
'-----------------------------
Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1")
Set Source = .Range("C1")
Set Destination = .Range("G25")
For Each S In .Shapes
If S.TopLeftCell.Address = Source.Address Then
S.Left = Destination.Left
S.Top = Destination.Top
End If
Next
End With
Set Source = Nothing: Set Destination = Nothing
End Sub
'-----------------------------
Salutations!
"caroual" <caroual2@wanadoo.fr> a écrit dans le message de news:buhi29$trq$1@news-reader5.wanadoo.fr...
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule
pour la déplacer dans une autre.
Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy
range("a2").paste
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image '----------------------------- Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1") Set Source = .Range("C1") Set Destination = .Range("G25") For Each S In .Shapes If S.TopLeftCell.Address = Source.Address Then S.Left = Destination.Left S.Top = Destination.Top End If Next End With Set Source = Nothing: Set Destination = Nothing End Sub '-----------------------------
Salutations!
"caroual" a écrit dans le message de news:buhi29$trq$ Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
caroual
Bonjour Caroual,
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image '----------------------------- Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1") Set Source = .Range("C1") Set Destination = .Range("G25") For Each S In .Shapes If S.TopLeftCell.Address = Source.Address Then S.Left = Destination.Left S.Top = Destination.Top End If Next End With Set Source = Nothing: Set Destination = Nothing End Sub '-----------------------------
Salutations!
"caroual" a écrit dans le message de news:buhi29$trq$ Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
Ok merci avec toutes ces réponses je m'en suis sortie
Bonjour Caroual,
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image
'-----------------------------
Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1")
Set Source = .Range("C1")
Set Destination = .Range("G25")
For Each S In .Shapes
If S.TopLeftCell.Address = Source.Address Then
S.Left = Destination.Left
S.Top = Destination.Top
End If
Next
End With
Set Source = Nothing: Set Destination = Nothing
End Sub
'-----------------------------
Salutations!
"caroual" <caroual2@wanadoo.fr> a écrit dans le message de news:buhi29$trq$1@news-reader5.wanadoo.fr...
Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule
pour la déplacer dans une autre.
Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy
range("a2").paste
Merci pour votre aide
caroual2@wanadoo.fr
Ok merci avec toutes ces réponses je m'en suis sortie
En supposant que tu connaisses la cellule de départ où est l'image et la cellule où tu veux déplacer l'image '----------------------------- Sub DéplacerImage()
Dim Source As Range, Destination As Range
With Worksheets("Feuil1") Set Source = .Range("C1") Set Destination = .Range("G25") For Each S In .Shapes If S.TopLeftCell.Address = Source.Address Then S.Left = Destination.Left S.Top = Destination.Top End If Next End With Set Source = Nothing: Set Destination = Nothing End Sub '-----------------------------
Salutations!
"caroual" a écrit dans le message de news:buhi29$trq$ Bonsoir,
Je voudrais récupérer par macro une image se trouvant dans une cellule pour la déplacer dans une autre. Je ne trouve pas le code qui le traduise :
Range("a1").image(dont je ne connais pas le nom).copy range("a2").paste
Merci pour votre aide
Ok merci avec toutes ces réponses je m'en suis sortie
