Bonjour,
J'ai une liste, dans laquelle je dois rajouter des éléments avec un userform, les éléments se rajoutent dans la colonne B de ma feuille Excel l'un après l'autre, j'ai rédigé un code mais le problème c'est que a chaque fois il écrase l'ancienne donnée pour ajouter l'ancienne.
Dans le fichier joint, cliquer sur ajouter lame, choisir les éléments des comboboxes et ajouter année et moi après avoir valider, la donnée figure sur la feuille.
le code est le suivant: ( que dois je modifier) Merci
Private Sub CommandButton1_Click()
Dim ws_liste As Worksheet
Dim fin_liste As Integer
Set ws_liste = ActiveWorkbook.Worksheets("Liste_Lame_" & Me.ComboBox_Modele.Value)
fin_liste = ws_liste.Range("A65533").End(xlUp).Row
ws_liste.Cells(fin_liste + 1, 2) = Me.ComboBox_Num.Value & "-" & Me.TextBox_Mois.Value & "-" & Me.TextBox_Annee.Value & "-" & Me.ComboBox_Modele.Value & "-" & Me.ComboBox_Const.Value
Unload Me
End Sub
J'ai une liste, dans laquelle je dois rajouter des éléments avec un userform, les éléments se rajoutent dans la colonne B de ma feuille Excel l'un après l'autre, j'ai rédigé un code mais le problème c'est que a chaque fois il écrase l'ancienne donnée pour ajouter l'ancienne.
Dans le fichier joint, cliquer sur ajouter lame, choisir les éléments des comboboxes et ajouter année et moi après avoir valider, la donnée figure sur la feuille.
le code est le suivant: ( que dois je modifier) Merci
Private Sub CommandButton1_Click()
Dim ws_liste As Worksheet
Dim fin_liste As Integer
Set ws_liste = ActiveWorkbook.Worksheets("Liste_Lame_" & Me.ComboBox_Modele.Value)
fin_liste = ws_liste.Range("A65533").End(xlUp).Row
ws_liste.Cells(fin_liste + 1, 2) = Me.ComboBox_Num.Value & "-" & Me.TextBox_Mois.Value & "-" & Me.TextBox_Annee.Value & "-" & Me.ComboBox_Modele.Value & "-" & Me.ComboBox_Const.Value
Unload Me
End Sub