RESOLU par phlaurent55 - Affichage image

[castor30]

Bonjour à tous, le forum,
Je voudrais faire apparaitre une image en .jpg par Vba en A1 si A9 est non vide (A9 contient un patronyme qui à chaque impression sera différent).
Cette image se trouve dans le fichier dans une feuille masquée xlSheetVeryHidden nom de la feuille Img
En vous remerciant.

 

[cp4]

Bonjour Castor30,

Tu as juste oublié de joindre ton fichier.

un exemple ici

Bon week-end.

 

[phlaurent55]

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[phlaurent55]

Re,

petite adaptation à faire dans le fichier joint à ma dernière réponse,
Pour adapter la largeur de l'image en fonction de la largeur de la colonne A,
remplace le code par celui-ci

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A9")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    On Error GoTo 0
    If Target <> "" Then
        Sheets("Img").Shapes(Target).Copy
        ActiveSheet.Paste
        Selection.Name = "monImage"
        Selection.ShapeRange.Left = [A1].Left
     
        Selection.ShapeRange.Top = [A1].Top
        ActiveSheet.Shapes("monimage").Width = [A1].Width
        Target.Select
     End If
  End If
End Sub

à+
Philippe

 

[castor30]

Bonjour cp4, phlaurent55,
Je suis vraiment nul car je n'y arrive pas.
Je joint le fichier.

 

[phlaurent55]

Re,

Je suis vraiment nul car je n'y arrive pas.

voir fichier joint

EDIT: Nouveau fichier joint, l'image de la banane ne passait pas 😛

à+
Philippe

 

[Si...]

Bonjour,

J'avais commencé en remplaçant le formulaire d'impression par des formules à base de RECHERCHEV.

Je viens d'ajouter l'affichage de la photo (4 premiers cas insérés, images de même taille ).

Voir si la démarche (simple) pourrait aider.

 

[castor30]

Bonjour à chacun de vous,
Je vous remercie j'y suis arrivé après bien des déboires, doit pas être en forme en ce moment.