XL 2013 [Résolu] Image créer sur des références de cellule d'un fichier

[bellenm]

Bonjour à tous les internautes,

J'ai télécharger un fichier avec une image correspondant à des référence d'une partie du fichier mais je ne sais pas comment cela a été fait.
En fait il me faudrait la même chose mais sur d'autres cellules à savoir : "AF2:AP10"

Quelqu'un pourrait il m'aider ou mieux encore m'expliquer cette méthode!

Un grand merci d'avance.

Marc

 

[Jacky67]

Bonjour à tous les internautes,

J'ai télécharger un fichier avec une image correspondant à des référence d'une partie du fichier mais je ne sais pas comment cela a été fait.
En fait il me faudrait la même chose mais sur d'autres cellules à savoir : "AF2:AP10"

Quelqu'un pourrait il m'aider ou mieux encore m'expliquer cette méthode!

Un grand merci d'avance.

Marc

Bonjour,

1-Copier la plage "AF2:AP10"
2-Menu Accueil==>Développer la flèche sous "Coller'
3-Choisir ==> "En tant qu'image"==>coller comme image

 

[bellenm]

Bonsoir Jacky67,

Merci pour ta réponse rapide c'est une chose que je ne connaissais pas sous excel.

Merci beaucoup ça fonctionne super bien je t'en remercie

Marc

 

[bellenm]

Bonjour Jacky67, à tous,

Pourrais ton m'aider sur un petit problème pas grave.
L'image créer se place bien à la première manipulation ainsi que pour son retour en place via deux macos.
Le problème c'est qu'après lorsque je refait l'opération l'image se décale et descend de ± 1mm.
Ce qui fait au bout de plusieurs manipulation cela fait 5-6mm .

J'aimerais simplement que l'image se positionne à la même hauteur que la cellule "A2".
Voici les deux macro faisant le changement, l'image "jusque là tout vas bien et l'image c'est finis"

Sub LancerMatch()
'
' Macro Lancer match
'

'
    ActiveSheet.Unprotect
    ActiveSheet.Shapes.Range(Array("Picture 13")).Select
    Selection.ShapeRange.IncrementLeft -1000
    Selection.ShapeRange.IncrementTop 1

    Range("T5").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Retourdépart()
'
'  Macro Retour Départ
'

'
    ActiveSheet.Unprotect
    ActiveSheet.Shapes.Range(Array("Picture 13")).Select
    Selection.ShapeRange.IncrementLeft 520
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A2").Select
End Sub

Merci d'avance pour votre aide éventuel.

Marc

 

[bellenm]

Bonjour Jacky67, amis internaute,

Demander une solution c'est bien en plus si cette réponse arrive c'est encore mieux!
J'ai trouver la solution à mon problème grâce à ce forum mais via le biais d'une tout autre discutions, donc je la met ici ainsi un autre débutant comme moi pourrait trouver éventuellement sa solution.

Sub LancerMatch()
'
' Macro Lancer match
'
'

'
    ActiveSheet.Unprotect  ' dé-protège la feuile

        ActiveSheet.Shapes("Picture 11").Top = Range("a2").Top  ' place l'image
        ActiveSheet.Shapes("Picture 11").Left = Range("a2").Left ' place l'image
        ' merci à SI pour cette formule https://www.excel-downloads.com/threads/bloquer-le-d%C3%A9placement-dune-image-qui-a-%C3%A9t%C3%A9-ins%C3%A9rer-par-macro.154596/#post928817
     Range("e14").Select ' se rend à cette cellule

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' protège la feuille

End Sub

Merci à tous qui aurait lis ou essayer de m'aider.

Ci-joint, le fichier final 2 contre 2, avec un double , classement final pour huit paires maximum.

Marc