rangement données dans cellules

[christian]

bonjour

j'ai un problème de niveau maternelle mais important pour le débutant que je suis.

quel est le code pour inscrire les données d'un USF dans un tableau :

données dans textbox1, 2, 3, 4, 5, 6

à inscrire en ligne 7 colonnes E, G, I, K, M, O
et enregistrements suivants lignes 8, 9 etc....

merci de votre rèponse

Christian

 

[lupin]

En considérant qu'il y a 6 textboxes sur le userform et que la ligne 7 est la première vide de la colonne E :

Private Sub CommandButton1_Click()
' Récupération de la première ligne vide
NouvLigne = Range("E65536").End(xlUp).Row + 1
' Boucle sur chaque controle du userform
Dim Ctr As Control
i = 1
For Each Ctr In Controls
' Si le controle est un des 6 textboxes on en met le contenu dans la cellule
' NouvLigne de la colle 5(E), 6(F), 7(G), 8(H), 9(I), 10(J)
If Ctr.Name = "TextBox" & i Then
Cells(NouvLigne, i + 4) = Ctr.Text
i = i + 1
End If
Next
End Sub