'on remplit la liste USER par les données de la colonne 22
Remplir Me.USER, 2
'on remplit la liste NOMSOCIETE par les données de la colonne 3
Remplir Me.SOCIETE, 3
'on remplit la liste ZONE par les données de la colonne 4
Remplir Me.ZONE, 4
'on remplit la liste TYPESOCIETE par les données de la colonne 5
Remplir Me.TYPESOCIETE, 5
'on remplit la liste PRENOMCONTACT par les données de la colonne 8
Remplir Me.PRENOMCONTACT, 8
'on remplit la liste FONCTIONCONTACT par les données de la colonne 9
Remplir Me.FONCTIONCONTACT, 9
'on remplit la liste VILLESOCIETE par les données de la colonne 17
Remplir Me.VILLESOCIETE, 17
'on remplit la liste LOGIN par les données de la colonne 22
Remplir Me.LOGIN, 22
'on remplit la liste MDP par les données de la colonne 23
Remplir Me.MDP, 23
'on remplit la liste ANNONCESBYMAIL par les données de la colonne 24
Remplir Me.ANNONCESBYMAIL, 24
'on remplit la liste POSTE par les données de la colonne 32
Remplir Me.POSTE, 32
'on remplit la liste TYPEPOSTE par les données de la colonne 33
Remplir Me.TYPEPOSTE, 33
'on remplit la liste LIEU par les données de la colonne 34
Remplir Me.LIEU, 34
'on remplit la liste REMUNERATION par les données de la colonne 35
Remplir Me.REMUNERATION, 35
'on remplit la liste CANDIDATURE par les données de la colonne 40
Remplir Me.CANDIDATURE, 40
'on remplit la liste COMMENTAIRESCANDIDATURE par les données de la colonne 41
Remplir Me.COMMENTAIRESCANDIDATURE, 41
End Sub
'On remplit la listbox ou la combobox LST par les données de la colonne COL
Private Sub Remplir(ByVal LST As Object, ByVal Col As Integer)
Dim MonDico As Object
Dim f As Worksheet
Dim c As Range
Dim temp()
Set MonDico = CreateObject("Scripting.Dictionary")
Set f = Worksheets("BASE EMPLOI")
With f
For Each c In .Range(.Cells(2, Col), .Cells(.Rows.Count, Col).End(xlUp))
If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
Next c
End With
Set f = Nothing
temp = MonDico.Items
Set MonDico = Nothing
Call Tri(temp, LBound(temp), UBound(temp))
LST.List = temp
End Sub
Private Sub Tri(a(), ByVal gauc As Long, ByVal droi As Long) ' Quick sort
Dim G As Long, d As Long
Dim Ref, temp
Ref = a((gauc + droi) \ 2)
G = gauc: d = droi
Do
Do While a(G) < Ref: G = G + 1: Loop
Do While Ref < a(d): d = d - 1: Loop
If G <= d Then
temp = a(G): a(G) = a(d): a(d) = temp
G = G + 1: d = d - 1
End If
Loop While G <= d
If G < droi Then Call Tri(a, G, droi)
If gauc < d Then Call Tri(a, gauc, d)
End Sub