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