aide sur un bouton sauve

[angoul]

voila j'ai creer un bouton sauve, en VBA,
mais voila il enregistre pas comme il faut.
j'aimerai qu'il enregistre au fur et a mesure mes articles en prenant compte de la derniere ligne.
quelqu'un peut m'aider??

voici mon code
Private Sub BtnSave_Click()
'Irow = derniere ligne
'WrbCaisse.Worksheets("Article").Cells(iRow + 1, 1) = Me.TxtCodArt.Text
'WrbCaisse.Worksheets("Article").Cells(iRow + 1, 2) = Me.TxtDscArt.Text
End Sub

merci d'avance

 

[Excel-lent]

Re : aide sur un bouton sauve

Bonsoir Angoul,

Private Sub BtnSave_Click()
'Irow = derniere ligne
'WrbCaisse.Worksheets("Article").Cells(iRow + 1, 1) = Me.TxtCodArt.Text
'WrbCaisse.Worksheets("Article").Cells(iRow + 1, 2) = Me.TxtDscArt.Text
End Sub

Remplacer derniere ligne par

Sheets("Article").Range("[COLOR="Red"]A[/COLOR]65536").End(xlUp).Row

Remplacer A par le nom de la colonne voulu. De préférence une colonne toujours rempli à chaque rajout de nouvelle ligne.

Par exemple la colonne "Référence" ou "Clé Primaire" ou ...

PS. : attention bien écrire "iRow" toujours de la même façon! Car dans ton code ci-dessus, ce n'est pas le cas! (mais normalement c'est fait automatiquement).

Bonne soirée

 

[angoul]

Re : aide sur un bouton sauve

merci de ton aide sa marche super