Filtre élaboré multicritères

[ivan27]

Bonsoir à tous,

J'utilise un filtre élaboré dynamique téléchargé sur l'excellent site de Jacques BOISGONTIER.

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreElaboreExtraitMacro3.xls

Est-il possible d'y apporter les 2 modifications suivantes :

1 - Fonctionnement avec une colonne date. (aujourd'hui j'ai une erreur 1004)
2 - Serait-il possible, selon le même principe, de sélectionner plusieurs cellules (pas nécessairement sur la même ligne) en maintenant la touche 'Ctrl' et d'obtenir ainsi un filtre multicritères ?

Merci d'avance pour votre aide.

Ivan

 

[Hervé]

Re : Filtre élaboré multicritères

salut

c'est toujours un plaisir de travailler les codes de jacques BOISGONTIER, alors je me suis autorisé à répondre à ta question 1 :

Sub extrait()
 Application.DisplayAlerts = False
 If ActiveCell.Row > 1 And ActiveCell <> "" Then
 If IsDate(ActiveCell) Then
    nomOnglet = Replace(ActiveCell, "/", "-")
    Else
    nomOnglet = CStr(ActiveCell)
End If
   titreCritere = Cells(1, ActiveCell.Column)
   Critere = ActiveCell
   On Error Resume Next
   Sheets(nomOnglet).Delete
   On Error GoTo 0
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = nomOnglet
   [K1] = titreCritere
   [K2] = Critere
   Sheets("bd").[A1:E1000].AdvancedFilter Action:=xlFilterCopy, _
      criteriarange:=[k1:k2], CopyToRange:=Sheets(nomOnglet).[A1]
 End If
End Sub

pour la question 2, il vaudrait mieux que tu lui demandes directement via son site.

a plus

 

[ivan27]

Re : Filtre élaboré multicritères

Bonsoir Hervé et merci.

Jacques passe régulièrement sur le Forum.
Si je n'ai pas de nouvelle ni de solution dans les jours à venir, je le contacterai directement.
Encore merci.

Ivan