Bonjour,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 donnes des participants ont t renseignes Set tab2 = recuperer_donnees_personnel(Sheets("Feuil1").CommandButton3.Caption, tableau_valeurs("participants")) 'on rcupre les donnes 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
j'ai ce message qui apparait, cette fonction doit transférer les données... je ne connais pas du tout la programmation VBA mais je dois utiliser un outils déja monté...
Merci de m'indiquer ce que je peux vous apporter pour compléter votre interpretation et votre aide...
Partager