Private Sub Ajouter_article_Click()
'*************************
'**Test si tout les champs son romplis
'*****************************
If Len(Me.Txt_nomarticle) = 0 Then
MsgBox "Veillez remplir les champs obligatoirs avec une étoile (*)"
Me.Txt_nomarticle.SetFocus
ElseIf Len(Me.Txt_marque) = 0 Then
MsgBox "Veillez remplir les champs obligatoirs avec une étoile (*)"
Me.Txt_marque.SetFocus
Else
'********Activer la feuille de saisie
Feuil4.Activate
'******************lig=ligne ou écrire
lig = Feuil4.Range("B9999").End(xlUp).Row + 1
'******************************
'********Saisie des données de formulaire dans la feille
'*******************************
'ActiveCell = Me.Txt_nomarticle
Feuil4.Cells(lig, 2) = Me.Txt_nomarticle '2=col B
Feuil4.Cells(lig, 3) = Me.Txt_marque '3=col C
' ActiveCell.Offset(0, 2) = Me.Txt_marque
'******************************
'********Vider le formulaire pour un prochain saisie
'*******************************
Me.Txt_nomarticle = ""
Me.Txt_marque = ""
Me.Txt_nomarticle.SetFocus
End If
End Sub