Automatiser le remplissage d'un UserForm à partir d'une feuille excel

[Djibysadji]

Salut!
Je suis débutant en VBA
Je voudrais automatiser le remplissage d'un Userform à partir d'une base de données excel en saisissant le numéro de matricule, par exemple et afficher la photo de la personne dont les info se trouvent sur le même UserForm. J'ai essayé d'automatiser l'affichage de la photo; mais cela n'a pas marché. Par la même occasion j'aimerais savoir aussi comment remplir les textbox.
Votre aide me sera très précieuse.
Voici ce que j'ai fait:
Private Sub Worksheet_Change(ByVal Target As Range)

'DECLARATION DE VARIABLES
Dim ChemindeLaphoto As String
Dim NomdeLaphoto As Integer
Dim Extension As String

'AFFECTATION DES VARIABLES
ChemindeLaphoto = ThisWorkbook.Path & "/Photopers/"
Extension = ".jpg"
NomdeLaphoto = Range("A2").Value

'AFFICHER LES IMAGES
If Not Intersect(tardet, Range("A2")) Is Nothing Then
ActiveSheet.Shapes.AddPicture Filename:=ChemindeLaphoto & NomdeLaphoto & _
Extension, linktoFile:=msoFalse, savewithdocument:=msoTrue, _
Left:=6, Top:=12, Width:=150, Height:=170
End If

End Sub

 

[Staple1600]

Bonsoir le fil,

Je dis non
If Not Intersect(tardet, Range("A2")) Is Nothing Then


Mais je dis oui 😉
If Not Intersect(Target, Range("A2")) Is Nothing Then

 

[Djibysadji]

Bonsoir le fil,

Je dis non
If Not Intersect(tardet, Range("A2")) Is Nothing Then


Mais je dis oui 😉
If Not Intersect(Target, Range("A2")) Is Nothing Then

 

[Djibysadji]

Salut Stapple 1600.
Merci de m'avoir répondu. J'ai corrigé la faute de frappe (target au lieu de tardet) mais mon problème reste entier. J'arrive toujours pas à afficher la photo sur le formulaire.

 

[Staple1600]

Re

Je dis non 😉
ChemindeLaphoto = ThisWorkbook.Path & "/Photopers/"

Mais je dis oui
ChemindeLaphoto = ThisWorkbook.Path & "\Photopers\"

 

[Djibysadji]

Re

Je dis non 😉
ChemindeLaphoto = ThisWorkbook.Path & "/Photopers/"

Mais je dis oui
ChemindeLaphoto = ThisWorkbook.Path & "\Photopers\"

 

[Djibysadji]

J'ai encore corrigé mais toujours rien. Voici le UserForm en question.

 

[Staple1600]

Bonsoir

Ceci
ActiveSheet.Shapes.AddPicture est relative à la feuille active
Donc celle ligne n’insérera jamais une image sur un Userform

Plutôt qu'une image de ton userform, un fichier Excel (mais en version allégée et anonymisée) serait plus utile et plus parlant pour tenter de t'aider, non ?

 

[Djibysadji]

Bonsoir

Ceci
ActiveSheet.Shapes.AddPicture est relative à la feuille active
Donc celle ligne n’insérera jamais une image sur un Userform

Plutôt qu'une image de ton userform, un fichier Excel (mais en version allégée et anonymisée) serait plus utile et plus parlant pour tenter de t'aider, non ?

 

[Djibysadji]

Ok. Nous vous enverrons ce fichier excel.
Merci encore une fois pour votre générosité.

 

[Djibysadji]

Existe-il une formule ou un code pour inserrer une image et du texte dans un userform à partir d'une feuille excel? Si tel est cas pourriez-vous me le passer s'il vous plait?