Discussion :

[JulienLeno]

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

[jfontaine]

Bonjour,

Mais je veux comparer des valeurs et là çà ne fonctionne plus et je ne comprend pas pourquoi

Pas vraiment explicite comme problème
A tout hazard ton symbole décimale ne serait pas la virgule?

[JulienLeno]

Désolé c'est vrai que je me suis un peu mal exprimé. En fait dans l'exemple que je donne je rentre dans ma textbox 5 et il me trouvait toute les lignes où il y'avait 5 mais c'était donné comme du texte. Je voudrais maintenant trouver toutes les lignes où les valeurs sont supérieures ou inférieures à 5. A ce moment là il faut que les valeurs que je compare soit du genre

Code :

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

If P.Cells(iL, 2).Value = TextBox1.Value Then

et non pas TextBox1.Text mais le code que j'ai mis dans mon post précédent ne fonctionne pas en comparant des données type "Value".

Jespère que cette fois je suis plus clair.

Merci

[jfontaine]

Tu ne répond pas à cette question

A tout hazard ton symbole décimale ne serait pas la virgule?

Si c'est le cas, utilises

Code :

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

Val(TextBox1.Text)

[JulienLeno]

Désolé mais en fait je vois pas ce que tu veux dire par mon symbole décimale?

Julien

[jfontaine]

Quand tu saisie un nombre décimal dans Excel ou dans la Textbox, tu as 15.3 ou 15,3

[patricktoulon]

bonjour

jfontaine t'a demandé pour la virgule a cause un peu de ton énoncer je cite

je voudrais pouvoir récupérer des valeurs supérieures ou inférieures à la valeur rentré dans une Textbox

donc on suppose que tu veux arrondir au supérieur et au inférieur

mais vu la suite

tu cherche en fait dans la feuille ce qui est supérieur et inférieur a ton text box ce qui n'est pas la même chose

puisque tu a trouver comment chercher avec le chiffre qui est dans ton textbox en string (variable text) comme te la dis jfontaine "val(textbow1)"
te donne la valeur numérique et plus texte de ton textbox

cela dis des le départ tu déclare ta variable qui va te servir a stocker ce qui est dans le textbox en "variant" ainsi l'application elle même le mettra en numérique ou texte selon le contexte


au plaisir