If TextBox2 = « » Then
MsgBox (« Veuillez exécuter le bouton AJOUTER au préalable de ce traitement !!! »)
Exit Sub
End If
Bonjour FFO
Ton dernier message
] faut ensuite mettre un contrôle sur celles-ci pour vérifier l’exactitude de leur format
Celui-ci est à inclure dans le ou les traitements qui doivent s’en servir
A toi de me dire lesquelles (je suppose un ou plusieurs boutons parmis « AJOUTER » « MODIFIER » et peut être éventuellement « SUPPRIMER » bien que !!!)
Et bien oui rajoutons les bouton « ajouter modifier supprimer »
et apres
je vais ensuite mettre un contrôle sur celles-ci pour vérifier l’exactitude de leur format du moins je vais suivre tes instruction
1 etape installer les bouton
2 etape les instruction
heures 2021 michael (5) (6).xlsm (260,4 Ko)
Les boutons sont déjà en place nullement besoin de les créer
Derrière chaque bouton qui doit utiliser les données des fenêtres
« FIN DE POSTE » « PAUSE DE JOUR » « PAUSE DE NUIT »
Il faut vérifier le format de chacun d’eux si une donnée est saisie
Le format doit être « HH:MM:MM »
Il suffit pour cela de compter le nombre de partie séparé par le caractère « : »
Sachant que le premier équivaux à 0 pour le format désiré il doit y en avoir 2
Donc une ligne de code pour vérifier que la fenêtre n’est pas vide et que celle-ci possède l’équivalent de 2 parties séparés par la balise « : »
pour la première fenêtre c’est à dire « FIN DE POSTE » le TextBox3 on met ceci :
If TextBox3 <> « » And UBound(Split(TextBox3, « : »)) <> 2
Première partie on vérifie la présence d’une donnée :
If TextBox3 <> « »
Et son morcellement avec la balise « : » qui si différent de 2 :
UBound(Split(TextBox3, « : »)) <> 2
ou et la même comparaison pour les 2 autres fenêtres :
« PAUSE DE JOUR » « PAUSE DE NUIT » TextBox4 TextBox5
Or TextBox4 <> « » And UBound(Split(TextBox4, « : »)) <> 2
Or TextBox5 <> « » And UBound(Split(TextBox5, « : »)) <> 2 Then
Donc si l’une au moins de ces 3 comparaisons est vérifiée un message d’alerte est donnée sur une ou plusieurs saisies incorrectes
MsgBox (« Attention format de saisie non respecté fenêtre FIN DE POSTE ou(et)PAUSE DE JOUR ou(et) PAUSE DE NUIT !!! »)
Le traitement est arrêté
Exit Sub
Fin de la condition :
End If
Ce qui donne l’ensemble de ces lignes de code :
If TextBox3 <> « » And UBound(Split(TextBox3, « : »)) <> 2 Or TextBox4 <> « » And UBound(Split(TextBox4, « : »)) <> 2 Or TextBox5 <> « » And UBound(Split(TextBox5, « : »)) <> 2 Then
MsgBox (« Attention format de saisie non respecté fenêtre FIN DE POSTE ou(et)PAUSE DE JOUR ou(et) PAUSE DE NUIT !!! »)
Exit Sub
End If
A mettre donc derrière les boutons appropriés et attention au guillemets
Fais des essais avec et sans format erroné
Envoies moi ton intégration une fois testée opérationnelle
Ton message
Les boutons sont déjà en place nullement besoin de les créer
Derrière chaque bouton qui doit utiliser les données des fenêtres
« FIN DE POSTE » « PAUSE DE JOUR » « PAUSE DE NUIT »
Il faut vérifier le format de chacun d’eux si une donnée est saisie
Le format doit être « HH:MM:MM »
Il suffit pour cela de compter le nombre de partie séparé par le caractère « : »
Sachant que le premier équivaux à 0 pour le format désiré il doit y en avoir 2
Donc une ligne de code pour vérifier que la fenêtre n’est pas vide et que celle-ci possède l’équivalent de 2 parties séparés par la balise « : »
pour la première fenêtre c’est à dire « FIN DE POSTE » le TextBox3 on met ceci :
If TextBox3 <> « » And UBound(Split(TextBox3, « : »)) <> 2
je viens de faire voila le resultat
j ai remit les guillemets puis enlever les espaces et toujours cela
Attention tu dois rajouter l’intégralité des dernières lignes de code et non pas une petite partie
If TextBox3 <> « » And UBound(Split(TextBox3, « : »)) <> 2 Or TextBox4 <> « » And UBound(Split(TextBox4, « : »)) <> 2 Or TextBox5 <> « » And UBound(Split(TextBox5, « : »)) <> 2 Then
MsgBox (« Attention format de saisie non respecté fenêtre FIN DE POSTE ou(et)PAUSE DE JOUR ou(et) PAUSE DE NUIT !!! »)
Exit Sub
End If
Là tu n’as mis que cela :
If TextBox3 <> « » And UBound(Split(TextBox3, « : »)) <> 2
Normal que cela bug il manque tout le reste
je fait ce que tu me dit pourtant regarde ou est mon erreur car j ai mit les guillemet enlever les espaces
heures 2021 michael (5) (6).xlsm (260,4 Ko)
desolé cela na rien enregistrer je te redonne le fichier
Rien enregistré c’est à dire expliques toi
Ces lignes rajoutées n’ont pas vocation à enregistrer mais à vérifier le format de saisie avec message si il n’est pas conforme c’est tout
Dans ton fichier je vois aucun code derrière les boutons
Merci de me dire
regarde car cela bloque je comprends plus rien
je peut meme pas t envoyer mon fichier des que je l enregiste il disparait
je l ai retrouver
heures 2021 michael (5) (6).xlsm (260,4 Ko)
Nul part je retrouve les lignes de code
Derrière quel bouton les as tu mis ?
Quel est le bouton à travailler ?
peut tu me mettre les lignes de code car la sincerement je comprends plus rien
heures 2021 michael (5) (6).xlsm (260,4 Ko)
Oui mais tu ne m as pas dis derrière quel bouton ?
derriere « fin de poste » « pause de jour » « pause de nuit »
Non je te parle de bouton et non de textbox qui eux seront rempli manuellement donc aucun code derrière
Ceux avec les flèches
Merci de me dire
oui tout as fait ceux avec des fleches
Donc par lequel on entame la mise en place ?
C’est moi qui fais le forgeron ?