Dim Datepv As Date
Dim datedv As Date
Private Sub TB_Derniere_visite_AfterUpdate()
If Not IsDate(TB_Derniere_visite) Then
Call MsgBox("Vous devez inscrire une date sous la forme jj/mm/aaaa", vbInformation, Application.Name)
Exit Sub
End If
datedv = CDate(Me.TB_Derniere_visite.Text)
'Me.TB_Derniere_visite.Text =
'additionne le nombre de mois pour obtenir la date prévisionnelle de la prochaine visite
Select Case Me.CB_Frequence
Case "24 mois"
Datepv = DateAdd("yyyy", 2, datedv)
Case "12 mois"
Datepv = DateAdd("yyyy", 1, datedv)
Case "6 mois"
Datepv = DateAdd("m", 6, datedv)
End Select
TB_Date_prochaine_visite.Text = Datepv
End Sub
.........................................
Private Sub CommandButton1_Click()
Dim Ligne As Long, C As Range
Set C = Sheets("base").Range("B:B").Find(Me.CB_Nom, lookat:=xlWhole)
If C Is Nothing Then
MsgBox "pas trouvé " & Me.CB_Nom
Exit Sub
End If
Ligne = C.Row
ActiveWorkbook.Sheets("base").Cells(Ligne, 1) = Me.TB_Matricule & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 2) = Me.TB_Nom & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 3) = Me.TB_Prenom & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 4) = Me.TB_Date_Naissance & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 5) = Me.TB_Anciennete & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 7) = Me.TB_Service & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 8) = Me.TB_Division & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 9) = Me.TB_Etablissement & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 10) = datedv
ActiveWorkbook.Sheets("base").Cells(Ligne, 11) = Me.CB_Frequence & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 12) = Datepv
ActiveWorkbook.Sheets("base").Cells(Ligne, 13) = Me.TB_Date_convocation & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 14) = Me.CB_Cause & ""
ActiveWorkbook.Sheets("base").Cells(Ligne, 15) = Me.TB_Commentaire & ""
Unload UserForm1
End Sub