Gestion de tableau en VBA

  • Initiateur de la discussion Initiateur de la discussion RENAUDER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

RENAUDER

Nous a quitté
Repose en paix
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.

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
 
Re : Gestion de tableau en VBA

Bonjour Spitnolan,
Ecoutes je suis vraiment le roi des ... car j'ai l'impression pourtant d'avoir essayé avec Redim Preserve mais sans succès alors je cherche sans trouver et là en suivant tes conseils ça fonctionne.
Il est tant que la journée se termine.
Encore merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
633
Réponses
5
Affichages
470
Retour