Discussion :

[VanlindtMarc]

Bonjour à tous

Débutant en Excel/VBA je cherchais un équivalent à la fonction filtre() de Google Sheet.

"L'équivalent" que j'ai pu trouvé est la formule

Code :

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

=SI(LIGNE()-1>NB.SI($A:$A;D$1);"";INDEX($B:$B;PETITE.VALEUR(SI($A:$A=D$1;LIGNE(A:A);"");LIGNE()-1)))

J'ai donc préféré faire une fonction perso en VBA mais j'aimerais avoir vos avis :

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
Public Function JGFiltre(tableau, Donnée, Colonne) As Variant
 
Dim compteur As Integer
compteur = 1
 
 
Dim i As Integer
Dim MonTableau
Dim TableauSortie()
 
MonTableau = tableau
 
For i = 1 To UBound(MonTableau, 1)
ReDim Preserve TableauSortie(1 To compteur + 1)
    If MonTableau(i, 1) = Donnée Then
        TableauSortie(compteur) = MonTableau(i, Colonne)
        compteur = compteur + 1
    End If
 
Next
JGFiltre = WorksheetFunction.Transpose(TableauSortie)
End Function

donnant, pour l'exemple, ceci :

[VanlindtMarc]

Là, je cherche le moyen de virer les 0 et les #N/A

[VanlindtMarc]

Version quasi finale et donc voici l'aide qui accompagne la fonction :



et son code :

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
Public Function JGFiltre(tableau, Donnée, Colonne_entree, Colonne_sortie) As Variant
 
Dim compteur As Integer
compteur = 1
 
Dim i As Integer
Dim MonTableau
Dim TableauSortie()
 
MonTableau = tableau
 
For i = 1 To UBound(MonTableau, 1)
    If MonTableau(i, Colonne_entree) = Donnée Then
        TableauSortie(compteur) = MonTableau(i, Colonne_sortie)
        compteur = compteur + 1
    End If
ReDim Preserve TableauSortie(1 To compteur + i)
Next
JGFiltre = WorksheetFunction.Transpose(TableauSortie)
End Function

Les retours et avis sont plus que bienvenus.

[Pierre Fauconnier]

Salut Marc (re-content de te voir ici...)

Excel propose les filtres avancés, que l'on peut piloter par VBA... (Voir le tuto de Philippe Tulliez)

[VanlindtMarc]

Salut Marc (re-content de te voir ici...)

Excel propose les filtres avancés, que l'on peut piloter par VBA... (Voir le tuto de Philippe Tulliez)

Re-Salut!

Le problème est surtout que filtre est une étape dans un processus où l'on rentre une feuille de données fournie par un logiciel et il en ressort un devis avec toutes les données filtrées automatiquement.

Mais il faut que les personnes l'utilisant puisse facilement faire de petites modifications et ils n'ont pas du tout le niveau pour comprendre des EQUIV/INDEX mais l'ont pour comprendre le filtre() de GoogleSheet :/

Du coup, autant reprogrammer le filtre() ^^

Mais le but de la feuille est que rien ne soit fait "manuellement" en dehors de quelques cases à cocher "ça je garde", "ça je garde pas".

[Pierre Fauconnier]

[...]

Le problème est surtout que filtre est une étape dans un processus où l'on rentre une feuille de données fournie par un logiciel et il en ressort un devis avec toutes les données filtrées automatiquement.[...]

Cela n'empêche pas, selon moi, l'utilisation du filtre automatique ou avancé via VBA. A nouveau, le VBA vient simplement en appui de l'interface, et rien n'interdit de manipuler le filtre (automatique ou avancé) en VBA en lui passant les données choisies par l'utilisateur (qui garde ou ne garde pas telles données).

Cela dit, je ne connais pas bien les filtres du GoogleMachin, et j'irai y jeter un coup d'oeil, mais bon, pour un filtre sur une feuille de calcul, on ne sait pas être d'une inventivité débordante en terme d'interface, pensé-je...