Discussion :

[chikitin]

Bonjour à tous,
Je dois trier une BD pour soutirer les colonnes qui contiennent les valeurs comprises entre deux intervals déterminés par les saisies dans 2 textBox:

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
Private Sub UserForm_Initialize()
 
With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox1.Text)
End With
With TextBox2
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox2.Text)
End With
 
End Sub
 
 
Private Sub CommandButton1_Click()
 
MsgBox ("valeurs entre" & TextBox1 & "et" & TextBox2)
End Sub

Donc en même temps que j'affiche dans MsgBox les deux valeurs saisies, la feuille ne doit afficher que les cellules comprises entre ces 2 valeurs.
Cas concret, si dans Textbox1=10euros, dans textBox2=25euros, il ne doit rester que les cellules contenant les prix entre 10 et 25 euros.
Comment je code celà après MsgBox?

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
If Len(Me.TextBox1) > 0 And Len(Me.TextBox2) > 0 Then
   With Sheets("Feuil3").Columns("B:B")  ' à adapter
      .AutoFilter
      .AutoFilter field:=1, Criteria1:=">=" & CDbl(Me.TextBox1), Operator:=xlAnd, Criteria2:="<=" & CDbl(Me.TextBox2)
   End With
End If
Unload Me
End Sub

[chikitin]

oaip!!!! merci mercatog, impeccable.