checkbox et couleur

[madgicbobbyboon]

Bonjour a tous,

mon fichier a évolué grâce a beaucoup d'entre vous.
J'ai de nouveau un souci.
Dans mon userform, j'ai plusieurs checkboxs. (bon, moyen, mauvais, insuffisant, propre..)
Lorsque je sélectionne l'une d'elle, (ex : Pneu avant droit->mauvais)...la qualification "mauvais" doit s'inscrire en rouge sur la feuille DD selectionnée
Si je selectionne "Moyen" , en orange.

Cependant j'ai un petit conflit pour les couleurs et je n'arrive pas a résoudre la situation.

Merci pour votre aide.

 

[mapomme]

Bonsoir madgicbobbyboon,

Un essai par VBA que je trouve quelquefois plus souple que les MFC.

• une feuille "Couleurs" a été ajoutée. Elle comporte en colonne A les différents textes (propre, bon, mauvais...) avec leur couleur de police.
• l'application des couleurs de police ne se fait que pour les feuilles dont le nom commence par DD# (# étant un chiffre)
• la colorisation se produit pour les cellules dont la valeur change
• la colorisation se produit pour toute la feuille quand on active la feuille
• le code est dans le module de ThisWorkbook et dans le module Module1

 

[Robert]

Bonjour le fil, bonjour le forum,

Juste une petite remarque... Je trouve l'utilisation des CheckBoxes complètement inappropriée. Des OptionButtons auraient été plus logiques et bien plus simple à gérer...

 

[mapomme]

Bonjour madgicbobbyboon, Robert 😉,

Juste une petite remarque... Je trouve l'utilisation des CheckBoxes complètement inappropriée. Des OptionButtons auraient été plus logiques et bien plus simple à gérer...

Comme dans le fichier joint pour illustrer la remarque de Robert ...

edit: v2a correction d'un minuscule bug.
edit: v2b avec prise en compte de la date.
edit: v2c avec date au format FR et non US.

 

[Robert]

Re,

Yes Mapomme !

 

[madgicbobbyboon]

Bonjour madgicbobbyboon, Robert 😉,



Comme dans le fichier joint pour illustrer la remarque de Robert ...

edit: v2a correction d'un minuscule bug.
edit: v2b avec prise en compte de la date.
edit: v2c avec date au format FR et non US.

 

[madgicbobbyboon]

Merci a tous pour ces réponses qui me seront bien utiles.
Je vais essayer par la suite avec des optionbuttons

Encore MERCI

 

[madgicbobbyboon]

Bonjour madgicbobbyboon, Robert 😉,



Comme dans le fichier joint pour illustrer la remarque de Robert ...

edit: v2a correction d'un minuscule bug.
edit: v2b avec prise en compte de la date.
edit: v2c avec date au format FR et non US.

Merci a tous pour avoir fait avancé mon user.

MERCI

 

[madgicbobbyboon]

Bonjour madgicbobbyboon, Robert 😉,



Comme dans le fichier joint pour illustrer la remarque de Robert ...

edit: v2a correction d'un minuscule bug.
edit: v2b avec prise en compte de la date.
edit: v2c avec date au format FR et non US.

Pour ma culture perso:
je n'utilise jamais de module...a quoi cela sert ? son objectif ?

dans le user j'ai trouvé ce code :

Sub Halte(Xmillisec&)
Dim T0#, T1#, T2#
T0 = Timer: T2 = T0 + Xmillisec / 1000#
Do
DoEvents: T1 = Timer: If T1 < T0 Then T1 = T1 + 86400
Loop Until T1 >= T2
End Sub


que za ko ??

 

[mapomme]

Bonsoir madgicbobbyboon,

(...) dans le user j'ai trouvé ce code :

Sub Halte(Xmillisec&)
Dim T0#, T1#, T2#
T0 = Timer: T2 = T0 + Xmillisec / 1000#
Do
DoEvents: T1 = Timer: If T1 < T0 Then T1 = T1 + 86400
Loop Until T1 >= T2
End Sub

que za ko ??

La procédure Halte(Xmillisec&) suspend l'exécution du code pendant Xmillisec milliseconde. Elle est utilisée dans la procédure Private Sub TextBox4_Enter() juste pour faire clignoter le calendrier afin que l'utilisateur se rende compte qu'on doit choisir une date du calendrier.

 

[mapomme]

Bonsoir madgicbobbyboon,

Pour ma culture perso:
je n'utilise jamais de module...a quoi cela sert ? son objectif ?

Un module sert à stocker, entre autre, des procédures, des fonctions, des variables.

 

[madgicbobbyboon]

Bonsoir madgicbobbyboon,



La procédure Halte(Xmillisec&) suspend l'exécution du code pendant Xmillisec milliseconde. Elle est utilisée dans la procédure Private Sub TextBox4_Enter() juste pour faire clignoter le calendrier afin que l'utilisateur se rende compte qu'on doit choisir une date du calendrier.

Merci beaucoup

 

[madgicbobbyboon]

Bonsoir madgicbobbyboon,



Un module sert à stocker, entre autre, des procédures, des fonctions, des variables.

Ok et merci beaucoup