Image affichée via list box

bonjour,

sur le fichier suivant joint, je cherche comment, dans la zone orange en haut à gauche, moyennant le choix dans la liste box, d'afficher la recette qui est une image issue de l'appareil photo prise du tableau origine.

Le but étant d'afficher seulement l'image, recette donc choisie.

merci

Bonjour

Private Sub ComboBox1_Change()
Dim Image As Shape, i
Feuil1.Shapes(1).Delete
i = Application.WorksheetFunction.Match(Range("S1"), Range("S2:S7"), 0)
ActiveSheet.Shapes("Image " & i).Copy
    Range("B5").Select
    ActiveSheet.Paste
    Range("K7").Select
End Sub

Cordialement

salut,

je viens de faire un test....

si on alterne ne serais ce qu'entre 2 choix: mousseline et chiboust, on les fait disparaitre jusqu'à faire disparaitre le combo

Bonjour

Supprime la ligne

Feuil1.Shapes(1).Delete

Reste plus qu'à trouver le moyen d'effacer l'image de la sélection précédente.

Cordialement

Bonjour

Cela devrait convenir

Private Sub ComboBox1_Change()
Dim Image As Shape, i
For Each Image In ActiveSheet.Shapes
If Image.TopLeftCell.Address = "$B$5" Then Image.Delete
Next Image
i = Application.WorksheetFunction.Match(Range("S1"), Range("S2:S7"), 0)
ActiveSheet.Shapes("Image " & i).Copy
    Range("B5").Select
    ActiveSheet.Paste
    Range("K7").Select
End Sub

excellent !:)

ça fonctionne.

Je vais appliquer ça à tout mon fichier.

merci à toi