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
 

Staple1600

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

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

XLDnaute Barbatruc
Re

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

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

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 ?
 

Djibysadji

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

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

Discussions similaires


Haut Bas