Fichier clients

Bonjour,

Je teste, je tatonne depuis quelques heures mais j'ai du mal, c'est pas très évident...

J'aimerai essayer de créer un fichier clients pour ma boite qui en compte presque 2300..

J'aimerai qu'il se remplisse par une fiche formulaire que j'ai créé, mais au moment de la validation, il me met les données dans la ligne 3 (je lui en ai donné les instructions)

Comment, maintenant, faire pour que les données suivantes soient mises dans les lignes dessous ?

Voici les instructions que j'ai inscrite :

Private Sub CommandButtonValider_Click()

Range("A3") = TextBoxnom.Value

Range("B3") = TextBoxprenom.Value

Range("C3") = TextBoxadresse1.Value

Range("D3") = TextBoxadresse2.Value

Range("E3") = TextBoxcp.Value

Range("F3") = TextBoxville.Value

Range("G3") = TextBoxtel1.Value

Range("H3") = TextBoxtel2.Value

Range("I3") = TextBoxmail.Value

Range("J3") = TextBoxetage.Value

Range("K3") = TextBoxcode.Value

Range("L3") = TextBoxsyndic.Value

Range("M3") = TextBoxadresseext1.Value

Range("N3") = TextBoxadresseext2.Value

Range("O3") = TextBoxadresseextcp.Value

Range("P3") = TextBoxadresseextville.Value

Range("Q3") = TextBoxcontactgardien.Value

Range("R3") = TextBoxcommentaires.Value

Unload FC1

End Sub

Merci pour votre attention

Je vous remercie par avance pour votre aide

Marlène

Bonjour

Une idée

Private Sub CommandButtonValider_Click()
Dim Ligne As Long

  Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
  Range("A" & Ligne) = TextBoxnom.Value
  Range("B" & Ligne) = TextBoxprenom.Value
  Range("C" & Ligne) = TextBoxadresse1.Value
  Range("D" & Ligne) = TextBoxadresse2.Value
  Range("E" & Ligne) = TextBoxcp.Value
  Range("F" & Ligne) = TextBoxville.Value
  Range("G" & Ligne) = TextBoxtel1.Value
  Range("H" & Ligne) = TextBoxtel2.Value
  Range("I" & Ligne) = TextBoxmail.Value
  Range("J" & Ligne) = TextBoxetage.Value
  Range("K" & Ligne) = TextBoxcode.Value
  Range("L" & Ligne) = TextBoxsyndic.Value
  Range("M" & Ligne) = TextBoxadresseext1.Value
  Range("N" & Ligne) = TextBoxadresseext2.Value
  Range("O" & Ligne) = TextBoxadresseextcp.Value
  Range("P" & Ligne) = TextBoxadresseextville.Value
  Range("Q" & Ligne) = TextBoxcontactgardien.Value
  Range("R" & Ligne) = TextBoxcommentaires.Value

  Unload FC1
End Sub

Merci pour ta réponse Banzai64

Je vais tester ça dans la foulée

Ca marche bien

Merci Banzai