Discussion :

[sangoben]

Bonjour,

Je suis débutant en VBA et j'aimerais savoir ce que fait précisément cette macro de filtrage que j'ai trouvée sur internet.

Merci d'avance de vos réponses.

sangoben

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
Sub filtre_2col()
Dim sel, valeur, k, rep, col
Set sel = Application.InputBox("Choisissez les colonnes à filtrer", _
"Colonnes à filtrer", , 100, 200, , , 8)
For col = 0 To 1
valeur = Cells(sel.Row + 1, sel.Column + col).Value
For k = sel.Row + 1 To Cells(65000, sel.Column).End(xlUp).Row
If Cells(k, sel.Column + col).Value < valeur _
And Cells(k, sel.Column + col).Value <> "" Then
valeur = Cells(k, sel.Column + col).Value
End If
Next k
Range(sel.Address).EntireColumn.AutoFilter Field:=col + 1, Criteria1:=valeur
rep = MsgBox("Vu ?", vbOKOnly, "Validation")
Selection.AutoFilter Field:=col + 1
Range(sel.Address).AutoFilter
Next col
End Sub

[DeaD78]

Bonjour,

Si tu veux toi-même faire une macro de filtrage, tu lances l'enregistreur de macros et tu fais le filtre "à la main".

A+

[sangoben]

Oui c'est vrai ! Mais en fait, comme je suis débutant en VBA, je souhaitais qu'on m'éclaire plus précisément sur la partie 'Application.Inputbox()'. Pouvez-m'expliciter le type d'arguments à utiliser dans cette application ?
Puis, dans un deuxième temps, j'aimerais comprendre l'utilisation du 'set sel' afin de comprendre comment sont paramétrés les données d'entrée dans le reste du code. Je n'arrive pas à le décrypter.

Merci d'avance

sangoben