Discussion :

[N4naki]

Bonjour à tous!

Je vous explique mon problème: j'ai 4 feuilles dans un classeur, avec chacune une liste d'application avec beaucoup de doublon(Aucun doublon d'une feuille par rapport à l'autre par contre). Chacune de ces listes appartient à une catégorie, qui correspond au nom de leur feuille.

Je cherche, dans un premier temps, à faire une liste sans doublon de ces applications.

J'ai réussi à récupérer une liste, sans doublon, néanmoins j'ai encore des "mots" inutiles.

Voici pour exemple, chacune des colonnes correspond à une feuille de mon classeur.

Appli1	Appli2	Appli3	Appli4
	1	2	3
1	2	3	4
		3	4

Donc le problème c'est que dans chaque feuille, la liste ne commence pas au même moment (c'est sensé être dynamique).

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub GénérerListe()
 
Sheets("Tableau de bord").Range("U4:U200").Clear
 
Sheets("Appli1").Range("B2:B200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("U4"), Unique:=True
Sheets("Appli2").Range("B2:B200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Cells(Rows.Count, 21).End(xlUp)(2), Unique:=True
Sheets("Appli3").Range("B2:B200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Cells(Rows.Count, 21).End(xlUp)(2), Unique:=True
Sheets("Appli4").Range("B2:B200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Cells(Rows.Count, 21).End(xlUp)(2), Unique:=True
 
End Sub

B2 correspond au titre de ma colonne "Appli".
Si je met B1, il me copie du vide (il n'y a rien dans B1) et ne me fait pas de liste
Si je met B2, ça fonctionne, mais il me compte le mot "Appli" 4 fois dans ma liste (Et j'aurai donc besoin de le remplacer par les nom de feuille)
Si je met B3, il me copie mes formules et pas les valeurs.

Si vous avez une idée..

Merci bien!

[EricDgn]

Bonjour,
Une façon de faire:

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
Public Sub AjoutListe(sAppli As String)
   Dim LastRow As Long, rng As Range
   Set rng = Sheets(sAppli).Range("B3:B200")
   rng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
   rng.Copy
   LastRow = Cells(Rows.Count, 21).End(xlUp).Row
   Range("U" & LastRow).PasteSpecial Paste:=xlPasteValues
   Set rng = Nothing
End Sub
 
Public Sub GénérerListe()
   Sheets("Tableau de bord").Select
   Sheets("Tableau de bord").Range("U4:U200").Clear
   AjoutListe "Appli1"
   AjoutListe "Appli2"
   AjoutListe "Appli3"
   AjoutListe "Appli4"
End Sub

en fait le AdvencedFilter utilise le 1er résultat pour décider du "format" de l'entièreté du résultat. Si le 1er résultat est une valeur, tout sera pris comme valeurs, si le 1er résultat est une formule, tout sera pris comme formules. Il n'y a pas de paramètre pour forcer à la prise des valeurs uniquement, comme dans PasteSpecial.
Bonne continuation.

[N4naki]

Tu avais raison. Du coup j'ai réussi à faire ce que je voulais en modifier la cellule de départ et mon tableau d'origine. Merci bien!