Copie de données sur une deuxième feuille

Bonjour à toute et à tous,

Je me sert de votre forum depuis quelques jours (il m'as bien rendu service jusque là) mais je coince sur un petit problème.

J'ai un fichier dans lequel j'aimerais pouvoir avoir une feuille dans laquelle je rentre des données (Pannes du Jour) et une deuxième feuille (Historique Pannes) qui me servirai d'historique de ses données avec une numérotation après chaque rentrées, en sachant que les données de la première feuille sont réinitialisée chaque jour, mon souci est que j'arrive à écrire sur ma première feuille mais ça se complique sur la deuxième, les données reprennent à partir de la première ligne au lieu de s'inscrire à la suite, je vous laisse mon code VBA pour vous donner une idée de ce que je fait comme manip.

merci d'avance de votre aide.

  
Private Sub CommandButtonNext_Click()

Dim MaFeuille
   MaFeuille = "Pannes du Jour"
   Sheets(MaFeuille).Visible = xlSheetVisible
   Sheets(MaFeuille).Activate

L = Worksheets("Pannes du Jour").Range("a65536").End(xlUp).Row + 1

Worksheets("Pannes du Jour").Range("A" & L).Value = ComboBox1
Worksheets("Pannes du Jour").Range("C" & L).Value = TextBox3
Worksheets("Pannes du Jour").Range("D" & L).Value = TextBox4
Worksheets("Pannes du Jour").Range("E" & L).Value = ComboBox4

L = Worksheets("Historique Pannes").Range("b65536").End(xlUp).Row + 1

Worksheets("Historique Pannes").Range("B" & L).Value = ComboBox1
Worksheets("Historique Pannes").Range("D" & L).Value = TextBox3
Worksheets("Historique Pannes").Range("E" & L).Value = TextBox4
Worksheets("Historique Pannes").Range("F" & L).Value = ComboBox4
Worksheets("Historique Pannes").Range("G" & L).Value = ComboBox2
Worksheets("Historique Pannes").Range("H" & L).Value = ComboBox3
Worksheets("Historique Pannes").Range("I" & L).Value = TextBox5

Unload Me

UserForm2.Show

End Sub

Bonjour, votre code est en apparence correctement écrit. La problématique vient d'ailleurs.

Mon souci est que si je change la deuxième partie

L = Worksheets("Historique Pannes").Range("b65536").End(xlUp).Row + 1

en

L = Worksheets("Historique Pannes").Range("a65536").End(xlUp).Row + 1

l'inscription des données se font mais en se basant sur la colonne A ce qui n'est pas mon but vu que je dois incrémenter un numéro et ça me fait de toute façon le problème de recommencer à partir de la Ligne 2 au lieu de continuer à la suite

Problème résolu, je ne sais pas pourquoi mais j'avais une données qui s'était faufilée très très bas dans le tableau ce qui me faisais tout foirer , merci quand même.

Par contre si vous avez une idée pour incrémenter une numérotation en colonne A je suis preneur

Plusieurs possibilité :

1. Affiche le numéro de ligne +1

Worksheets("Historique Pannes").Range("A" & L)=Worksheets("Historique Pannes").Range("A" & L).row +1 

2. Additionne la ligne de dessus + 1

Worksheets("Historique Pannes").Range("A" & L)=Worksheets("Historique Pannes").Range("A" & L).offset(-1,0) +1 

[quote="[Wilder]"]Plusieurs possibilité :

1. Affiche le numéro de ligne +1

Worksheets("Historique Pannes").Range("A" & L)=Worksheets("Historique Pannes").Range("A" & L).row +1 

2. Additionne la ligne de dessus + 1

Worksheets("Historique Pannes").Range("A" & L)=Worksheets("Historique Pannes").Range("A" & L).offset(-1,0) +1 

[/quote]

En fait en A1 j'ai un titre "N° de Panne" et il faudrait que ça commence en A2 par "1" et que le reste s'incrémente.

Worksheets("Historique Pannes").Range("A" & L)=Worksheets("Historique Pannes").Range("A" & L).row +1 

Merci Wilder,

Malheureusement il commence la numérotation à partir de 3 mais j'ai fait différemment, j'ai posé une formule directement dans mas colonne : =SI(B3="";"";LIGNE(B3)-1).

Merci du coup de pouce.

ok.