If / Valeur comprise dans un intervalle défini par TextBox
partepaolo
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je tiens d'abord à préciser que j'ai lu plusieurs articles et que je ne trouve pas la solution à mon problème.
Je dispose de plusieurs données. Mon but est de réaliser un tri à partir d'un intervalle de recherche dont les bornes sont fixées par des TextBox et afficher les données qui matchent dans un ListBox.
Voici mon code :
En faisant du pas à pas détaillé, je ne vois pas mon erreur. Les TextBox prennent les valeurs que j'inscris, etc...
Je tiens d'abord à préciser que j'ai lu plusieurs articles et que je ne trouve pas la solution à mon problème.
Je dispose de plusieurs données. Mon but est de réaliser un tri à partir d'un intervalle de recherche dont les bornes sont fixées par des TextBox et afficher les données qui matchent dans un ListBox.
Voici mon code :
Private Sub Provisoire_Click()
Dim LigneList As Integer
Dim i As Integer
Dim x As Integer
LigneList = Sheets(1).Range("C65536").End(xlUp).Row + 1
Me.ListBox1.Clear
i = 0
x = 0
While i < LigneList - 2
If TextBox11.Value < Range("J" & i + 2).Value < TextBox12.Value Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Sheets(1).Range("C" & i + 2)
Me.ListBox1.List(x, 1) = Sheets(1).Range("C" & i + 2).Row
x = x + 1
End If
i = i + 1
Wend
End Sub
En faisant du pas à pas détaillé, je ne vois pas mon erreur. Les TextBox prennent les valeurs que j'inscris, etc...
A voir également:
- If / Valeur comprise dans un intervalle défini par TextBox
- Erreur signet non défini - Forum Word
- Au secours "erreur signet non défini pdf - Forum PDF
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350 - Forum Excel
- A défini votre pseudo sur - Forum Facebook Messenger
1 réponse
Bonjour,
votre code modifie:
et un code un peu plus Excel:
votre code modifie:
Private Sub Provisoire_Click()
Dim LigneList As Integer
Dim i As Integer
Dim x As Integer
LigneList = Sheets(1).Range("C65536").End(xlUp).Row + 1
Me.ListBox1.Clear
i = 2
x = 0
While i <= LigneList
If Range("J" & i).Value > Val(TextBox1.Value) And Range("J" & i).Value < Val(TextBox2.Value) Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Sheets(1).Range("C" & i).Value
Me.ListBox1.List(x, 1) = Sheets(1).Range("C" & i).Row
x = x + 1
End If
i = i + 1
Wend
End Sub
et un code un peu plus Excel:
Private Sub CommandButton1_Click()
Dim LigneList As Integer, x As Integer
Dim Plage As Range, cel As Range
With Sheets(1)
LigneList = .Range("C65536").End(xlUp).Row + 1
Set Plage = .Range("J2:J" & LigneList)
Me.ListBox1.Clear
x = 0
For Each cel In Plage
If cel.Value > Val(TextBox1.Value) And cel.Value < Val(TextBox2.Value) Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = .Range("C" & cel.Row).Value
Me.ListBox1.List(x, 1) = cel.Row
x = x + 1
End If
i = i + 1
Next cel
End With
End Sub