Hello le forum,
je bloque sur un problème ...
J'ai un tableau VBA avec n lignes et 4 colonnes, voici comment je l'alimente :
ReDim Tab_Filtre_Compta(1 To Last_Row_Compta, 1 To 4) 'Redimension le tableau sur 4 colonnes (Account, Débit, Crédit, Team&Emplo)
Compteur_Tab_Compta = 1 'Compteur Tableau
For Ma_Ligne_Affichee = 2 To Last_Row_Compta 'Boucle sur les valeurs des lignes visibles
'si la ligne n'est pas filtrée alors on alimente notre tableau des valeurs (Account + D + C + CODE)
If .Rows(Ma_Ligne_Affichee).Hidden = False Then Tab_Filtre_Compta(Compteur_Tab_Compta, 1) = .Cells(Ma_Ligne_Affichee, o): Tab_Filtre_Compta(Compteur_Tab_Compta, 2) = .Cells(Ma_Ligne_Affichee, y): Tab_Filtre_Compta(Compteur_Tab_Compta, 3) = .Cells(Ma_Ligne_Affichee, x): Tab_Filtre_Compta(Compteur_Tab_Compta, 4) = .Cells(Ma_Ligne_Affichee, z) & "_" & .Cells(Ma_Ligne_Affichee, k): Compteur_Tab_Compta = Compteur_Tab_Compta + 1
Next Ma_Ligne_Affichee
Maintenant ce que je veux faire c'est d'avoir une liste sans doublons de la colonne 4 de ce tableau et inscrire cette liste dans une feuille ....
Mon idée est de créer un dico qui va parcourir chaque valeur de ma colonne 4 et si la valeur n'est pas présente dans mon dico, elle est ajoutée ...
Mais à coder c'est une autre histoire
Pourriez-vous me donner un petit coupe de main svp.
Merci à vous.
R@g.