Validation si formulaire renseigné

Bonsoir à tous

je sollicite votre aide pour le code suivant

c'est un formulaire de saisie et je souhaite autoriser la validation de la saisie uniquement si tous les combobox et textbox sont renseignés en utilisant le bouton de contrôle vbRetryCancel

Merci d'avance

Private Sub Cmd_Validation_Transferts_Click()
'Valider les données du formulaire

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer

With Feuil8
derligne = .Range("A65536").End(xlUp).Row + 1

For Each Ctrl In Transfert_camion.Controls

r = Val(Ctrl.Tag)

If r > 0 Then Cells(derligne, r) = TrouveType(Ctrl)

Next
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox2 = ""

Me.ComboBox4.SetFocus
End With

End Sub

Re Bonsoir,

J ai tenté ce code mais je ne suis pas sûr de la bonne rédaction mais il semble fonctionner ....

Mais n y a t il pas plus simple ?

Si quelqu un pouvait jeter un œil sur ce code pour m'alerter sur un éventuel problème...

Et aussi sur la forme du code car il me semble assez brouillon ( un débutant vous l aurez compris )

merci

Private Sub Cmd_Validation_Transferts_Click()
'Valider les données du formulaire

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
Dim Rep As Integer

If ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Or TextBox2 = "" Then
MsgBox (" erreur !"), vbRetryCancel

If Rep = vbRetry Then
Unload Me

ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox2 = ""
Me.ComboBox4.SetFocus
End If
Else
If Rep = vbCancel Then
Unload Me
End If

With Feuil8

derligne = .Range("A65536").End(xlUp).Row + 1

For Each Ctrl In Transfert_camion.Controls

r = Val(Ctrl.Tag)

If r > 0 Then Cells(derligne, r) = TrouveType(Ctrl)

Next
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox2 = ""

Me.ComboBox4.SetFocus

End With

End If
End Sub

1ere anomalie

si on active le bouton "recommencer" il ne vide pas le formulaire