Bonjour. Voilà mon problème j'ai en fait un tableau avec un certain nombre de donnée. Je voudrais pouvoir dans un premier temps à l'aide d'une textbox récupérer toutes les lignes où la valeur rentré dans la Textbox apparait. J'ai réussi à faire quelque chose qui marche pas mal mais le problème c'est que maintenant je voudrais pouvoir récupérer des valeurs supérieures ou inférieures à la valeur rentré dans une Textbox. Pour ceci je ne peux pas utiliser un comparatif de Text comme j'avais fais précédemment de ce genre là.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If P.Cells(iL, 2).Text = TextBox1.Text Then
Mais je veux comparer des valeurs et là çà ne fonctionne plus et je ne comprend pas pourquoi. Pour moi la valeur de la cellule est une donné numérique mais je ne suis pas sur. En tous cas pour l'instant j'ai le code suivant. Est ce que vous voyez comment faire??

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CommandButton1_Click()
 
Dim iL As Long
Dim P As Worksheet
Dim M As Worksheet
Dim h As Long
 
Set P = Worksheets("Sheet2")
Set M = Worksheets("Sheet3")
 
iP2 = Sheet1.Cells(100, 1).Value
 
 
 
TextBox1.Value = h
 
If TextBox1.Value <> "" Then
 
 For iL = 1 To 20
 
            If P.Cells(iL, 2).Value = TextBox1.Value Then
               P.Rows(iL).Copy M.Cells(iP2, 1)
 
            iP2 = iP2 + 1
            End If
 
        Next
M.Select
 
ElseIf TextBox2.Value <> "" Then
MsgBox "OK text 2"
 
ElseIf TextBox3.Value <> "" Then
MsgBox "OK text 3"
 
Else: MsgBox "Rentrer une valeur"
 
 
End If
 
 
End Sub
merci