Bonsoir le forum,
Je viens de commencer à découvrer les Userform sous Excel et je ne parviens pas à associer les données issues de ma base.
Le but est d'aller chercher des informations concernant un salarié : dans le fichier test, le nom de "LOLO REMI" est sélectionné par défaut. Je voudrais qu'apparaissent son NIR, sa date d'entrée dans l'entreprise, son adresse ...
Je me suis largement inspiré d'un code trouvé sur un forum et, pourtant, ça ne fonctionne pas.
Voilà ce que j'ai fait :
Quelqu'un pourrait-il me dire ce qui cloche ?
Je joins également un fichier test.
Pour l'instant, la macro bug, car certaines "données" ne sont pas activées. Mais, cela n'explique pas mon problème.
Merci d'avance.
Cordialement.
Je viens de commencer à découvrer les Userform sous Excel et je ne parviens pas à associer les données issues de ma base.
Le but est d'aller chercher des informations concernant un salarié : dans le fichier test, le nom de "LOLO REMI" est sélectionné par défaut. Je voudrais qu'apparaissent son NIR, sa date d'entrée dans l'entreprise, son adresse ...
Je me suis largement inspiré d'un code trouvé sur un forum et, pourtant, ça ne fonctionne pas.
Voilà ce que j'ai fait :
Code:
Private Sub Adresse_Change()
End Sub
Private Sub Catégorie_Change()
End Sub
Private Sub CP_Ville_Change()
End Sub
Private Sub Date_entrée_Change()
End Sub
Private Sub Domiciliation_Change()
End Sub
Private Sub Emploi_Change()
End Sub
Private Sub Horaire_Change()
End Sub
Private Sub Serv_Change()
End Sub
Private Sub Identité_Change()
' Calculer la colonne par rapport au choix fait du nom de l'agent
NumCol = 2 + Me.Identité.ListIndex + 1
Me.NIR.Value = Cells(2, NumCol).Value
Me.N°_agent.Value = Cells(1, NumCol).Value
Me.Coef.Value = Cells(19, NumCol).Value
Me.Exp.Value = Cells(20, NumCol).Value
Me.Cptc.Value = Cells(21, NumCol).Value
Me.Serv.Value = Cells(51, NumCol).Value
Me.Emploi.Value = Cells(14, NumCol).Value
'Me.Cat.Value = Cells(21, NumCol).Value
Me.Date_entrée.Value = Cells(27, NumCol).Value
Me.Horaire.Value = Cells(22, NumCol).Value
'Me.Adresse.Value = Cells(21, NumCol).Value
'Me.CP_Ville.Value = Cells(21, NumCol).Value
'Me.Domiciliation.Value = Cells(21, NumCol).Value
End Sub
Private Sub UserForm_Activate()
Dim selection As Range
With Sheets("Base Agents")
Set selection = .Range("A1:A2")
End With
Salarié.List = selection.Value
End Sub
Quelqu'un pourrait-il me dire ce qui cloche ?
Je joins également un fichier test.
Pour l'instant, la macro bug, car certaines "données" ne sont pas activées. Mais, cela n'explique pas mon problème.
Merci d'avance.
Cordialement.