1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| If Sheets("Feuil1").CommandButton3.Caption <> "" Then 'si les donnŽes des participants ont ŽtŽ renseignŽes
Set tab2 = recuperer_donnees_personnel(Sheets("Feuil1").CommandButton3.Caption, tableau_valeurs("participants")) 'on rŽcupre les donnŽes
If Not IsEmpty(tab2) Then
.Range("A" & i) = "nb"
.Range("A" & i).NumberFormat = ";;;"
.Range("B" & i) = tableau_valeurs("participants")
.Range("B" & i).NumberFormat = ";;;"
i = i + 1
cles = tab2.keys
elements = tab2.items
For k = 0 To UBound(cles) 'pour chaque element de tab2
.Range("A" & i) = cles(k)
.Range("A" & i).NumberFormat = ";;;"
.Range("B" & i) = elements(k)
.Range("B" & i).NumberFormat = ";;;"
i = i + 1
Next k
End If
End If |
