Discussion :

[Daranc]

Bonjour
actuellement je me sers d'un fichier excel d'où je tire une liste de fournisseur d'un tableau général de non conformité par formule (un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(INDIRECT(CONCATENER("b1:b";NBVAL(A:A)+14));MIN(SI(NB.SI(AN$15:AN17;INDIRECT(CONCATENER("b16:b";NBVAL(A:A)+14)))=0;SI(INDIRECT(CONCATENER("b16:b";NBVAL(A:A)+14))<>"";LIGNE(INDIRECT(CONCATENER("b16:b";NBVAL(A:A)+14)))))))&"""

ceci couvre un certain nombre de lignes et d'autre formules du même tonneau sont alignées en colonne pour des extractions par date .Pendant deux ans ça à fonctionner (là encore ça tourne mais avec un sérieux ralenti)
Ce que je cherche c'est d'extraire de ma colonne B un tableau sans doublon par VBA et franchement ces telmps ci je n'arrive pas à connecter la méthode de tri pour ne pas incrémenter mon tableau sur un doublon
pour l'instant j'en suis là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub fournisseurs()
Dim t As Integer
Dim fourn() As Variant
fin = Range("b65535").End(xlUp).Row
For t = 16 To fin
fourn(t) = Cells(t, 2).Value
Next
End Sub

on peut pas dire que j'ai beaucoup avancé

[peaceandloveman01]

bonjour,

j'ai développez rapidement ce petit bout de programme qui fonctionne. En fait j'incrémente une liste dans laquelle je place les données à extraire. Pour chaque nouvelle donnée, je vérifie sa présence dans la liste. Si elle l'est je passe à la donnée suivante...

(Je ne pense pas être très clair... )

Clique sur le bouton et tu verras apparaitre la liste de la colonne A sans doublons !

Si tu as des questions sur le code n'hésite pas !!

Cordialement,

Lyonel

[neupont]

Et une collection ?
C'est pas mal une collection pour ça, j'ai d'ailleurs appris ça ici il n'y a pas très longtemps.

Je mets un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim maCollection As New Collection
 
'Entrée des données dans la collection :
For t = 14 To Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next 'indispensable pour ne pas bloquer sur les doublons
    maCollection.Add Cells(t, 2), CStr(Cells(t, 2))
Next
 
'Exemple de récupération des données de la collection :
For i = 1 To maCollection.Count
    Sheets("UneAutreFeuille").Cells(i, 1) = maCollection.Item(i)
Next

L'intérêt c'est que la clé d'une collection ne peut évidemment pas être un doublon, donc à la fin tu te retrouves avec une liste de valeurs uniques.

[Montor]

pour gagner du temps

neupont

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ReDim cache(maCollection.Count - 1, 0): j = 0
For Each elem In maCollection
cache(j, 0) = elem: j = j + 1
Next: ListBox1.list = cache

[Daranc]

J'ai commencé par le code de Lyonel
j'ai un peu accélérer son exemple avec transpose
il faut que je voies ce que ça donne dans mon fichier

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
Private Sub CommandButton1_Click() 'code Lyonel
Dim tableau() As String
 
ReDim tableau(1)
For i = 1 To 20
    tailletableau = UBound(tableau, 1)
    For k = 1 To tailletableau
    If tableau(k) = Cells(i, 1) Then
    GoTo line1
    End If
    Next k
    tableau(tailletableau) = Cells(i, 1)
    ReDim Preserve tableau(tailletableau + 1)
line1:
Next i
'ceci accélère la pose
Range("b1:b" & UBound(tableau, 1)) = WorksheetFunction.Transpose(tableau)
End Sub

maintenant la collection ça à l'air intéressant mais c'est relativement long . apparament la collection doit être créée par la macro lors de son lancement (à chaque redémarrage du fichier ) c'est le temps d'intervention qui me fait chercher une solution VBA
delphidelphi je n'ai pas trouver ou placer ton code par contre le terme Listbox me fait penser que je vais peut être passer par un USF. J'ai des programmes sur gros fichier qui font des tri et des listes de façon rapide, enfin nettement plus que celui là)
Merci

[neupont]

Ne peux-tu pas trier ta feuille selon la colonne B ? Ainsi les doublons se suivent, en une seule boucle tu remplis ton tableau en vérifiant simplement que chaque cellule (nouvelle ligne, colonne B) n'est pas identique à celle de la ligne du dessus.

[Daranc]

hélas non cette feuille est une feuille d'un tableau et (l'instrument de rasage qui s'en sert est allergique à tout travail) le tableau est ordonnée par date .la date est toujours le premier critère de choix le fournisseur n'est sélectionné que pour des pratiques de coercitions à son égard Actuellement en combinant les codes avec mes propre développements j'arrive çà quelque chose qui commence à prendre tournure
Merci

[Daranc]

finalement non je tourne en rond
je crée très rapidement le premier tableau en mémoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub createliste()
Dim tableau() As Variant
Dim i As Integer
 
Sheets("NC_FOURNISSEUR").Select
 
'**********************************************
'*constitution du tableau la liste fournisseur*
'**********************************************
fin = Range("b65535").End(xlUp).Row
For i = 0 To fin
ReDim Preserve tableau(i)
tableau(i) = Cells(i + 16, 2)
Next

ceci me fait un tableau avant même de claquer les doigts
mais après faire une extraction de valeur unique de ce tableau me fait tourner en bourrique : soit j'ai un tableau vide soit j'ai une erreur d'indice soit enfin j'ai un tableau de même dimension que le premier avec (dans ce cas 247 fois la même valeur) (ha j'ai oublié le cas ou seul le premier doublon avait sauté)
si quelqu'un a la solution sur que je rechercherais le ticket de metro de l'année de mon Bacc ( un collector) . mais sans rire je suis en train de ressembler à Kojak (y a des cheveux partout sur mon bureau