Discussion :

[vs86963]

Bonjour,
J'au la Feuil1 ou je rapatrie les données comportant une croix dans la feuille "OUI".
Avec ce que j'ai fait(module3) je ne récupère que la première et deuxième colonne, alors qu'il faudrait que j'ai les colonnes de 1 à 6.

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
19
20
21
22
23
24
Sub ListeDesOUI()
Option Explicit
 
Dim tablo, fs, dico As Object
Dim i&
 
Set fs = Sheets("Feuil1")
tablo = fs.Range("A4:J" & fs.Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.Dictionary")
Sheets("OUI").Activate
Columns("A:H").Select
Columns("A:H").Clear
Range("I4").Clear
For i = 1 To UBound(tablo, 1)
If tablo(i, 10) = "x" Then
dico(tablo(i, 1)) = tablo(i, 2)
End If
Next i
Sheets("OUI").Range("A2").Resize(dico.Count, 1) = Application.Transpose(dico.keys)
Sheets("OUI").Range("B2").Resize(dico.Count, 1) = Application.Transpose(dico.items)
Columns("A:A").Select
Selection.Font.Bold = True
 
End Sub

[patricktoulon]

re Bonjour
il y a plusieurs choses a revoir dans ton principe

1° tout d'abords tu utilise un dico ---> pourquoi? y a t il les doulons a supprimer et plus exactement prendre le offset (0,1) de la derniere occurence et le mettre dans dans le item
car en l'etat c'est ce que tu fait avec ton code

2° tu utilise un dico pour stoker ton resultat sauf qu'un dico n'a que 2 colonnes(clés/items) donc pour 6 colonnes walouh walouh

repond a la question N°1 et on pourra poursuivre

[vs86963]

En fait je suis pas le pro du pro .Au début je ne voulais que 2 colonnes, et je n'ai pas de doublon dans mes données.

[Pierre Fauconnier]

Salut.

Il me semble que tu pourrais utiliser les filtres avancés, en manuel ou en vba.