VBA [Tri venant de plusieurs feuille], une partie d'occurence reste
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:
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! :P