Discussion :

[Disabled30]

Bonjour,

Je suis novice en développement de macro approximativement 3 jours d’expérience.

A l’heure actuelle, j’ai réussi à initialiser mon interface graphique avec ma base de données mais maintenant je rencontre plusieurs difficultés pour coder les fonctions de celle-ci.

Dans un premier temps je vais vous expliquer en détail mon projet pour éviter tout malentendu voir pièce jointe document word (projet).

Le problème que je rencontre et au niveau des listbox. Je souhaite créer un filtre multicritères à partir des informations de ma listbox si je choisi l'opérateur xland le code s'exécute mais je ne filtre que 1 seul critère de ma listbox. J’ai donc changé mon opérateur xland par xlfiltervalues mais quand j'exécute j'ai le message d'erreur exécution 1004 : "La méthode Autofilter de la classe range a échoué"

Je ne comprends pas pourquoi quelqu'un peut-il m'aider? (j'utilise excel 2002)

Je joins également ma base de données avec le code utilisé.

[Daniel.C]

Bonjour,

Je ne pense pas que "xlFilterValues" soit un opérateur valable pour Excel 2002 (il n'existe pas dans Excel 2003). Utilise plutôt un filtre avancé.

[Disabled30]

Merci Daniel de m'avoir répondu

J'ai essayé de faire comme tu m'as dit malheureusement l'aide fourni sur excel n'est pas très utile. j'ai essayé d'adapter mon code avec le peu d'information et ça ressemble à ceci :

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
Dim Tablo() As Variant
Dim i As Integer, Indice As Integer

With Me.ListBox1
    For i = 0 To .ListCount - 1
      If .selected(i) = True Then
       ReDim Preserve Tablo(Indice)
        Tablo(Indice) = .List(i)
       Indice = Indice + 1
     End If
    Next i
  End With
  If Indice = 0 Then
    Range("$B$5:$O$30").AdvancedFilter  Else
    Range("$B$5:$O$30").AdvancedFilter , Action:=xlFilterInPlace, CriteriaRange:=Range("Tablo")  
End If

J'utilise le tutoriel formation Excel - VBA débutant que j'ai trouvé sur le site il évoque bien la fonction AdvancedFilter mais ne dit pas comment l'utiliser.

Connais tu un tuto qui puisse m'aider dans mes démarches?

[Daniel.C]

Le "CriteriaRange" doit être une plage de cellules. Regarde le classeur joint :

Disabled30 Advanced filter.xls

[Daniel.C]

... et un tutoriel sur le sujet :

http://philippetulliez.developpez.co...dvancedfilter/

[Disabled30]

Si j'ai bien compris, je ne peux pas me servir de ma ListBox pour sélectionner mes critéres?

[Daniel.C]

Si, mais au lieu de remplir une variable tableau, il faut recopier les sélections des listboxes dans des plages de cellules.