Répertoire téléphonique avec photo

[Max]

Bonjour Les experts,

Bonne année à vous !

Je souhaiterais savoir s'il est possible d'avoir un répertoire téléphonique sous excel avec photo constituer de tel sorte que lorsque l'on clique sur le nom de la personne (ou peut être un bouton) sa photo s'affiche automatiquement.
Ci-joint un exemple de fichier pour illustrer ce que je souhaiterais avoir.

Merci d'avance pour votre aide

 

[Regueiro]

Re : Répertoire téléphonique avec photo

Bonsoir MAX
Aller voir chez Boigontier.
Page Accueil - Shapes
Vous allez trouver votre bonheur.

PS : lien sous ma signature
A+

 

[CISCO]

Re : Répertoire téléphonique avec photo

Bonjour à tous, bonjour Regueiro

Tu peux aussi peut être faire avec :
https://www.excel-downloads.com/thr...-dans-un-suivi-douvrages-bibliotheque.226987/

@ plus

 

[Regueiro]

Re : Répertoire téléphonique avec photo

Bonsoir le Forum, tatiak, Max
Une variante avec des photos Internes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Integer
Dim F2 As Worksheet
Dim temp
Set F2 = Sheets("IMAGE")
    If Not Intersect(Range("A2:G" & Range("A65000").End(xlUp).Row), Target) Is Nothing Then
        lig = Target.Row
        On Error Resume Next
MsgBox Cells(lig, 2) & " " & Cells(lig, 3)
temp = Cells(lig, 2) & " " & Cells(lig, 3).Value
MsgBox temp

    With UserForm1
    .Caption = Cells(lig, 2) & " " & Cells(lig, 3)
    
On Error Resume Next
With .Image1
    .Picture = F2.OLEObjects(temp).Object.Picture
   .AutoSize = False
 .PictureSizeMode = fmPictureSizeModeStretch
End With
    .Show

End With

End If
    Cancel = True
End Sub

A+

 

[Si...]

Re : Répertoire téléphonique avec photo

salut

autre exemple (images peu lourdes dans la feuille des clics)