Dim numeroDeLigne As Long
Private Sub CmdValide_Click_Click()
Lig = numeroDeLigne
'ListPMT.Value = ""
With Sheets("BDPMT")
.Range("B" & Lig).Value = TextVille.Value
.Range("C" & Lig).Value = TextLieux.Value
.Range("D" & Lig).Value = TextNom.Value
End With
Unload Me
UsfPMT.Show
End Sub
Private Sub UserForm_Initialize()
k = 0
With Sheets("BDPMT")
For i = 3 To .[B65000].End(xlUp).Row
Me.ListPMT.AddItem
Me.ListPMT.List(k, 0) = .Cells(i, 2)
Me.ListPMT.List(k, 1) = .Cells(i, 3)
Me.ListPMT.List(k, 2) = .Cells(i, 4)
Me.ListPMT.List(k, 3) = i 'Conserver le numero de chaque ligne
k = k + 1
Next i
End With
End Sub
Private Sub ListPMT_Click()
Lig = ListPMT.ListIndex
numeroDeLigne = ListPMT.List(Lig, 3) 'Mettre le numero de ligne dans la variable numeroDeLigne
TextVille = ListPMT.List(Lig, 0) '0 = 1ère colonne
TextLieux = ListPMT.List(Lig, 1) '1 = 2ème colonne
TextNom = ListPMT.List(Lig, 2)
End Sub