Remplissage de tous les champs pour validation

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

  • Fiche nouveau entrant.xlsm
    66.5 KB · Affichages: 14

youky(BJ)

XLDnaute Barbatruc
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
 

belsamis01

XLDnaute Nouveau
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

  • Fiche nouveau entrant.xlsm
    95.1 KB · Affichages: 6

youky(BJ)

XLDnaute Barbatruc
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
 

belsamis01

XLDnaute Nouveau
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

  • Fiche nouveau entrant.xlsm
    58 KB · Affichages: 3
  • Fiche nouveau entrant.xlsm
    58 KB · Affichages: 3

belsamis01

XLDnaute Nouveau
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
 

youky(BJ)

XLDnaute Barbatruc
Hello,
Formulaire seulement en page1.
La Base est remplie sans la voir.
Utilisation très simple date auto et impression facile
Faut bien tester car je ne suis pas passé partout.
Bruno
 

Pièces jointes

  • NouveauEntrant (2).xlsm
    52.3 KB · Affichages: 19

belsamis01

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
1
Affichages
498