D
drumeiro
Guest
Bonjour à tous,
j'aimerais réaliser une boucle pour copier coller les données d'une textbox dans une case différentes en fonction de la valeur d'une combobox
Je pense qu'il y a moyen de créer une boucle pour faciliter l'écriture du code. En effet, là j'ai fait pour seulement 2 combobox alors que j'en ai en tout 27 (combobox 2-->27) pour lesquelles je doit faire la même chose.
Combobox2 --> Textbox3 --> case D6 à L6
Combobox3 --> Textbox4 --> case D6 à L6
Combobox4 --> Textbox5 --> case D6 à L6
Combobox5 --> Textbox6 --> case M6 à U6
Combobox6 --> Textbox7 --> case M6 à U6
Combobox7 --> Textbox8 --> case M6 à U6
Combobox8 --> Textbox9 --> case V6 à AD6
Combobox9 --> Textbox10 --> case V6 à AD6
Combobox10 --> Textbox11 --> case V6 à AD6
...
L'ensemble des données rentrées dans le classeur programme moulin se collent dans le classeur Données gestion moulin
Je vous remercie pour votre aide.
j'aimerais réaliser une boucle pour copier coller les données d'une textbox dans une case différentes en fonction de la valeur d'une combobox
Je pense qu'il y a moyen de créer une boucle pour faciliter l'écriture du code. En effet, là j'ai fait pour seulement 2 combobox alors que j'en ai en tout 27 (combobox 2-->27) pour lesquelles je doit faire la même chose.
Combobox2 --> Textbox3 --> case D6 à L6
Combobox3 --> Textbox4 --> case D6 à L6
Combobox4 --> Textbox5 --> case D6 à L6
Combobox5 --> Textbox6 --> case M6 à U6
Combobox6 --> Textbox7 --> case M6 à U6
Combobox7 --> Textbox8 --> case M6 à U6
Combobox8 --> Textbox9 --> case V6 à AD6
Combobox9 --> Textbox10 --> case V6 à AD6
Combobox10 --> Textbox11 --> case V6 à AD6
...
VB:
If ComboBox2.Value = "Teigne" Then
copier.Range("D6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Mouche" Then
copier.Range("E6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Moucheron" Then
copier.Range("F6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Guêpes" Then
copier.Range("G6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Tribolium" Then
copier.Range("H6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Mites" Then
copier.Range("I6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Moustiques" Then
copier.Range("J6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Punaises" Then
copier.Range("K6").Value = TextBox3.Value
ElseIf ComboBox2.Value = "Autres" Then
copier.Range("L6").Value = TextBox3.Value
End If
If ComboBox3.Value = "Teigne" Then
copier.Range("D6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Mouche" Then
copier.Range("E6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Moucheron" Then
copier.Range("F6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Guêpes" Then
copier.Range("G6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Tribolium" Then
copier.Range("H6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Mites" Then
copier.Range("I6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Moustiques" Then
copier.Range("J6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Punaises" Then
copier.Range("K6").Value = TextBox4.Value
ElseIf ComboBox3.Value = "Autres" Then
copier.Range("L6").Value = TextBox4.Value
End IfL'ensemble des données rentrées dans le classeur programme moulin se collent dans le classeur Données gestion moulin
Je vous remercie pour votre aide.
Dernière modification par un modérateur: