Optimisation d'un code

bonjour a tous ,

j'ai besoins d'aide pour optimiser un code ,

en effet j'ai fait une recherche multicritère et ça marche , mais le problème se trouve au niveau de comment creer une boucle afin d'optimiser le code ,

pour mieux expliquer voici le code:

Dim valeur As Integer

Dim a As String

Dim b As String

If Not IsNumeric(TextBox1.Text) Then Exit Sub

valeur = CInt(TextBox1.Text)

If valeur >= Sheets("RESSOURCES").Range("B3") And valeur <= Sheets("RESSOURCES").Range("C3") Then

a = Sheets("RESSOURCES").Range("A3")

Else

a = ""

End If

If valeur >= Sheets("RESSOURCES").Range("B4") And valeur <= Sheets("RESSOURCES").Range("C4") Then

b = Sheets("RESSOURCES").Range("A4")

Else

b = ""

End If

Me.TextBox11.Text = a & vbCrLf & b

c'est pratique pour 3 choix mais au bout de 100 ça devent chaud , quelqu'un peut m'aider svp,

merci d'avance

ps: voici un fichier en pièce jointe

Bonjour,

à tester :

Private Sub CommandButton4_Click()
    Dim valeur As Integer
    Dim datas, lig As Long, ch As String

    If Not IsNumeric(TextBox1.Text) Then Exit Sub
    valeur = CInt(TextBox1.Text)
    datas = [A1].CurrentRegion.Value
    With Sheets("Feuil1")
        For lig = 3 To UBound(datas)
            If valeur >= datas(lig, 2) And valeur <= datas(lig, 3) Then ch = ch & vbLf & datas(lig, 1)
        Next lig
    End With
    Me.TextBox11.Text = Mid(ch, 2)
End Sub

Je pense que tu devrais changer la propriété Scrollbars de Textbox11 vers 2-fmScrollBarsVertical

eric

merci beaucou eric, le code marche , merci bcp

Bonjour,

si tu as plus de réponse que de lignes visibles dans Textbox11 les dernières ne voient pas.

Dans les propriétés de Textbox11 (F4 pour afficher la fenêtre des propriétés dans VBE) tu as Scrollbars qui te permet de mettre un ascenseur dans ce cas.

eric

merci bcp eric , merci infiniment ça marche