Microsoft 365 Excel : Taper un nom et la photo apparait

Tibewan

XLDnaute Nouveau
Bonjour,

Je voulais savoir si sur Excel, il est possible sur la feuil1 de taper juste un nom (Attention pas de dérouleur) et de faire apparaitre une photo ? sachant que les photos sont sur la feuil2.

En vous remerciant,
 

Staple1600

XLDnaute Barbatruc
Bonjour @Tibewan, le fil

Puisque que tu utilises Office 365, profitons-en ;)
AfficherPIct.PNG

Les images ont été insérées avec cette nouvelle fonctionnalité
PlacerIMG.png

EDITION:
Si les images sont sur la feuille 2 , la formule devient
=PRENDRE(FILTRE(Feuil2!A2:B4;Feuil2!C2:C4=B2);;-1)
 
Dernière édition:

Tibewan

XLDnaute Nouveau
Re,

J'ai beau reproduire la formule mais cela ne fonctionne pas. je te join le fichier pour que tu puisses regarder d'ou vient l'erreur. J'ai mis la formule en bas de la photo pour que tu puisses voir.

Merci pour ton aide.
 

Pièces jointes

  • Classeur1.xlsx
    426.2 KB · Affichages: 11

Staple1600

XLDnaute Barbatruc
Bonsoir @sousou

En regardant ton classeur, j'ai persévéré un peu avec ce qu'offre Office 365
(avec cette nouvelle fonctionnalité: Placer dans la cellule)

Donc en gardant la formule
=PRENDRE(FILTRE(JOUEURS!A4:B7;JOUEURS!C4:C7=M12);;-1)
(ici adapté à ton classeur)
et en ajoutant ce procédure dans le code de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$12" Then
Range("M13").PlacePictureOverCells AsReference:=True
End If
End Sub
On obtient peu ou prou le même résultat (mais avec moins de VBA) ;)

Là, on peut déplacer l'image sur le terrain de foot.
(contrairement à ma précédente proposition)
 

sousou

XLDnaute Barbatruc
Bonsoir @sousou

En regardant ton classeur, j'ai persévéré un peu avec ce qu'offre Office 365
(avec cette nouvelle fonctionnalité: Placer dans la cellule)

Donc en gardant la formule
=PRENDRE(FILTRE(JOUEURS!A4:B7;JOUEURS!C4:C7=M12);;-1)
(ici adapté à ton classeur)
et en ajoutant ce procédure dans le code de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$12" Then
Range("M13").PlacePictureOverCells AsReference:=True
End If
End Sub
On obtient peu ou prou le même résultat (mais avec moins de VBA) ;)

Là, on peut déplacer l'image sur le terrain de foot.
(contrairement à ma précédente proposition)
 

Discussions similaires

Réponses
11
Affichages
368

Statistiques des forums

Discussions
315 143
Messages
2 116 716
Membres
112 844
dernier inscrit
xhjhjkjhkjhjk