Discussion :

[keyser22]

bonjour à tous, étant un parfait noob en VBA, je n'arrive pas à faire la chose suivante:

Je cherche à ce que les données d'un userform se copient à la suite les unes des autres lorsque je valide.

Exemple simplifié:
j'ai une textbox(TB) et un commandbutton(CB) dans mon UF

Je valide avec le CB et les données de TB se placent en feuille1 A1
je répéte l'opération et les données se placent en feuille1 A2
et ainsi de suite

Voila tout!
merci à ceux qui pourront m'apporter une réponse

Key22

[leroissejp]

Bonjour,
Voici un code, tu n'as qu'a changer les nom de ton CommandButton et TextBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub CommandButton1_Click()
Dim En_Colone, En_Ligne
Range("A1").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
    ActiveCell.Value = UserForm1.TextBox1
    TextBox1.Text = ""
    TextBox1.SetFocus
End Sub

jpleroisse

[keyser22]

Parfait!
Merci Beaucoup!!!

Key22