Discussion :

[neupont]

Bonjour,
j'ai un petit casse-tête à vous soumettre

Voilà j'importe dans Excel des données d'un fichier CSV. Je me retrouve avec deux colonnes : une avec des noms de fichiers, l'autre avec des "labels" (en fait un n° de version applicatif). Une ligne = 1 nom de fichier + 1 label.
J'ai un problème maintenant que j'ai plus de 65556 lignes dans mon CSV : je suis obligé de répartir mes données sur deux feuilles excel. Jusque-là, je maîtrise.

Mais il me faut la liste des labels distincts (j'en ai 300 à peu près). Auparavant je repérais assez facilement les labels distincts : je triais par label, puis je vérifiais pour toutes les lignes si le label de la ligne i était identique ou non à celui de la ligne i-1. Ce n'était pas trop long parce qu'il n'y avait pas de boucles imbriquées.
Maintenant je ne peux plus trier aussi facilement puisque j'ai deux feuilles. Je ne veux pas m'amuser à faire des boucles imbriquées pour voir si chaque label est déjà référencé, ce serait trop long.

Alors si quelqu'un a un truc pour que je sorte facilement la liste des labels distincts, je suis preneur. J'ai essayé avec un tableau croisé dynamique, ça pourrait marcher si je trouvais comment lui faire accepter des zones sur deux (ou plus) feuilles différentes. Au pire je ferai un TCD par feuille et je pourrai croiser plus facilement les listes, mais ce n'est pas très élégant.

Merci.

[mayekeul]

bonjour,

deux possibilité

ou tu travaille via access
ou tu le fait via une connection ODBC et msquery

[fring]

Bonjour tlm,

Une autre possibilité à tester.
En supposant les noms de fichiers en colonne A et les labels en colonne B, le tout réparti sur les feuilles 1 et 2 :

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
Sub supp_doublons_labels()
Dim Col As New Collection, i As Long, j As Byte
 
For j = 1 To 2
    With Sheets(j)
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            On Error Resume Next
            Col.Add .Cells(i, 1) & " / " & .Cells(i, 2), CStr(.Cells(i, 1))
        Next
    End With
Next
 
For i = 1 To Col.Count
    Sheets(3).Cells(i, 1) = Col.Item(i)
Next
 
End Sub

Report des résultats en feuille 3

[neupont]

Merci Fring.
Subtile cette idée d'utiliser une collection, ça répond parfaitement à mon besoin et en plus c'est rapide.

Merci aussi pour ta réponse mayekeul, je n'ai pas eu l'occasion de la creuser à cause de Fring

Bonne journée à tous.


Edit : je rajoute le code de Fring adapté à mon besoin exact pour ceux que ça pourrait intéresser.

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
 
Sub supp_doublons_labels()
Dim Col As New Collection, i As Long, j As Byte
 
For j = 2 To 3
    With Sheets(j)
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            On Error Resume Next
            Col.Add .Cells(i, 2), CStr(.Cells(i, 2))
        Next
    End With
Next
 
For i = 1 To Col.Count
    Sheets(1).Cells(i, 1) = Col.Item(i)
Next
 
End Sub

[mayekeul]

tant que c'est bon pour toi, c'est bon pour nous!
;o)

bon amusement pour la suite