XL 2016 Par Combo sur une feuille, récupérer photo et références recherchées sur une autre feuille

Webperegrino · 19 Août 2022

Bonjour,
Dans le développeur VBA de ce fichier joint, je cherche à me défaire de la troisième codification, afin de ne plus utiliser le Textbox qui pourrait ainsi disparaître dans la partie « CRITÈRE DE RECHERCHE ».
Je me suis inspiré d’une application trouvée sur notre Forum mais ne retrouve pas le concepteur.

Si ce n’est pas vous abuser :

Pouvez-vous me faire un peu de pédagogie pour que la photo qui apparaît en D9 se positionne avec un agrandissement en hauteur (centré).
Par exemple la photo qui apparaît fait 1,38 cm et la hauteur de la cellule D9 est de 75 ; la photo pourrait "monter" à 2,4 cm soit un peu moins que '75'
Avec la suppression du TextBox et aussi du bouton RECHERCHER … le seul choix dans ComboBox :

- effacerait les données précédentes du tableau inférieur « RÉSULTAT » (dont photo),
- afficherait la bonne photo et les bonnes données selon le nouveau critère placé en Combo.

Merci pour votre aide,
Webperegrino

Webperegrino · 19 Août 2022

Le Forum,
Pour la dimension de photo en cellule destination, j'ai réussi à appliquer ceci qui fonctionne :

VB:

...
  If Trouve_Photo Then
    Photo.Copy
    [D9].ClearContents
    ActiveSheet.Paste
    Selection.Name = "Photo"
    Shapes("Photo").Top = [D9].Top + 1
    Shapes("Photo").Left = [D9].Left + ([D9].Width - Shapes("Photo").Width) / 2
    Shapes("Photo").Height = [D9].Height - 2
    'Shapes("Photo").Top = [D9].Top + ([D9].Height - Shapes("Photo").Height) / 2
    Else
    [D9] = "X"
  End If
...

J'ai donc une partie de mes problème résolue.
Webperegrino

Webperegrino · 19 Août 2022

Le Forum,
Je progresse. Voici mon fichier simplifié, amélioré.
Je suis apparemment obligé de garder le bouton RECHERCHER...
Si je porte ces codes (du bouton RECHERCHER) dans une macro à part puis que j'appelle ce contenu cela bloque sur "SHAPES" devant 'Shapes("Photo")' avec comme message 'Sub ou fonction non connu'.
Webperegrino

XL 2016 Par Combo sur une feuille, récupérer photo et références recherchées sur une autre feuille

Webperegrino

XLDnaute Impliqué

Pièces jointes

Webperegrino

XLDnaute Impliqué

Webperegrino

XLDnaute Impliqué

Pièces jointes