Bonjour, j'ai trouvé une solution sur un autre Forum je la partage avec vous:
dans un module standard
Option Explicit
Public TbListbox(), x As Integer
dans l'évènement "DblClick" de l'usf
Private Sub ListBox_MedTrav_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ReDim TbListbox(1 To ListBox_MedTrav.ColumnCount)
For x = 1 To ListBox_MedTrav.ColumnCount
TbListbox(x) = ListBox_MedTrav.Column(x - 1)
Next x
UserForm_Modif.Show
End Sub
et dans l'autre Usf (évènement Activate)
[/Private Sub UserForm_Activate()
TextBox_Bilan_Sanguin = TbListbox(1)
TextBox_Consultation = TbListbox(2)
TextBox_CAT = TbListbox(3)
TextBox_Radiologie = TbListbox(4)
End Sub
un grand merci a casefayere;
j'ai une question:
comment faire après pour extraire le numéro de la ligne a fin de faire une modification.