Discussion :

[ancel17]

Bonjour,

Question con du jour, mais question qui pourrait me simplifier la vie...

Est-il possible par un moyen ou un autre de récupérer dans un objet "liste déroulante", la liste d'un filtre automatique ?

La raison de ce "A L'AIIIIIIDE !!!", est la suivante :
Je parviens à lister les éléments sans doublon au moyen d'un calcul matriciel, mais mon soucis est qu'il rend les actions excessivement longue.
Alors quand je vois à quelle vitesse est mis en place un filtre automatique, ça me laisse rêveur !!!

Je vous joins un fichier avec les formules utilisées pour lister les valeurs (le tableau est en ligne 5010).

LISTER VAL UNIQUES.ods

Voilà, voilà !

Merci de votre aide !

[ancel17]

Re bonjour tout le monde !

Après quelques recherche j'ai réussi à faire sous excel au moyen d'une macro au démarrage du classeur ce que je souhaite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Dim c As Range
Dim fl As Worksheet
Dim derlg As Integer
Set fl = Me.Worksheets("Base")
derlg = fl.Range("A" & fl.Rows.Count).End(xlUp).Row
For Each c In fl.Range("B1:G1").Cells
    fl.Range(c, Cells(derlg, c.Column)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=fl.Cells(1, c.Column + 7), Unique:=True
Next c
derlg = 0
Set c = Nothing
Set fl = Nothing
End Sub

Mon problème est donc maintenant de traduire ce tout petit code VBA en Basic pour qu'il puisse être exécuté par un fichier .ods !

Je joins le fichier excel qui va bien : LISTER VAL UNIQUES.xls

Merci !

[ancel17]

Problème résolu !

Le code ci-dessous est un poil plus élaboré que la question initiale mais on s'y retrouve, surtout avec le fichier joint

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
25
26
27
28
29
Sub Main
MonDocument = ThisComponent						' Le document actuel
Feuilles = MonDocument.Sheets					' La collection des feuilles
If Not(Feuilles.hasByName("Résultat")) Then
	Feuilles.insertNewByName("Résultat",0)			' Nouvelle feuille au début du classeur
EndIf
Resultat = Feuilles.getByName("Résultat")		' La feuille Résultat
Feuille = Feuilles.getByName("Base")			' La feuille "Base"
Curseur = Feuille.createCursor()				' Créer un curseur pour trouver la dernière ligne
Curseur.goToEndOfUsedArea(false)				' Déplacer le curseur à la fin
derLig = Curseur.RangeAddress.EndRow-1			' Dernière ligne = celle où se trouve le curseur
derCol = Curseur.RangeAddress.EndColumn
j = 0
For i = 0 to dercol
	If Feuille.getCellByPosition(i,0).Value = 1 Then
		j = j+1
		Plage = Feuille.getCellRangeByPosition(i,2,i,derLig)	' Plage à filtrer
		Filtre = Plage.createFilterDescriptor(true)		' Créer un filtre avec réglages par défaut
		With Filtre
			.CopyOutputData = True						' Demander la copie des données
			.OutputPosition = Resultat.getCellByPosition(j-1,2).CellAddress	' Destination de la copie
			.SkipDuplicates = True						' Enlever les doublons
		End With
		Plage.filter(Filtre)							' Appliquer le filtre
		Resultat.getCellByPosition(j-1,0).String = Feuille.getCellByPosition(i,1).String
		Resultat.getCellByPosition(j-1,1).String = "Tous"
	End If
Next i		
End Sub

LISTER VAL UNIQUES 2.ods