boucle et texte box

[ninajams]

Bonjour,

J'ai sur mon formulaire 2 colonnes de textbox.

1ère colonne : Prix_Ht_1, Prix_HT_2, ect jusqu'à 20.
2ème colonne : Prix_TTC_1, Prix_TTC_2, ect jusqu'à 20.

J'ai créer une textbox Prix_TTC et un Command button pour appliquer la valeur de Prix_TTC à toute les Prix_TTC1,2,.... a condition que la texte box Prix_HT correspondante soit rempli.

Comme je n'arrivais pas à faire une boucle en remplaçant le numéro de ligne des textbox par une variable j'ai pondu ce code (qui fonctionne) mais je dois le dupliquer jusqu'à la 20ème textbox.

Est ce que quelqu'un pourrais m'améliorer ca ?

Merci

Private Sub CommandButton3_Click()

If UserForm1.Prix_HT_1.Value = "" Then
Else
 UserForm1.Prix_TTC_1.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_2.Value = "" Then
Else
 UserForm1.Prix_TTC_2.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_3.Value = "" Then
Else
 UserForm1.Prix_TTC_3.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_4.Value = "" Then
Else
 UserForm1.Prix_TTC_4.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_5.Value = "" Then
Else
 UserForm1.Prix_TTC_5.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_6.Value = "" Then
Else
 UserForm1.Prix_TTC_6.Value = UserForm1.Prix_TTC.Value
End If

If UserForm1.Prix_HT_7.Value = "" Then
Else
 UserForm1.Prix_TTC_7.Value = UserForm1.Prix_TTC.Value
End If

End Sub

 

[pierrejean]

Bonjour ninajams
A tester:

For n = 1 To 20
If UserForm1.Controls("Prix_TTC_" & n) <> "" Then UserForm1.Controls("Prix_TTC_" & n) = UserForm1.Prix_TTC.Value
Next

 

[ninajams]

Bonjour ninajams
A tester:

For n = 1 To 20
If UserForm1.Controls("Prix_TTC_" & n) <> "" Then UserForm1.Controls("Prix_TTC_" & n) = UserForm1.Prix_TTC.Value
Next

Merci c'est parfait