merci bien
j(ai choisi : If Me.cbocollaborateur.Text <> "" And Me.cbodate.Text <> "" And _
Me.cbodossier.Text <> "" And Me.cbotache.Text <> "" And Me.txtdebut.Text <> "" _
And Me.Txtfin.Text <> "" Then
'Déroulement du code
End If
'
End Sub
mais elle a fonctionné que pour les 3 premier les autres non!
pour quoi ?
'ajout des donner dans la base de donnérs
Private Sub btnajout_Click()
If Me.cbocollaborateur.Text <> "" And Me.cbodate.Text <> "" And _
Me.cbodossier.Text <> "" And Me.cbotache.Text <> "" And Me.txtdebut.Text <> "" _
And Me.Txtfin.Text <> "" Then
btnajout.Enabled = True
Else
btnajout.Enabled = False
End If
With Sheets("source")
i = 2
Do Until .Cells(i, 1).Value = ""
i = i + 1
Loop
.Cells(i, 1).Value = Me.cbocollaborateur.Value
.Cells(i, 2).Value = Me.cbodate.Value
.Cells(i, 3).Value = Me.cbodossier.Value
.Cells(i, 4).Value = Me.cbotache.Value
.Cells(i, 5).Value = Me.txtdebut.Value
.Cells(i, 6).Value = Me.Txtfin.Value
End With
MsgBox " votre saisie a bien été ajouter", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub