Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Indicateur visuel sur Userform

  • Initiateur de la discussion Initiateur de la discussion Gexk5
  • Date de début Date de début

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 !

Gexk5

XLDnaute Occasionnel
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
 
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
 
Re : Indicateur visuel sur Userform


Bonjour à tous,

Supprime le code en rouge sous XL 2000

A+
 
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
 
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
.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Réponses
0
Affichages
2 K
Raphy3034
R
R
Réponses
3
Affichages
5 K
C
Réponses
6
Affichages
3 K
C
M
Réponses
3
Affichages
4 K
Mathu17
M
J
Réponses
2
Affichages
1 K
jooris
J
B
Réponses
11
Affichages
1 K
R
Réponses
4
Affichages
31 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…