Cherche par lisrte

[maval]

Bonjour,

Je suis à la recherche d'un code pour rechercher une image dans le même classeur suivant une liste de la feuille "Race". En sachant qu'il y a environ 400 images?

Je joint un fichier qui seras plus explicite

Cordialement

Max

 

[sousou]

Re : Cherche par lisrte

Bonjour maval.
Je ne sais pas comment tu insères tes images, mais le plus simple serait de les nommées tes photos à l'identique de ta liste la recherche serait alors très simple.

 

[maval]

Re : Cherche par lisrte

Bonjour Sousou,

Oui nommer les photos cela est possible malgré le nombre mais il y a pas un code vba qui peur appeler les photos?

@+

Max

 

[sousou]

Re : Cherche par lisrte

Bonjour maval

Ci-joint un exemple s'approchant de tes besoins,

Deux procédures; une pour nommer tes images, une seconde pour la recherche
Lire la feuille lisez-moi

 

[phlaurent55]

Re : Cherche par lisrte

Bonjour à tous,

tout ce que vous chercher et même plus dans la bible de Jacques Boisgontier en cliquant ci-dessous
Les images et shapes

à+
Philippe

 

[maval]

Re : Cherche par lisrte

Bonjour Philippe,

Je te remercie j'ai regarder se matin et je n'ai pas trouver?
Ou alors je suis passer a coté?

Max

 

[phlaurent55]

Re : Cherche par lisrte

Re,

clique sur "Choix d'une image interne.........." dans le lien proposé

à+
Philippe

 

[maval]

Re : Cherche par lisrte

Re Philippe,

Oui mais le seul problème il est que sa fonctionne avec une combobox alors que moi je voudrais le faire fonctionner avec ma liste qui est d'environ 400 race de chien, c'est pour cela que je ne voit comment je pourrais faire avec une combobox?

A tu une idée...!

@+

Max

 

[phlaurent55]

Re : Cherche par lisrte

Re

voir fichier joint
bon courage pour finaliser le fichier
.............et EVITE les cellules fusionnées en colonne C

à+
Philippe

 

[maval]

Re : Cherche par lisrte

Re

Merci beaucoup Philippe Nickel

Je te souhaite une bonne soirée

Max

 

[phlaurent55]

Re : Cherche par lisrte

Re,

une petite modif pour pouvoir agrandir les images

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Or Target.Count = 1 Then

Dim s As Shape
 Application.EnableEvents = True
On Error GoTo fin
For Each s In ActiveSheet.Shapes
    If s.Type = 13 Then
         s.Delete
    End If
Next s
If Len(Target.Value) < 2 Then Exit Sub
        Sheets("Photo_Chien").Shapes(Target).Copy
        Application.EnableEvents = False
        Target.Offset(0, 1).Select
        ActiveSheet.Paste
        Selection.ShapeRange.Left = ActiveCell.Left + 7
        Selection.ShapeRange.Width = 400
        Target.Select
Application.EnableEvents = True
Exit Sub
End If
fin:
MsgBox ("l'élément cherché est absent et/ou mal orthographié")
End Sub

l'ajout concerne: Selection.ShapeRange.Width = 400 (adapter la valeur 400)

à+
Philippe

 

[maval]

Re : Cherche par lisrte

Bonjour Philippe,

Je te remercie de ta modif et te souhaite un bon WE
@+

Max