Private Sub UserForm_Initialize()
Private Sub UserForm_Initialize()
Dim L As Long
Me.cbPlongeur.RowSource = 'bdPlongeur!B2:B' & Sheets('bdPlongeur').Cells(1, 2).End(xlDown).Row
Me.CbCadre.RowSource = 'bdPlongeur!G2:G' & Sheets('bdPlongeur').Cells(1, 7).End(xlDown).Row
Me.cbProfondeur.RowSource = 'profondeur!A1:A' & Sheets('lieux').Cells(1, 1).End(xlDown).Row
Me.cbPosition.RowSource = 'bdPlongeur!J2:J' & Sheets('bdPlongeur').Cells(1, 7).End(xlDown).Row
'Alimente le ComboBox cblieu avec la liste stockée précédemment
With Sheets('lieux')
For Compteur = 1 To L
L = .Range('A65536').End(xlUp).Row
If L = 1 And .Cells(1, 1) = '' Then Exit Sub
Me.cblieux.AddItem .Cells(Compteur, 1).Value '(merci Hervé!)
Next
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Sheets('lieux')
'Recopie la liste dans la feuille 'lieux' pour stockage
.Cells.Delete
.Range(.Cells(1, 1), .Cells(cblieux.ListCount, 1)) = cblieux.List()
End With
End Sub