bouton de commande cliquez sur Userform entrer la zone de texte à la cellule, puis bouclez les colonnes par clic

Question

Je suis très nouveau à VBA. J'ai créé un userform qui a des zones de texte qui ont besoin de transférer des données de zone de texte vers une plage de cellules. La plage sur laquelle je dois travailler est Columns, par exemple C8: AG8, de sorte que les données dans la boîte de texte une fois entrées et cliquées vont passer en boucle à la colonne suivante pour répéter le processus. J'ai besoin de la boucle pour travailler de colonne en colonne, pas de rangée en rangée. Je vous remercie.

Jusqu'à présent, j'ai les ci-dessous cependant, cela ne remplit une fois:

Private Sub CommandButton1_Click() 
    Range("C8") = TextBox1.Value 
    Range("C9") = TextBox2.Value 
    Range("C10") = TextBox3.Value 
    Range("C11") = TextBox4.Value 
    Range("C12") = TextBox5.Value 
    Range("C13") = TextBox6.Value 
    Range("C14") = TextBox7.Value 
    Range("C15") = TextBox8.Value 
    Range("C16") = TextBox9.Value 
    Range("C17") = TextBox10.Value 
    Range("C18") = TextBox11.Value 
    Range("C19") = TextBox12.Value 
    Range("C20") = TextBox13.Value 
    Range("C21") = TextBox14.Value 
    Range("C22") = TextBox15.Value 
    Range("C23") = TextBox16.Value 
    Range("C24") = TextBox17.Value 
    Range("C25") = TextBox18.Value 
End Sub 

Answer 1

Quelque chose comme cela serait probablement le faire:

Private Sub CommandButton1_Click() 

Dim i As Integer 

For i = 3 To 33 'Columns C to AG 

    Cells(8, i) = TextBox1.Value 
    Cells(9, i) = TextBox2.Value 
    Cells(10, i) = TextBox3.Value 
    Cells(11, i) = TextBox4.Value 
    Cells(12, i) = TextBox5.Value 
    Cells(13, i) = TextBox6.Value 
    Cells(14, i) = TextBox7.Value 
    Cells(15, i) = TextBox8.Value 
    Cells(16, i) = TextBox9.Value 
    Cells(17, i) = TextBox10.Value 
    Cells(18, i) = TextBox11.Value 
    Cells(19, i) = TextBox12.Value 
    Cells(20, i) = TextBox13.Value 
    Cells(21, i) = TextBox14.Value 
    Cells(22, i) = TextBox15.Value 
    Cells(23, i) = TextBox16.Value 
    Cells(24, i) = TextBox17.Value 
    Cells(25, i) = TextBox18.Value 

Next i 

End Sub