Un userform avec les listes alimentées par add item
Private Sub UserForm_Initialize()
Calendar1.Value = Date
Sheets("données").Activate
filtretout
classer_par_nom
DerLig = Sheets("données").Range("A65536").End(xlUp).Row
For i = 2 To DerLig
With Me.ListBox1
.AddItem (Cells(i, 4).Value)
End With
With Me.ListBox2
.AddItem (Cells(i, 5).Value)
End With
With Me.ListBox3
.AddItem (Cells(i, 6).Value)
End With
With Me.nigend
.AddItem (Cells(i, 1).Value)
End With
Next i
End Sub
sur le userform une image
Quand je sélectionne un nom dans la liste, je voudrai que la photo du
personnel apparaisse dans mon image
donc quand la valeur de nigend change :
Private Sub nigend_change()
x = nigend.Value
Image.Picture = ("n:\c_notes\photos\" & x & ".bmp")
End Sub
Ou n:\c_notes\photos contient les photos sous la forme 123456.bmp ( 123456
étant la valeur nigend)
Mais ca ne marche pas
Pourquoi ?
D'autre part tous les personnels n'ont pas forcément de photo. Comment gérer
cela.
