Procédure trop longue, y'a t'il un autre moyen de faire ce que je veux?

[Nicolas]

Voila mon prob :

J'ai un ComboBox qui contient des références de produits. Seulement cette liste de produit doit pouvoir faire jusqu'à 500 références.

Or à partir de la référence du ComboBox et d'un chiffre que je rentre dans un TextBox à coté, j'applique cette macro :

Private Sub TextBox1_Change()
If ComboBox1.Value = Sheets("Données").Range("A1") Then
Sheets("U5").Range("G6").Value = TextBox1.Value * 100 / (60 / (Sheets("Données").Range("B1")) * Sheets("Données").Range("C1") * 60 * Sheets("Données").Range("H2"))
ElseIf ComboBox1.Value = Sheets("Données").Range("A2") Then
Sheets("U5").Range("G6").Value = TextBox1.Value * 100 / (60 / (Sheets("Données").Range("B2")) * Sheets("Données").Range("C2") * 60 * Sheets("Données").Range("H2"))


La, pour l'exemple, je n'ai mis que 2 entrées mais pour bien faire, il faudrait que je puisse aller jusqu'à 500 mais je bloque à 170 car après j'ai une erreur procédure trop longue.

Si qq'un à une solution, merci d'avance.

 

[Doncoucou]

Salut tu devrais utiliser les boucles ex:


Sub aaa()
Sheets("feuil1").Range("A1").Select
Dim i As Long

Do While ActiveCell.Value <> ""
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Range("A1").Select
Else
'aaaaaa
End If
'aaaaaaaaa
Loop
End Sub

je sais que cela ne répond pas complètement a ton attente,mais en bricolant un peu la formule tu devrait y trouver ton bonheur
la fonction Do while xxxx loop permet de rebouclé tant que la condition de while est vrai

Bon ba voila,si tu as du mal laisse moi un message et je regarderais

A+