Indicateur visuel sur Userform

[Gexk5]

Bonjour le forum,et bonnes vacances à tous ceux qui y sont.
Voici mon problème, je voudrais 2 indicateurs visuel sur mon userform de saisie, a coté du nombre de jours de présence total, si le nombre est inferieur à 500, la textbox en vert, si supérieur à 500 la texbox en rouge avec le texte en blanc.
Le deuxieme indicateur dans les cases absence , si le nombre de jour d'absence est inférieur au tier du nombre de jour de presence, la textbox en vert, si supérieur au tier mais congé susine coché , en orange et enfin si supérieur au tier et congé usine non coché , en rouge avec texte en blanc.
Un autre souci se pose, quand je rempli les dates de debut ou de fin de contrat,pas de soucis, mais quand je vide une date , (debogage,erreur,,,,)

Merci a tous ceux qui se pencherons sur mon sujet
J'ai joint un fichier pour plus de comprehension
http://cjoint.com/?hBlsHzVVPT

 

[Gexk5]

Re : Indicateur visuel sur Userform

Re, j'ai une erreur ici: AJOUT D'UN INTERIMAIRE
Private Sub CmdAjouter_Click()
lligne = Sheets("Listeinterim").Range("B5").End(xlDown).Row + 1
LblCeNomExisteDeja.Visible = False
VerifieDoublons
If Doublons = 0 Then
Sheets("Listeinterim").Rows(lligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

Saisie.LeNouveauNom = Strings.UCase(TboxAjouter.Value)
Sheets("Listeinterim").Cells(lligne, 2).Value = Saisie.LeNouveauNom

Sheets("Listeinterim").Range(Cells(5, 1), Cells(lligne, 69)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
AVEC xlSortNormal, ( j'ai pas testé avec excel 2003, mais sous 2000, ca me met cette erreur), il faudrait que ca marche sous 2000

Range("B4").Select
Unload Me
End If
End Sub

Merci d'avance, si vous avez une idée

 

[JCGL]

Re : Indicateur visuel sur Userform

Re, j'ai une erreur ici: AJOUT D'UN INTERIMAIRE
Private Sub CmdAjouter_Click()
lligne = Sheets("Listeinterim").Range("B5").End(xlDown).Row + 1
LblCeNomExisteDeja.Visible = False
VerifieDoublons
If Doublons = 0 Then
Sheets("Listeinterim").Rows(lligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

Saisie.LeNouveauNom = Strings.UCase(TboxAjouter.Value)
Sheets("Listeinterim").Cells(lligne, 2).Value = Saisie.LeNouveauNom

Sheets("Listeinterim").Range(Cells(5, 1), Cells(lligne, 69)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
AVEC xlSortNormal, ( j'ai pas testé avec excel 2003, mais sous 2000, ca me met cette erreur), il faudrait que ca marche sous 2000

Range("B4").Select
Unload Me
End If
End Sub

Merci d'avance, si vous avez une idée

Bonjour à tous,

Supprime le code en rouge sous XL 2000

A+

 

[Gexk5]

Re : Indicateur visuel sur Userform

Re le forum,
Merci JCGL, c'est ok en supprimant ce que tu m'as dit.

Merci à tous, avec les modifs de gfortin , jcgl et les miennes, je peux clore le sujet.
Mais si d'autres exceliens ont d'autres idées pour améliorer mon fichier, n'hesitez pas.

Encore merci , surtout gfortin

 

[gfortin9]

Re : Indicateur visuel sur Userform

Allô!

Dans la dernière version que j'ai rendue disponible, il y manque la vérification lors du changemet d'un bouton "congé usine".
Cette vérifcation sert à répondre aux conditions : si le nombre de jour congé est plus grand que 1/3 des jours travaillés = rouge, sauf si congé d'usine est coché = orange, sinon = vert Pour tester voir Courtin Jerome

http://cjoint.com/?iko0eKsTUi
Cette version est corrigée.

Désolé pour l'oublie.

Je suis bien heureux que tout cela fasse ton bonheur 😉

Gfortin
.

 

[Gexk5]

Re : Indicateur visuel sur Userform

Re le forum,
Merci pour la precision Gfortin, j'avais corrigé.

Encore un grand merci et à charge de revanche.