1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
| Private Sub Initialise_LstB_Referentiel()
' déclarations des variables
Dim i As Integer
Dim fPath As String
Dim Image1, Image2 As String
Dim t As Byte
Sheets("Listing").Select
With LstB_Referentiel
TxtB1 = .List(.ListIndex, 0) ' Numéro de la Ligne
CmbB_Groupe_Nom = .List(.ListIndex, 1) 'Groupe de la famille
CmbB_Civilite = .List(.ListIndex, 2) ' Civilité
For t = 1 To 4 'Nom, Prénom, Entreprise, Service
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 2)
Next t ' Fin de boucle
CmbB_Activite = .List(.ListIndex, 7) ' Activité
TxtB_Numero5 = .List(.ListIndex, 8) 'Adresse Domicile
CmbB_Code_Postal_Domicile = .List(.ListIndex, 9) ' Code Postal Domicile
CmbB_Ville_Domicile = .List(.ListIndex, 10) ' Ville Domicile
CmbB_Pays_Domicile = .List(.ListIndex, 11) 'Pays Domicile
TxtB_Numero6 = .List(.ListIndex, 12) 'Adresse Bureau
CmbB_Code_Postal_Bureau = .List(.ListIndex, 13) 'Code Postal Bureau
CmbB_Ville_Bureau = .List(.ListIndex, 14) 'Ville Bureau
CmbB_Pays_Bureau = .List(.ListIndex, 15) 'Pays Bureau
For t = 7 To 25
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 9)
Next t
CmbB_Code_APE = .List(.ListIndex, 35) ' N° APE
TxtB_Numero26 = .List(.ListIndex, 36) ' Titulaire du Compte
TxtB_Numero27 = .List(.ListIndex, 37) ' Nom APE
CmbB_Banque = .List(.ListIndex, 38) ' Banque
For t = 28 To 35 ' Domiciliation, Code Banque, Code Guichet, N° Compte
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 11) ' Clé RIB, Code BIC, Code IBAN, N° SS
Next t ' Fin de boucle
TxtB_Date1 = .List(.ListIndex, 47) ' Date de naissance
CmbB_Type_Contrat = .List(.ListIndex, 48) 'Type de Contrat
CmbB_Statut = .List(.ListIndex, 49) ' Statut
TxtB_Numero36 = .List(.ListIndex, 50) ' Salaire
CmbB_Groupe_Travail = .List(.ListIndex, 51) ' Coefficient
CmbB_Coefficient = .List(.ListIndex, 52) ' Groupe
CmbB_Poste = .List(.ListIndex, 53) ' Nom du Poste
TxtB_Date2 = .List(.ListIndex, 54) ' Date d'arrivée
TxtB_Date3 = .List(.ListIndex, 55) ' Date de création
TxtB_Date4 = .List(.ListIndex, 56) ' Date de modification
TxtB_Numero37 = .List(.ListIndex, 57) ' Notes
CmbB_CodeClient = .List(.ListIndex, 58) ' Code Client
TxtB_Numero38 = .List(.ListIndex, 59) ' Nom Enfant 1
TxtB_Numero39 = .List(.ListIndex, 60) ' Prénom Enfant 1
TxtB_Date5 = .List(.ListIndex, 61) ' Date de naissance E1
TxtB_Numero40 = .List(.ListIndex, 62) ' Nom Enfant 2
TxtB_Numero41 = .List(.ListIndex, 63) ' Prénom Enfant 2
TxtB_Date6 = .List(.ListIndex, 64) ' Date de naissance E2
TxtB_Numero42 = .List(.ListIndex, 65) ' Nom Enfant 3
TxtB_Numero43 = .List(.ListIndex, 66) ' Prénom Enfant 3
TxtB_Date7 = .List(.ListIndex, 67) ' Date de naissance E3
TxtB_Images = .List(.ListIndex, 68) ' N° de l'image
TxtB_Chemin = .List(.ListIndex, 69) ' Chemin de l'image
TxtB_Numero36 = Format(TxtB_Numero36.Value, "## ##0.00€")
TxtB_Numero1.SetFocus
End With |
