N
nicole
Guest
Bonsoir amis du forum,
je passe presque plus de temps avec vous que à vraiment travailler. Je trouve énormement de choses intéressantes sur le site.
Alors mon pb, avec mon bouton enregistrer je récupère des données d'un userform ( dans des textbox) et je les renvoie comme il s'agit de nouvelles données à la dernière ligne du tableau. ça marche pour le premier cas , seulement si refais la même opération, les nouvelles données écrasent les anciennes données , que puis-faire?
mon code:
Private Sub Recording()
Dim TheCheckList As String
Dim CTRL As Control
Dim j As Integer
Dim k As Integer
k = j + 1
k = 450
Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row
If CheckBox1.Value = True Then
WS.Cells(k, 79) = Me.TbGPD.Value
WS.Cells(k, 98) = Me.TbRisqHCofaceR.Value
End If
End Sub
merci à tous
je passe presque plus de temps avec vous que à vraiment travailler. Je trouve énormement de choses intéressantes sur le site.
Alors mon pb, avec mon bouton enregistrer je récupère des données d'un userform ( dans des textbox) et je les renvoie comme il s'agit de nouvelles données à la dernière ligne du tableau. ça marche pour le premier cas , seulement si refais la même opération, les nouvelles données écrasent les anciennes données , que puis-faire?
mon code:
Private Sub Recording()
Dim TheCheckList As String
Dim CTRL As Control
Dim j As Integer
Dim k As Integer
k = j + 1
k = 450
Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row
If CheckBox1.Value = True Then
WS.Cells(k, 79) = Me.TbGPD.Value
WS.Cells(k, 98) = Me.TbRisqHCofaceR.Value
End If
End Sub
merci à tous