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

Djibysadji

XLDnaute Nouveau
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
 

Djibysadji

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

Staple1600

XLDnaute Barbatruc
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 ?
 

Discussions similaires