Cherche par lisrte

sousou

XLDnaute Barbatruc

• 8 Août 2013

• #2

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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 8 Août 2013

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Août 2013

• #4

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

 

Pièces jointes

• sousou chienRecherche.xlsm

  293.3 KB · Affichages: 43

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Août 2013

• #5

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2013

• #6

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Août 2013

• #7

Re : Cherche par lisrte

Re,

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

à+
Philippe

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2013

• #8

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Août 2013

• #9

Re : Cherche par lisrte

Re

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

à+
Philippe

 

Pièces jointes

• 111.xlsm

  291.7 KB · Affichages: 41
• 111.xlsm

  291.7 KB · Affichages: 40
• 111.xlsm

  291.7 KB · Affichages: 40

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2013

• #10

Re : Cherche par lisrte

Re

Merci beaucoup Philippe Nickel

Je te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 10 Août 2013

• #11

Re : Cherche par lisrte

Re,

une petite modif pour pouvoir agrandir les images

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Août 2013

• #12

Re : Cherche par lisrte

Bonjour Philippe,

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

Max

 

Vote positif 0 Vote négatif