Discussion :

[igno42]

salut à tous, voilà, j'ai 1 feuille 1 nommée "identification" dans laquelle j'aimerais indiquer le mini (dans H10 de cette feuille) et le maxi (dans I10) de l'ensemble des valeurs de la colonne 6 de ma feuille 2 nommée "base de données".
En bref ?Je souhaite,
AVANT
*en feuille 1:
H10->mini à saisir (par exemple 20)
I10->maxi à saisir(par exemple 50)
*enfeuille 2:
colonne5 colonne 6 colonne 7...
45 23 10
65 18 18
56 42 49
45 60 78

APRES
*en feuille 1:
H10->20
I10->50
*enfeuille 2:
colonne5 colonne 6 colonne 7...
45 23 10
56 42 49


VOILA
MERCI

[pgz]

Bonjour.

Si dans la feuille 2 il y a une ligne de titre avant les données, tu peux utiliser un filtre avancé. Il faudra adapter la feuille 1 pour que H9:I10 devienne une zone de critères.

Cordialement,

PGZ

[igno42]

Je peux pâs faire comme cela j'y ai pensé...j'ai en tout une vingtaine de colonnes qui vont être filtrées dans ma base de données avec des mini et maxi

[igno42]

bonsoir,voilà, j'ai sur ma feuille 2 une base de données avec un filtre auto.J'aimerais, pour chacune de mes colonnes, pouvoir les filtrer de ma feuille 1 en indiquant un mini et un maxi de séléction.

ex: dans ma colonne "prix" de ma feuille 2, je veux seulement les prix compris entre 1000 et 1200€(alors que sans filtre la colonne va de 800 à 2000€).
je veux que ces valeurs mini et maxi, à saisir en feuille 1, soient dans 2 cellules côte à côte.



merci
aurélien

[fring]

Bonjour,

Ceci pourrait peut-être convenir

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
19
20
Sub test()
Dim Mini As Integer, Maxi As Integer, i As Integer
 
With Sheets("Feuil1")
    Mini = .Range("H10")
    Maxi = .Range("I10")
End With
 
With Sheets("Feuil2")
    Application.ScreenUpdating = False
    .Range("A1:A" & Rows.Count).EntireRow.Hidden = False
    For i = .Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
        Select Case .Cells(i, 7)
            Case Mini To Maxi
            Case Else: .Rows(i).Hidden = True
        End Select
    Next
    Application.ScreenUpdating = True
End With
End Sub

[mercatog]

Bonjour et bienvenue au forum
Par filtre automatique, code fait, j'espère que tu chercheras à comprendre chaque instruction (F1 est d'une grand utilité)
en feuil1:
B1: le prix min et en B2: le prix max
en feuil2: la colonne C est la colonne des prix avec en ligne 1 le titre des données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub FiltreEntreBornes()
Dim LastLig As Long
Dim MinPrix As Double, MaxPrix As Long
 
Application.ScreenUpdating = False
MinPrix = Application.Min(Sheets("Feuil1").Range("B1:B2"))
MaxPrix = Application.Max(Sheets("Feuil1").Range("B1:B2"))
 
With Sheets("Feuil2")
    .AutoFilterMode = False
    LastLig = .Cells(Rows.Count, "C").End(xlUp).Row
    .Range("C1:C" & LastLig).AutoFilter field:=1, Criteria1:=">=" & MinPrix, Criteria2:="<=" & MaxPrix, Operator:=xlAnd
End With
End Sub