Exporter donnée de plusieurs textbox vers feuille

[poussy67]

Bonjour le Forum,

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.

En vous remerciant d'avance pour votre aide

Cdt

 

[youky(BJ)]

Bonjour Poussy,
Voici à adapter le 20 en fonction du nombre de textbox
Bruno

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

 

[poussy67]

Bonjour Poussy,
Voici à adapter le 20 en fonction du nombre de textbox
Bruno

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 Youky

Effectivement c'est vraiment simplifier et ça fonctionne a merveille.
Mille merci pour votre aide et la rapidité du retour

encore merci et bonne journée