Changer couleur case d'option sous condition

Résolu/Fermé
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 15 janv. 2010 à 14:53
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 17 janv. 2010 à 11:46
Bonjour,

J'ai créé 2 groupes de 2 cases d'option.
La 2e case d'option du 1er groupe valide automatiquement la 2e case d'option du 2e groupe.

Comment puis-je faire changer automatiquement la couleur de la 2e case d'option du 2e groupe lorsqu'elle est ainsi validée par la case du 1er groupe ?

Voila ce que je ne sais pas résoudre par macro!
Quelqu'un aurait-il la réponse?

Merci
A voir également:

12 réponses

m@rina Messages postés 20016 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
15 janv. 2010 à 18:39
Bonjour,

Pourrais peut-être par commencer à nous dire quel est le logiciel utilisé...

m@rina
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
15 janv. 2010 à 19:13
Bonjour,

Oui, j'avais pas assez de place en titre mais c'est excel!
merci
0
m@rina Messages postés 20016 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
15 janv. 2010 à 20:29
Re...,

Tout d'abord, la couleur ne peut être affectée qu'au texte de la case à cocher (ForeColor), ou au fond, càd la zone qui entoure la case à cocher, yc le texte (BackColor).

Ça donne ceci (pour changer par exemple la couleur du texte en bleu) :

Private Sub OptionButton2_Change()

If Me.OptionButton2 = True Then
With Me.OptionButton4
.Value = True
.ForeColor = RGB(0, 0, 255)
End With
Else
With Me.OptionButton4
.Value = False
.ForeColor = RGB(0, 0, 0)
End With

End If
End Sub


m@rina
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
15 janv. 2010 à 21:36
Merci bien Marina,

Je vais essayer ça!

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
15 janv. 2010 à 21:59
Re,

Désolé mais je n'arrive pas a traduire la formule.
Je redonne ici le lien de mon exemple que j'ai posté sur ma question de 16H06.

https://www.cjoint.com/?bpqeSUWNmv

Des que je clic sur la case d'option G2
La case d'option D est validé.
et c'est cette case qui doit prendre une couleur.

Merci de votre aide.
0
m@rina Messages postés 20016 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
15 janv. 2010 à 23:23
Bonsoir,

Ben oui, on était pas sur la même longueur d'onde... Comme quoi, mieux vaut toujours donner plus de détails que pas assez.

Je pensais qu'il s'agissait d'une Userform. Or ce sont des cases d'option dans une feuille et ce sont simplement des contrôles de formulaire et non des contrôles ActiveX...

Tu n'as qu'à ajouter cette ligne dans ta macro pour que la case d'option devienne rouge par exemple :
ActiveSheet.Shapes("Option Button 4").Fill.ForeColor.SchemeColor = 10

Tu peux aussi utiliser les couleurs RGB.

Par contre, ce n'est pas suffisant, il faudra faire l'inverse quand tu cliqueras sur la première case d'option.

m@rina
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 15:38
Bonjour Marina,

J'ai une difficulté à comprendre la différence entre une case d'option tiré de la "boite à outils contrôle" et celle tirée de la "boite formulaire" ?

Qu'est ce que fais l'une et pas l'autre ? ou plutôt: pourquoi ou quand utiliser l'une plutôt que l'autre?
Je ne sais pas ce qu'est un controle activeX.

Pour mon questionnaire j'ai pris ma case d'option dans la "boite à outils contrôle" parce qu'elle était là.

A part ça, j'ai copié ta ligne mais rien ne se passe.

Y aurait-il autre chose, SVP?

https://www.cjoint.com/?bqpLQPt7O2

Merci.
0
m@rina Messages postés 20016 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 avril 2024 11 268
16 janv. 2010 à 16:50
Voici ton fichier corrigé :
https://www.cjoint.com/?bqqQvUUSWf

Les contrôles ActiveX sont des contrôles programmables contrairement aux contrôles de formulaire. On peut toujours affecter une macro à un contrôle de formulaire comme à n'importe quel objet, mais ça n'a pas la puissance d'un contrôle ActiveX. Un contrôle ActiveX par exemple répond à un certain nombre d'événéments, comme le Click mais aussi le Change, le focus ou la perte de focus, les mouvements de souris, ou les touches du clavier.
Ils ont également toute une série de propriétés que l'on ne pourra pas affecter à un contrôle de formulaire

Dans ton fichier, tu n'as pas utilisé des contrôles ActiveX mais des contrôles de formulaire. Ces contrôles simples s'utilisent pour des formulaires qui ne nécessitent pas de macros.

m@rina
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 18:13
J'ai beau réécrire les lignes des macros pour les boutons 12 et 13 ça ne marche pas.
Je suis désolé mais y a-t-il une chose a faire avant?
Merci
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 20:31
Me revoilà,

Ca y est, j'ai trouvé ce qui manquait. Il fallait attribuer une couleur via "format de controle" afin que ça fonctionne.
Merci de votre aide!
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 17:15
Merci pour les définitions!

Mais y a -t-il une différence entre la case d'option tiré de la "boite à outil controle"et celle tirée de la "boite formulaire" ? car sur ma barre en haut d'écran j'ai 2 boites d'outils avec chacune un nom différent sité avant mais sur la boite formulaire la case d'option est plus grosse que sur l'autre.

Sinon, coté programme je vous remercie c'est ce que je voulais mais il bug quand je suis sur le groupe G1 et que je choisi la réponse D. il me signale qu'il ne trouve pas la macro portant le nom de ton fichier?!

Merci
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
16 janv. 2010 à 21:35
Pour finir, quel est le code pour la couleur "Gris clair" SVP?

Merci
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
17 janv. 2010 à 09:52
Bonjour,

Si tu veux connaitre les couleurs et leur code disponibles sur Excel tu copies le VBA suivant dans un module de feuille:

Sub Affiche_Couleurs_Codes()
For i = 1 To 56
Cells(i, 1).Select
Selection.Interior.ColorIndex = i
Cells(i, 2) = i
Next i
End Sub


Bonne journée.
0
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
17 janv. 2010 à 11:46
Merci!

ça me sera utile !
0