Je suis à la recherche d'une solution pour simplifié un code pour une saisie
plusieurs textbox vers une feuille. Actuellement j’utilise ce type de code
Sheets("Demande").Cells(ComboBox3.ListIndex + 8, 4).Value = TextBox1.Value
Sheets("Demande").Cells(ComboBox3.ListIndex + 8, 5).Value = TextBox2.Value
Sheets("Demande").Cells(ComboBox3.ListIndex + 8, 6).Value = TextBox3.Value
etc...(20 lignes)
j'ai déjà essayé de créer un code en boucle mais sans résultat, c'est pour cela
que je m'adresse au pro de le VBA.
Bonjour Poussy,
Voici à adapter le 20 en fonction du nombre de textbox
Bruno
VB:
Dim lig, k
lig=combobox3.listindex+8'ligne à écrire
with sheets('Demande")
for k=1 to 20 '20 à adapter
.cells(lig,k+3).value=controls("TextBox" & k).value
next
end with
Bonjour Poussy,
Voici à adapter le 20 en fonction du nombre de textbox
Bruno
VB:
Dim lig, k
lig=combobox3.listindex+8'ligne à écrire
with sheets('Demande")
for k=1 to 20 '20 à adapter
.cells(lig,k+3).value=controls("TextBox" & k).value
next
end with