pb de macro et de remplissage de tableau sous excel

voila pour mon travail je dois creer un programme de traitement des reclamations client. Pour commencer j'ai creer une userform avec differentes textbox a remplir.
ensuite j'ai creer un bouton de commande quand on clique dessus les information saisi dans les differentes textbox se place a des colonne bien precise dans un tableau (jusque la tout vas bien) le seul probleme c'est que a chaque fois que je relance la macro les donné rentré efface les precedente parcequ'elle se mette dans les meme cellule. je voudrai savoir comment faire pour qu'elle s'enregistre a la ligne d'apré

plus precisément voici mon code

Code:

Private Sub CommandButton1_Click()
[reclamation!b5] = TextBox2
[reclamation!c5] = TextBox1
[reclamation!d5] = ComboBox11
[reclamation!e5] = ComboBox12
[reclamation!F5] = ComboBox1 & " " & ComboBox2 & " " & ComboBox3
[reclamation!G5] = ComboBox4 & " " & ComboBox5 & " " & ComboBox6
[reclamation!H5] = ComboBox7 & " " & ComboBox8 & " " & ComboBox9
[reclamation!i5] = TextBox4
[reclamation!j5] = TextBox5
[reclamation!K5] = TextBox3
[reclamation!L5] = ComboBox10
[reclamation!m5] = TextBox6
ActiveWorkbook.Save
Unload UserForm3
End Sub

comme vous pouvez voir j'affecte une cellule du tableau a chaque text(ou combo)box
le pb c'est que a chaque fois que j'apui sur le boutton ca se remet dans la meme cellule.
ce que je voudrais c'est que ca se mette dans la lingne en dessous pour pouvoir conserver les données precedente dans le tableau.


voila merci par avance pour vos reponse que j'espere rapide.
mathieu

Bonjour,

Effectivement tout s'inscrit à chaque fois de B5 à M5.

Il faut balayer le tableau pour trouver la première ligne vide :

-------------------------------------------------------------------------

Private Sub CommandButton1_Click()

' Création d'une variable LIGNE qui contiendra des entiers, les n° de ligne
Dim LIGNE As Integer

' Permet de masquer les actions d'Excel, notamment l'écriture dans les cellules et la recherche de la ligne vide, le résultat est beaucoup plus rapide surtout dans un tableau de plusieurs centaines de lignes, évite de voir le balayage des cellules
Application.ScreenUpdating = False

' La variable LIGNE est définie à 5
LIGNE = 5

' Chercher la première ligne vide à partir de B5
' Tant que la cellule en B (colonne 2) et ligne (la valeur de LIGNE) n'est pas vide on continue à descendre (LIGNE augmente de 1)
While Worksheets("reclamation").Cells(LIGNE, 2).Value <>""
LIGNE = LIGNE + 1
Wend
' On sort de la boucle quand on a trouvé la ligne vide

' Saisie dans les cellules de B à M sur la ligne vide LIGNE
Worksheets("reclamation").Cells(LIGNE, 2) = TextBox2
Worksheets("reclamation").Cells(LIGNE, 3) = TextBox1
Worksheets("reclamation").Cells(LIGNE, 4) = ComboBox11
Worksheets("reclamation").Cells(LIGNE, 5) = ComboBox12
Worksheets("reclamation").Cells(LIGNE, 6) = ComboBox1 & " " & ComboBox2 & " " & ComboBox3
Worksheets("reclamation").Cells(LIGNE, 7) = ComboBox4 & " " & ComboBox5 & " " & ComboBox6
Worksheets("reclamation").Cells(LIGNE, = ComboBox7 & " " & ComboBox8 & " " & ComboBox9
Worksheets("reclamation").Cells(LIGNE, 9) = TextBox4
Worksheets("reclamation").Cells(LIGNE, 10) = TextBox5
Worksheets("reclamation").Cells(LIGNE, 11) = TextBox3
Worksheets("reclamation").Cells(LIGNE, 12) = ComboBox10
Worksheets("reclamation").Cells(LIGNE, 13) = TextBox6

ActiveWorkbook.Save
Unload UserForm3
Application.ScreenUpdating = True

End Sub

-------------------------------------------------------------------------

Voilà, bien sûr on peut encore l'améliorer notamment en définissant la feuille "reclamation" pour raccourcir le code mais l'essentiel c'est que ça marche !

A+

probleme reglé
merci pour ces reponse rapide