Obliger l'utilisateur à remplir des TextBox spécifique

Bonjour à Tous,

Dans le UserForm Formulaire, je dois obliger l'utilisateur à remplir les TexBox spécifique.

Si l'utilisateur, Clic sur le bouton VALIDER, il faut un message disant que tel ou tel TexBox n'est pas renseigné.

Tant que tous les TexBox obligatoire ne sont pas renseigné, il faut que le message réapparraisse et que le document

ne se Valide pas et ne s'Enregistre pas.

Les Texbox obligatoire à renseigné sont:

• SORTIE OU ENTRÉE
• HOMME DE MÉTIER
• IMPUTATION
• N° DE PIÈCE
• QUANTITÉ

Je joins aussi le fichier que Thihii m'a fait pour cette fonction dans un onglet.

Si possible, j'aimerais adapter cette fonction pour le UserForm.

Je joins mon fichier.

Merci Beaucoup,

Jean.

Salut Moé Kolisse,

Après 207 messages tu ne sais toujours pas faire de test

IF ... then ... else

C'est juste ça à mettre au début de la procédure de ton bouton

If Me.TextBox_Sortie.Value = "" then
Msgbox "Vous devez saisir une valeur !"
Me.TextBox_Sortie.SetFocus
Exit Sub
Endif

Etc...

Bonjour BrunoM45,

Je croyais plus difficile à réaliser. Votre solution fonctionne très bien.

Je bug sur:

L'utilisateur du Formulaire doit renseigné soit: ENTRÉE ou SORTIE. Il faut que le message de remplir la case ENTRÉE ou SORTIE apparaisse seulement si une des deux cases n'est pas renseignée.

Et l'autre point:

Si une des cases PIÈCES est renseignée, que le message:

" MsgBox "VOUS DEVEZ ENTREZ UNE VALEUR DANS LA CASE ***** QUANTITÉ *****" apparaisse si la case QUANTITÉ n'est pas renseignée.

En espérant que vous pourrez m'aider.

Je joins mon fichier.

Merci Beaucoup.

Jean

Re,

Moé Kolisse a écrit :

Je croyais plus difficile à réaliser. Votre solution fonctionne très bien

On se fait trop souvent des nœuds au cerveau, alors que c'est souvent simple

Moé Kolisse a écrit :

Je bug sur:

L'utilisateur du Formulaire doit renseigné soit: ENTRÉE ou SORTIE. Il faut que le message de remplir la case ENTRÉE ou SORTIE apparaisse seulement si une des deux cases n'est pas renseignée.

Là il faut utiliser "and"

If Entree = vide and Sortie =vide then
endif 

Moé Kolisse a écrit :

Et l'autre point:

Si une des cases PIÈCES est renseignée, que le message:

" MsgBox "VOUS DEVEZ ENTREZ UNE VALEUR DANS LA CASE ***** QUANTITÉ *****" apparaisse si la case QUANTITÉ n'est pas renseignée.

Pouce ça, c'est un peu plus compliquer, il faut faire une boucle

  ' Vérifier les Textbox pièce
  ' Textbox pièces commence à 1 et fini à 49
  ' Textbox quantité commence à 3 et fini à 51 -> donc +2
  For iIndice = 1 To 49 Step 6
    If Me.Controls("TextBox" & iIndice) <> "" And Me.Controls("TextBox" & 2 + iIndice) = "" Then
      MsgBox "VOUS DEVEZ ENTREZ UNE VALEUR DANS LA CASE ***** QUANTITÉ *****"
      Exit Sub
    End If
  Next iIndice

A tester

A+

Bonjour BrunoM45,

Le test est très concluant.

Merci Beaucoup du coup de main et des explications fournies.

Jean