Gestion de userform / vérification de saisie

Bonjour à tous,

Dans mon userform " générateur", Bouton calendrier.

J'essaie de mettre en place un système de message d'alerte si les différents champs de saisies ou de sélection ne sont pas correctement remplis.

J'ai commencer par essayer de gerer mes "optionbuttons" ( j'en ai 3)

Le premier ne génère rien de spécial ( la macro suis son cours sans problème), par contre les 2 autres une fois cochés découvre une textebox qui est également à compléter.

j'ai écris ceci

If Samedi.Value = True & TxtAgW.Value = True Then Sam 
        If FSD.Value = True & TxtAgW.Value = True Then FWE  
        If None.Value = True Then GoTo Insert '-->le premier optionbutton qui génère rien

        If Samedi.Value = False & FSD.Value = False & None.Value = False Then
        MsgBox "Veuillez saisir toutes les options", 48, "Attention!"
        End If
       If FSD.Value = True or None.Value = True or TxtAgW.Value = False Then
        MsgBox "Veuillez saisir toutes les options", 48, "Attention!"
        End If        End If

Mon problème est que si les options ne sont pas correctement saisie ma message box apparait bien mais la macro continue jusqu'aux bout. Je ne trouve pas de moyen pour laisser à l'utilisateur le temps de corrigé l'userform puis de poursuivre.

A terme j'aimerai faire cette vérification pour tous les champs saisies ou sélectionnées. j'ai vu sur le net qu'il était possible de grouper l'ensemble des champs d'un userform ( ce qui pourrais répondre à ma situation) mais sans aucun succès de ma part.

Ci joint le fichier

Merci pour vos idées

Bonjour

Essaie quelque chose dans ce genre :

        If Samedi.Value = True Then
            If TxtAgW = "" Then
                MsgBox "Vous devez indiquer le nombre d'agent travaillant le week end.", 16
                Exit Sub
            Else
                Call Sam
            End If
        End If
        If FSD.Value = True Then
            If TxtAgW = "" Then
                MsgBox "Vous devez indiquer le nombre d'agent travaillant le week end.", 16
                Exit Sub
            Else
                FWE
            End If
        end if

OK ?

Bye !

Effectivement ça me semble plus logique que ma tentative

Je test ça des que possible

Merci gmb

c'est parfait je valide