Bonjour,
Voici un exemple que je dois répéter 15 fois. La seule différence entre ces ligne est mon # de combobox et de Textbox.
Comment écrire le : For i= 1 to 15 ?
If ComboBox1.ListIndex = -1 Then GoTo Données
Cells(ComboBox1.ListIndex + 2, 3) = Cells(ComboBox1.ListIndex + 2, 2) * Val(TextBox31)
If ComboBox2.ListIndex = -1 Then GoTo Données
Cells(ComboBox2.ListIndex + 2, 3) = Cells(ComboBox2.ListIndex + 2, 2) * Val(TextBox32)
If ComboBox3.ListIndex = -1 Then GoTo Données
Cells(ComboBox3.ListIndex + 2, 3) = Cells(ComboBox3.ListIndex + 2, 2) * Val(TextBox33)
Merci
Voici un exemple que je dois répéter 15 fois. La seule différence entre ces ligne est mon # de combobox et de Textbox.
Comment écrire le : For i= 1 to 15 ?
If ComboBox1.ListIndex = -1 Then GoTo Données
Cells(ComboBox1.ListIndex + 2, 3) = Cells(ComboBox1.ListIndex + 2, 2) * Val(TextBox31)
If ComboBox2.ListIndex = -1 Then GoTo Données
Cells(ComboBox2.ListIndex + 2, 3) = Cells(ComboBox2.ListIndex + 2, 2) * Val(TextBox32)
If ComboBox3.ListIndex = -1 Then GoTo Données
Cells(ComboBox3.ListIndex + 2, 3) = Cells(ComboBox3.ListIndex + 2, 2) * Val(TextBox33)
Merci