Macro pour mettre les element de formulaire dans un tableau

[sisima05]

bonsoir,
je demande votre aide pour trouver ou est l’erreur, ma macro doit mettre les elements du formulaire dans le tableau dans la feuil2, le problème c’est que il ne créer pas une nouvelle ligne au contraire il continu à mettre les informations dans la même ligne et efface les recentrent
merci infiniment

Private Sub CommandButton1_Click()
Dim fin As Integer
Sheets(« feuil2 »).Activate
fin = Application.WorksheetFunction.CountA(Range(« A:A »)) + 1
Cells(fin, 2) = TextBox1
Cells(fin, 3) = TextBox2
Cells(fin, 5) = TextBox4
Cells(fin, 6) = TextBox5
TextBox1 = «  »
TextBox2 = «  »
TextBox4 = «  »
TextBox5 = «  »
End Sub

[Yoyo01000]

Bonjour,

voici une modification à tester :

Private Sub CommandButton1_Click()

Dim ligne

Sheets("feuil2").Activate
ligne = Range("B1").CurrentRegion.Rows.Count 
Range("B" & ligne + 1) = TextBox1.Value
Range("C" & ligne + 1) = TextBox2.Value
Range("E" & ligne + 1) = TextBox4.Value
Range("F" & ligne + 1) = TextBox5.Value
TextBox1 = ""
TextBox2 = ""
TextBox4 = ""
TextBox5 = ""

End Sub

[Patrice33740]

Bonjour,

Tu ne fournis aucune information sur le contexte et sur le contenu des Textboxs

Pour éviter tout transtypage de variable j’aurais écrit :

Option Explicit
Private Sub CommandButton1_Click()
Dim c As Range
  Set c = ThisWorkbook.Worksheets("feuil2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
  c.Formula = "Il faut écrire quelque chose dans cette colonne"
  c.Offset(0, 1).Formula = Me.TextBox1.Text: Me.TextBox1.Text = ""
  c.Offset(0, 2).Formula = Me.TextBox2.Text: Me.TextBox2.Text = ""
  c.Offset(0, 4).Formula = Me.TextBox4.Text: Me.TextBox4.Text = ""
  c.Offset(0, 5).Formula = Me.TextBox5.Text: Me.TextBox5.Text = ""
End Sub

[sisima05]

merci infiniment, ça a fonctionné

[sisima05]

bonjour Mr yoyo01000, ça va?
en fait si vous pouvez m’aider dans un truc, j’ai une combobox dans un autre formulaire qui doit être remplis à partir d’une column variable, vous avez une idée?
merci d’avance
cordialement

[sisima05]

merci pour votre aide