Re : validation d'un userform
Bonsoir,
tu peux essayer ce code avec ton bouton valider :
Private Sub BoutAjoutFiche_Click()
'date,heure,duree,intervenant,acte,commentaire
'textdate,textheure,comboduree,combointervenant,comboactes,textcomment
Dim O As Worksheet
Set O = Sheets("ce_vierge")
ligne = O.Range("B65536").End(xlUp).Row + 1
If ligne < 10 Then ligne = 10
O.Cells(ligne, 2).Value = Me.TextDate
O.Cells(ligne, 3).Value = Me.TextHeure
O.Cells(ligne, 4).Value = Me.ComboDurée
O.Cells(ligne, 5).Value = Me.ComboIntervenant
O.Cells(ligne, 6).Value = Me.ComboActes
O.Cells(ligne, 7).Value = Me.TextCommentaires
Set O = Nothing
End Sub