Discussion :

[xtecpasteque]

bonjour,

Je suis débutant sur excel et je voudrais écrire un code permettant de :

Je rentre une valeur dans une textbox, par exemple 10
en appuyant sur un bouton valider, sa m'affiche dans une listbox toutes les valeurs inférieurs et égal à 10 qui sont déja entrées dans une feuille excel

par exemple :

les valeurs dans mon classeur :
opération1 5 jours
opération2 48 jours
opération3 9 jours


Merci de votre aide

Il doit donc m'afficher dans la listebox
opération1 5 jours
opération3 9 jours

[Daniel.C]

Bonjour,

Mets le code suivant dans le module de l'userform. J'ai considéré que "opération x" est en colonne A et le nombre en colonne B (sans "jours") :

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
Private Sub CommandButton1_Click()
    Dim c As Range, Plage As Range
    With Sheets("BD")
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Me.ListBox1
        .Clear
        For Each c In Plage
            If Me.TextBox1.Text <> "" And IsNumeric(Me.TextBox1.Text) Then
                If c.Offset(, 1) <= CInt(Me.TextBox1.Text) Then
                    .AddItem c.Value
                    .List(.ListCount - 1, 1) = c.Offset(, 1).Value
                End If
            End If
        Next c
    End With
End Sub
 
Private Sub UserForm_Activate()
    Me.ListBox1.Clear
    Me.TextBox1.Text = ""
End Sub

Regarde le classeur de test en PJ.

[Daniel.C]

Ce classeur-ci est plus explicite.

[xtecpasteque]

merci , sa marche super !

[xtecpasteque]

rebonjour

J'essaye depuis tous a l'heure de transformer votre code mais je n'y arrive pas

enfaite je vous ai demandé une petite simplification mais ce n'est pas mon réel besoin

Voici ce que je voudrais que sa fasse :

Chaque outil possède des opérations différentes, il y en a plusieurs sur chaque outils

outil1 opération1 5jours opération2 48 jours opération3 5jours
outil2 opération1 7jours opération2 25 jours
outil3 opération1 5jours opération2 12 jours opération3 7jours

si je selectionne donc 10 jours dans ma textbox :
voici ce que je voudrais que sa s'affiche dans ma listbox

outil1 opération1 5jours
outil1 opération3 5jours
outil3 opération1 5jours
outil3 opération3 7jours
outil2 opération1 7jours

[Daniel.C]

Ça serait sympa si tu présentais tout de suite tes données telles qu'elles sont réellement,ça m'évite du travail...
C'est pas clair s'il y a un espace ou pas entre le nombre et le mot "jours". De plus est-ce que tu pourrais agencer tes données de la manière suivante :

outil1 opération1 5jours
outil1 opération2 48jours
outil1 opération3 5jours
outil3 opération1 5jours
outil3 opération2 12jours
outil3 opération3 7jours
outil2 opération1 7jours
outil2 opération2 25jours