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