Discussion :

[qvn83]

Bonjour,

Je souhaite savoir comment on peut remplir une cellule quelconque à partir d'une autre où une image a été coller dedans.
Par exemple, imaginons que j'ai 3 personnes X,Y,Z en A1, A2,A3, en B1,B2,B3 , j'ai coller la signature de chacun et je voudrais pouvoir utiliser ces signatures dans une autre feuille lorsque je sélectionne leur nom sauf que je ne sais pas comment on fait pour récupérer les images car lorsque je colle l'image, ça ne me l'affecte pas à une cellule mais ça me le met n'importe où sur la feuille.
Quelqu'un peut-il m'aider svp ?

Merci d'avance,

[halaster08]

Bonjour,

Je ne suis pas expert en utilisation d'image, cependant je sais qu'on peut changer leur position avec Top et Left
Par exemple pour mettre la première image en sur la position de la cellule A1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.Shapes.Range(Array("Picture 1")).Left = Cells(1, 1).Left
    ActiveSheet.Shapes.Range(Array("Picture 1")).Top = Cells(1, 1).Top

[Philippe Tulliez]

Bonjour,
Pour insérer une image dans une cellule, il existe la méthode InsertPictureInCell de l'objet Range mais j'ignore depuis qu'elle version elle est apparue Sinon j'ai écrit une fonction générique qui fait la même chose voir cette discussion

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t()
  Dim rng As Range
  Set rng = ThisWorkbook.Worksheets("Feuil1").Range("H3")
  rng.InsertPictureInCell "c:\documents\signature.jpg"
  Set rng = Nothing
End Sub

[qvn83]

Bonjour,

J'ai essayé .InsertPictureinCell ça ne fonctionne pas, pourtant elle existe bien et j'ai recopié la même syntaxe que vous.
Du coup j'ai réussi avec .Pictures.Insert(url) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
with .Pictures.Insert(url)
.Left = Worksheet("My worksheet").Range("macellule").Left
.Top = Worksheet("My worksheet").Range("macellule").Top
End with

[Philippe Tulliez]

Bonjour,

J'ai essayé .InsertPictureinCell ça ne fonctionne pas, pourtant elle existe bien et j'ai recopié la même syntaxe que vous.
Du coup j'ai réussi avec .Pictures.Insert(url) :

Oui c'est exactement la syntaxe que j'ai utilisée dans la discussion, d'il y a 2 ans, et que j'ai référencé dans ma réponse précédente.

[patmeziere]

Bonjour,

Je souhaite savoir comment on peut remplir une cellule quelconque à partir d'une autre où une image a été coller dedans.
Par exemple, imaginons que j'ai 3 personnes X,Y,Z en A1, A2,A3, en B1,B2,B3 , j'ai coller la signature de chacun et je voudrais pouvoir utiliser ces signatures dans une autre feuille lorsque je sélectionne leur nom sauf que je ne sais pas comment on fait pour récupérer les images car lorsque je colle l'image, ça ne me l'affecte pas à une cellule mais ça me le met n'importe où sur la feuille.
Quelqu'un peut-il m'aider svp ?

Merci d'avance,

Bonjour
rien de bien compliqué en soit
supposons que en feuil1[A1:3A3] j'ai une liste de nom et en colonne B sur les même lignes j'ai mes images (signatures)
comme dans cette capture ci dessous


maintenant dans ma feuille 2 je veux mettre la signature de "Jacques" en [D3]
il me faut éventuellement supprimer une signature qui pourrait être déjà présente
et copier la cellule de la colonne B de la ligne correspondant à Jacques en colonne A vers la cellules D3 de la feuille 2
pour cela activer la fonction CopyObjectsWithCells de l'application en la mettant à true ( si elle ne l'ai pas déjà)

il n'y a plus qu'à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Dim Tabname, Nom$, destination As Range, X&
    Set destination = Feuil2.[D3]
    Set Tabname = Feuil1.[A1:A3]'détermine la plage des noms en colonne A de la feuil1
    Application.CopyObjectsWithCells = True    ' permet de copier les éventuels object dont le point haut et gauche se trouverait  dans le périmètre  de cellule copiée
 
    Nom = "Jacques"'on peut copier la signature de jacques 
       X = Application.Match(Nom, Tabname, 0)'on détermine  la ligne ou il se trouve 
    'on suuprime   une signature eventuellement présente en D3 de la feuil2
    For Each shap In Feuil2.Shapes
        If shap.TopLeftCell.adddress = destination.Address Then shap.Delete
    Next
 
    Tabname.Cells(X).Offset(, 1).Copy destination    ' on met la signature 
End Sub

démo