Remplissage de tous les champs pour validation

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

belsamis01

XLDnaute Nouveau
Bonjour ami(e)s internautes,

Voici mon problème actuel :
J'ai un formulaire à faire remplir pour de nouvelles embauches si celui-ci n'est pas complet impossibilité de le valider en y mettant un message et après qu'il soit entièrement rempli et une fois cliqué sur le bouton valider que toutes les données soit envoyé sur la feuille BASE.
Pour l'instant les données vont bien sur la feuille BASE mais impossible de bloquer la validation si un champ n'est pas rempli je bug.
 

Pièces jointes

Bonjour Belsamis,
Voici du mieux dans cette macro.
Bruno
VB:
Private Sub CommandButton1_Click()
If Texbox1 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or Texbox10 = "" Or _
Texbox12 = "" Or Texbox13 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "Merci de compléter tous les champs Bleu": Exit Sub
End If
If h35.Value = False And h39.Value = False Then MsgBox "Merci de compléter tous les champs Bleu": Exit Sub
Feuil1.Range("I1").Value = Feuil1.Range("A1").Value
With Feuil2 'Sheets("BASE")
lig = .[A65536].End(xlUp).Row + 1
.Cells(lig, 1) = Feuil1.Range("B10").Value
.Cells(lig, 2) = Feuil1.Range("B12").Value
.Cells(lig, 3) = Feuil1.Range("B14").Value
.Cells(lig, 4) = Feuil1.Range("B16").Value
.Cells(lig, 5) = Feuil1.Range("B18").Value
.Cells(lig, 6) = Feuil1.Range("B20").Value
.Cells(lig, 7) = Feuil1.Range("B26").Value
.Cells(lig, 8) = Feuil1.Range("B28").Value
.Cells(lig, 9) = Feuil1.Range("B32").Value
.Cells(lig, 10) = Feuil1.Range("B34").Value
.Cells(lig, 11) = Feuil1.Range("B37").Value
.Cells(lig, 12) = Feuil1.Range("B8").Value
End With

Feuil1.Range("B10:B37", "G10").Value = ""
TextBox1.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
ComboBox1 = ""
ComboBox2 = ""
h35.Value = False: h39.Value = False
End Sub
 
Bonjour Youky,

Merci pour votre réactivité, cependant j'ai un soucis il me met systématiquement le msgbox malgré que tous mes champs soit rempli, j'ai regardé le code pourtant il fait bien allusion aux box indiqués, je comprend pas ?

Par la suite je souhaiterai que les utilisateurs est la possibilité de modifier une entrée en cliquant sur le bouton modifier une entrée.

Je vous joins le fichier au cas ou, je vous remercie de votre aide
 

Pièces jointes

Bonjour
Vous êtes sur d'avoir mis la bonne version !!!
Les 2 fichiers sont identiques et je ne vois pas de bouton Modifier une Entrée
Faut t'il remplir l'onglet Base ou la page1 en couleur.
Si on recharge l'userform c'est à partir de cette page1 ou de la Base
Bruno
 
Bonjour Youky


Voici la bonne version,
A l'ouverture de ce fichier un USf apparaît est vous aurez le choix de soit modifier une fiche déjà existante se trouvant sur l'onglet BASE, ou dans créer une et les données sont automatiquement transférées de l'onglet NOUVELLE ENTRÉE vers BASE en fait l'onglet NOUVELLE ENTRÉE me sert exclusivement pour l'impression de la fiche et rien d'autre si j'arrive à imprimer l'USF directement. L'onglet nouvelle entrée me sert à rien.

L'USF 2 j'aimerai que lorsque l'on choisi le nom de la personne que tous les champs se remplissent et que l'on puisse y apporter des modifications et valider la saisie et que les données se mettent au bon endroit onglet BASE.

Merci encore
 

Pièces jointes

Bonjour youky,

C'est exactement ce que je souhaitais obtenir comme formulaire. Est il possible de modifier une dernière chose c'est le bouton impression il serait plus pratique, qu'une fois la saisie terminée du formulaire qu'il est la possibilité d'imprimer directement, au lieu de quitter le formulaire aller chercher la bonne personne et imprimer. Car les données affichées sur l'onglet nouvelle entrée n'est pas la personne qui correspond au USF en cours de saisie.
Je ne sais pas si j'ai été claire dans ma demande.
Merci encore
 
Génial,

le USF est parfait pour la saisie la modif et l'impression. Pourriez vous m'indiquer comment faire si ma combobox 2 indique CDI que la combobox 1 ne propose que CDI seulement.

La textbos 5 soit au format sécurité sociale j'ai essayé d'y mettre un format rien ne se passe,
La texbox 6 soit au format date exclusivement avec un message du style format (jj,mm,aa)
La texbox 10 format numérique car il s'agit du salaire.

Et après le sujet est clos
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Retour