Incrustation d'image selon un critère défini

[JpM79]

Bonsoir a toutes et tous,

je n'arrive pas à incruster l'image correspondante au resultat de la cellule "Nom".
Merci à tous ceux qui m'indiqueront la demarche a suivre (avec les explications pour que je puisse comprendre cette manip).

merci, @ ++ tout le monde

[skoobi]

Bonjour,

voici le code du bouton "Extraire" modifié en ce sens:

Private Sub CommandButton2_Click()
Range("F18").Value = ComboBox1.Value
Range("D23").Value = TextBox1.Value
Range("F23").Value = TextBox2.Value
Range("H23").Value = TextBox3.Value
Range("J23").Value = TextBox4.Value
'supprime la (ou les) photo(s) actuelle(s)
For Each photo In ActiveSheet.Shapes
   If photo.Name Like "Picture*" Then photo.Delete
Next
'récupère la photo de la base de donnée en fonction du prénom sélectionné
With Sheets("foto")
   lig_pers = .Cells.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
   For Each photo In .Shapes
      If photo.TopLeftCell.Row = lig_pers Then
         photo.Copy
         Exit For
      End If
   Next
End With
Sheets("Recherche").Activate
Range("F10").Select
ActiveSheet.Paste
Range("A1").Activate
Unload Me
  
End Sub

Bonne journée

[JpM79]

Bonjour Skoobi , salut le forum

Merci Skoobi pour le code, ca marche super bien comme beaucoup sur ce forum génial, tu es un (ou une) PRO ....

@+