Formulaire Multi-Critères

skoobi

XLDnaute Barbatruc

• 18 Décembre 2007

• #2

Re : Formulaire Multi-Critères

Bonsoir,

voici une proposition.

 

Pièces jointes

• Formulaire Multi-Critères.zip

  25.7 KB · Affichages: 147

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 18 Décembre 2007

• #3

Re : Formulaire Multi-Critères

Bonsoir,

merci déjà pour cela, mais par contre dans la feuille résultats, ce n'est pas tout à fait cela que je veux.
Les 3 premières colonnes sont impeccables.
Par contre, pour les autres, je ne veux simplement que les colonnes ou j'ai sélectionné des critères.
Si par exemple, je sélectionne Produits et Prix, je dois voir ces colonnes dans ma feuille résultats avec Civ Nom et Prenom.
Suis-je assez clair ?
Merci déjà de votre aide.

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Décembre 2007

• #4

Re : Formulaire Multi-Critères

Re,

tu dis:

es 3 premiers champs obligatoires, et ensuite simplement les champs où j'aurais sélectionner des critères.

Cliquez pour agrandir...

donc dans la feuille résultats il y aurait systématiquement Civ Nom Prenom Marques Produits Quantités et en option Prix ou livraison non?

 

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 19 Décembre 2007

• #5

Re : Formulaire Multi-Critères

Bonjour,

il y aurait systématiquement Civ Nom Prenom et ensuite en Option Marques Produits Quantités Prix ou livraison, en fonction des selections.
Merci

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 19 Décembre 2007

• #6

Re : Formulaire Multi-Critères

Re bonjour,

voici la version 2.

 

Pièces jointes

• Formulaire Multi-Critères v2.zip

  21.5 KB · Affichages: 114

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 19 Décembre 2007

• #7

Re : Formulaire Multi-Critères

Bonjour,

pour la recherche, c'est excellent.
J'avais encore des questions :
est-il possible que le résultat s'ouvre automatiquement dans un nouveau fichier ?
est-il possible que lorsque l'on valide la recherche, les filtres se mettent à "Zero" dans la feuille listing et que le formulaire se ferme ?

Merci beaucoup pour cette aide précieuse.

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 19 Décembre 2007

• #8

Re : Formulaire Multi-Critères

Re,

voici la version 3 avec tes souhaits. 🙂

 

Pièces jointes

• Formulaire Multi-Critères v3.zip

  18.4 KB · Affichages: 139

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 19 Décembre 2007

• #9

Re : Formulaire Multi-Critères

Bonsoir,

je suis pointilleux, mais ce n'est pas possible de remettre à Zero les filtres, sans fermer le fichier ?
Merci de votre aide

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Décembre 2007

• #10

Re : Formulaire Multi-Critères

Re bonjour,

il suffit d'enlever la ligne:

ThisWorkbook.close .......

 

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 20 Décembre 2007

• #11

Re : Formulaire Multi-Critères

Bonjour,

ok pour supprimer la ligne.
Autrement, si jamais je rajoute des colonnes avant Marques, Produits
cela va changer quoi dans le code ?

Avez-vous moyen de me mettre des commentaires sur cette partie, afin que je comprennes bien ce qui est fait ??

Set plage1 = Range("a3", "c" & Range("c65536").End(xlUp).Row)
plage1.Copy .Range("a3")
Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
If marques1.Value <> "" Then
Set marques = Range("k3", "k" & Range("c65536").End(xlUp).Row)
marques.Copy suite
Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
End If

Merci beaucoup.
......ensuite ce sera OK

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Décembre 2007

• #12

Re : Formulaire Multi-Critères

Re bonjour,

voici les commentaires:

Set plage1 = Range("a3", "c" & Range("c65536").End(xlUp).Row) 'récupère le résultat du filtre en colonne "A:C"
plage1.Copy .Range("a3")
'permet d'identifier la dernière colonne vide sur la ligne 3 et l'attribuer à la variable suite
Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)'permet d'identifier la dernière colonne vide sur la ligne 3 et attribuer la cellule trouvée à la variable suite
If marques1.Value <> "" Then
Set marques = Range("k3", "k" & Range("c65536").End(xlUp).Row) 'récupère le résultat du filtre en colonne "K"
marques.Copy suite
Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
End If

Merci beaucoup.
......ensuite ce sera OK

Paco22[/QUOTE]

 

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 20 Décembre 2007

• #13

Re : Formulaire Multi-Critères

Bonjour,

j'ai essayé de mettre cela dans un autre fichier identique, mais avec beaucoup plus de colonne....en remplacant K3 et K par des R, et automatiquement, le premier filtre est mis sur la colonne A....
A quoi correspond IV3 dans Range ?
Merci

Paco22

 

Vote positif 0 Vote négatif

P

paco22

XLDnaute Junior

• 20 Décembre 2007

• #14

Re : Formulaire Multi-Critères

c'est bon, je n'avais pas pré-selectionner les colonnes que je voulais filtrer.
Par contre, je n'arrive pas à remettre les filtres à "ZERO" dans la feuille Listing, en fermant le Formulaire.
Merci

Paco22

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Décembre 2007

• #15

Re : Formulaire Multi-Critères

Re bonjour,

cette instruction met le filtre à zéro:

Code:

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Elle se trouve normalement à la fin de la macro "Private Sub CommandButton1_Click()"

Code:

Private Sub CommandButton1_Click()
Workbooks.Add
ThisWorkbook.Sheets(1).Activate
With Workbooks(2).Sheets(1)
   Set plage1 = Range("a3", "c" & Range("c65536").End(xlUp).Row)
   plage1.Copy .Range("a3")
   Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   If marques1.Value <> "" Then
      Set marques = Range("k3", "k" & Range("c65536").End(xlUp).Row)
      marques.Copy suite
      Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   End If
   If produits1.Value <> "" Then
      Set produits = Range("L3", "L" & Range("c65536").End(xlUp).Row)
      produits.Copy suite
      Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   End If
   If quantites1.Value <> "" Then
      Set quantites = Range("M3", "M" & Range("c65536").End(xlUp).Row)
      quantites.Copy suite
      Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   End If
   If prix1.Value <> "" Then
      Set prix = Range("N3", "N" & Range("c65536").End(xlUp).Row)
      prix.Copy suite
      Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   End If
   If livraison1.Value <> "" Then
      Set livraison = Range("O3", "O" & Range("c65536").End(xlUp).Row)
      livraison.Copy suite
      Set suite = .Cells(3, .Range("IV3").End(xlToLeft).Column + 1)
   End If
End With
[B][COLOR="Blue"]If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData[/COLOR][/B]
Workbooks(2).Activate
Unload Me
End Sub

 

Vote positif 0 Vote négatif