Bonjour,
N'arrivant pas à trouver mon erreur, je fais appel à la collectivité.
Dans le code ci-joint, la PARTIE A fonctionne bien et je récupère bien mes items Tabl(T, 1) et Tabl(T, 2) que je visualise avec Debug.Print
Ensuite je veux refaire la même chose dans la PARTIE B et là je n'ai plus que le dernier item Tabl(V, 1) et Tabl(V, 2), celui de la fin de la boucle, à savoir quand V=15.
N'arrivant pas à trouver mon erreur, je fais appel à la collectivité.
Dans le code ci-joint, la PARTIE A fonctionne bien et je récupère bien mes items Tabl(T, 1) et Tabl(T, 2) que je visualise avec Debug.Print
Ensuite je veux refaire la même chose dans la PARTIE B et là je n'ai plus que le dernier item Tabl(V, 1) et Tabl(V, 2), celui de la fin de la boucle, à savoir quand V=15.
Code:
' ***** [COLOR=red]PARTIE A[/COLOR] **********************
For x = 1 To Personne.Count ' (15)
For y = 1 To UBound(B)
If Personne(x) = Pe(y, 1) Then
AA = AA + 1
Else
End If
Next y
If AA > 1 Then
T = T + 1
ReDim Tabl(1 To 15, 2)
Tabl(T, 1) = Personne(x)
Tabl(T, 2) = AA
[COLOR=blue]Debug.Print Tabl(T, 1)[/COLOR]
[COLOR=blue] Debug.Print Tabl(T, 2)[/COLOR]
AA = 0
Else
AA = 0
End If
Next x
' ***** [COLOR=red]PARTIE B[/COLOR] *****************
For V = 1 To 15
[COLOR=blue]Debug.Print Tabl(V, 1)[/COLOR]
[COLOR=blue] Debug.Print Tabl(V, 2)[/COLOR]
Next V