Exporter donnée de plusieurs textbox vers feuille

poussy67

XLDnaute Occasionnel
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)

XLDnaute Barbatruc
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
 

poussy67

XLDnaute Occasionnel
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 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
 

Discussions similaires


Haut Bas