Je voudrais coller une image à un endroit précis d'une feuille, alors je
sélectionne une cellule et je copie, mais l'image n'est jammais exactement
au meme emplacement,
comment faire?
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
JB
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactem ent au meme emplacement, comment faire?
Merci d'avance pour les réponses
Thierry
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai()
ActiveSheet.Shapes(1).Top = [B10].Top
ActiveSheet.Shapes(1).Left = [B10].Left
End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je
sélectionne une cellule et je copie, mais l'image n'est jammais exactem ent
au meme emplacement,
comment faire?
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactem ent au meme emplacement, comment faire?
Merci d'avance pour les réponses
Thierry
Thierry LANG
Merci de vous etre penché sur mon probleme, mais contrairement à votre exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une autre. Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then Sheets("Photos joueurs").Select ActiveSheet.Shapes("Z-BACH").Copy Sheets("Joueur").Select Range("A1").Select ActiveSheet.Paste ActiveSheet.Shapes(1).Top = [A1].Top ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactement au meme emplacement, comment faire?
Merci d'avance pour les réponses
Thierry
Merci de vous etre penché sur mon probleme, mais contrairement à votre
exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une
autre.
Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or
l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then
Sheets("Photos joueurs").Select
ActiveSheet.Shapes("Z-BACH").Copy
Sheets("Joueur").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Shapes(1).Top = [A1].Top
ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1158501863.170394.129330@e3g2000cwe.googlegroups.com...
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai()
ActiveSheet.Shapes(1).Top = [B10].Top
ActiveSheet.Shapes(1).Left = [B10].Left
End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je
sélectionne une cellule et je copie, mais l'image n'est jammais exactement
au meme emplacement,
comment faire?
Merci de vous etre penché sur mon probleme, mais contrairement à votre exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une autre. Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then Sheets("Photos joueurs").Select ActiveSheet.Shapes("Z-BACH").Copy Sheets("Joueur").Select Range("A1").Select ActiveSheet.Paste ActiveSheet.Shapes(1).Top = [A1].Top ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactement au meme emplacement, comment faire?
Merci d'avance pour les réponses
Thierry
Thierry LANG
Je viens de trouver mon erreur; merci encore
"Thierry LANG" a écrit dans le message de news: 450d7205$0$15873$
Merci de vous etre penché sur mon probleme, mais contrairement à votre exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une autre. Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then Sheets("Photos joueurs").Select ActiveSheet.Shapes("Z-BACH").Copy Sheets("Joueur").Select Range("A1").Select ActiveSheet.Paste ActiveSheet.Shapes(1).Top = [A1].Top ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactement au meme emplacement, comment faire?
Merci d'avance pour les réponses
Thierry
Je viens de trouver mon erreur; merci encore
"Thierry LANG" <colasni@evhr.net> a écrit dans le message de news:
450d7205$0$15873$4d4eb98e@read.news.fr.uu.net...
Merci de vous etre penché sur mon probleme, mais contrairement à votre
exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une
autre.
Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or
l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then
Sheets("Photos joueurs").Select
ActiveSheet.Shapes("Z-BACH").Copy
Sheets("Joueur").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Shapes(1).Top = [A1].Top
ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1158501863.170394.129330@e3g2000cwe.googlegroups.com...
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai()
ActiveSheet.Shapes(1).Top = [B10].Top
ActiveSheet.Shapes(1).Left = [B10].Left
End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je
sélectionne une cellule et je copie, mais l'image n'est jammais
exactement
au meme emplacement,
comment faire?
"Thierry LANG" a écrit dans le message de news: 450d7205$0$15873$
Merci de vous etre penché sur mon probleme, mais contrairement à votre exemple, chez moi cela ne fonctionne pas aussi bien.
Voici ma macro, je copie l'image sur une feuille et je la colle sur une autre. Dans ma macro elle devrait etre en haut et à gauche de la cellule A1, or l'image est plutot entre A1 et B1 ou meme franchement dans B1 ..........
If Range("B1").Value = "BACH" Then Sheets("Photos joueurs").Select ActiveSheet.Shapes("Z-BACH").Copy Sheets("Joueur").Select Range("A1").Select ActiveSheet.Paste ActiveSheet.Shapes(1).Top = [A1].Top ActiveSheet.Shapes(1).Left = [A1].Left
End If
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?jrqd7v72V4
Sub essai() ActiveSheet.Shapes(1).Top = [B10].Top ActiveSheet.Shapes(1).Left = [B10].Left End Sub
Cordialement JB
Bonjour à tous
Je voudrais coller une image à un endroit précis d'une feuille, alors je sélectionne une cellule et je copie, mais l'image n'est jammais exactement au meme emplacement, comment faire?
