Filtre élaboré VBA qui ne fonctionne pas

gillmo · 16 Septembre 2013

Bonjour à tous.

Vous trouverez ci joint un fichier dans lequel j'ai mis un formulaire pour faire un choix de données, et qui ensuite filtre ces données pour les positionner dans une autre feuille.

Malheureusement le filtre bug et je n'obtiens rien.

Avez vous des idées pour solutionner mon problème.

Cdlt.

Gillmo

chris · 16 Septembre 2013

Re : Filtre élaboré VBA qui ne fonctionne pas

Bonjour

Il y a plusieurs problèmes :

Ta zone d'extraction contient un champ qui n'existe pas dans les données : code affectation

Ton code de filtre ne précise pas les worksheets concernées

Code:

Sub Filtrer1()
    Application.ScreenUpdating = False
    Worksheets("Synthèse").Range("A:R").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Worksheets("Choix multiple").Range("A1:D2"),  CopyToRange:=Worksheets("Choix multiple").Range("A4:M4"), Unique:=False
    
    Worksheets("Choix multiple").Range("A:BU").Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

Lorsque les champs n'ont pas été saisis, la commande

Code:

.Cells(2, 2) = Me.affectations

place on ne sait quoi dans le champ qui n'est pas considéré comme vide par le filtre.
Un test avec soit copie du choix, soit suppression du contenu de la cellule résout le problème

Code:

With Sheets("Choix multiple")
        If Me.sites <> "" Then .Cells(2, 1).Formula = Me.sites Else .Cells(2, 1).ClearContents
        If Me.affectations <> "" Then .Cells(2, 2).Formula = Me.affectations Else .Cells(2, 2).ClearContents
        If Me.compte <> "" Then .Cells(2, 3).Formula = Me.compte Else .Cells(2, 3).ClearContents
        If Me.Numimmo <> "" Then .Cells(2, 4).Formula = Me.Numimmo Else .Cells(2, 4).ClearContents
End With

gillmo · 16 Septembre 2013

Re : Filtre élaboré VBA qui ne fonctionne pas

merci chris.

Effectivement je m'étais rendu compte que lorsque je choisissais uniquement une donnée, le filtre ne s'enclencher pas car les autres filtres se remplissait et pourtant les cellules paraissait vide. Et surtout j'ai d'autres filtres qui fonctionnent très bien et qui sont écris de la même façon.

Bref je te remercie, c'est nikel.

A+

gillmo · 23 Septembre 2013

Re : Filtre élaboré VBA qui ne fonctionne pas

Bonjour le forum,

J'ai à nouveau un problème avec un filtre elaboré. Celui ci me génére une erreur 400, mais je ne vois pas ou se trouve le problème.

Merci d'avance de votre aide.

cdlt.

chris · 23 Septembre 2013

Re : Filtre élaboré VBA qui ne fonctionne pas

Bonjour

Dans un tableau Aout, dans l'autre Août : l'accent doit être absent ou présent partout.

gillmo · 24 Septembre 2013

Re : Filtre élaboré VBA qui ne fonctionne pas

Merci Chris.

ce petit détail que je n'avais pas vu, et qui me posait tant de problème.

Filtre élaboré VBA qui ne fonctionne pas

gillmo

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

gillmo

XLDnaute Occasionnel

gillmo

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

gillmo

XLDnaute Occasionnel

Discussions similaires

Filtre élaboré VBA qui ne fonctionne pas

gillmo

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

gillmo

XLDnaute Occasionnel

gillmo

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

gillmo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency