Discussion :

[oncleflo]

Bonjour,
Je suis en train de dévellopper un petit soft pour faire de l agestion de personnel et j'aurais besoin d'un petit coup de main
je voudrai faire changer la couleur d'un champ dans un formulaire en fonction de la valeur choisie dans une liste déroulante

Merci d'avance pour votre aide

[SeaWolf601]

Hello,

alors c'est pas trés complexe.

Si j'ai bien compris tu as UNE liste déroulante (appellons la :Ma_liste_déroulante) ET un champ à colorer, c'est ça ?

Alors tu selectionnes ton champ à colorer et tu clique en haut sur "Format", la tu vas dans "mise en forme conditionnelle".
tu selectionne "expression" et tu tapes : [Ma_liste_déroulante]= "toto".
("toto" étant là, bien entendu, la valeur que tu veux mettre en évidence.)
Et tu met les couleurs que tu veux.
Avec ça tu peux faire 3 conditions et mise en forme.

Si tu as besoin de plus de 3 "mise en forme", il te faut alors passer par VB.
Pas trés complexe non plus.

Soit la liste déroulante : Ma_liste_déroulante
et le champ en question : Texte_1

tu selectionnes la liste déroulante, clic droit => "proprieté".
"Evenement" => AprésMiseàJour.

et la tu fais une condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Ma_Liste_Déroulante_AfterUpdate()
 
If Me.Ma_Liste_Déroulante = "toto" Then
Me.Texte_1.BackColor = 255
 
Else
 
If Me.Ma_Liste_Déroulante = "tata" Then
Me.Texte_1.BackColor = 65280
 
Else
 
If Me.Ma_Liste_Déroulante = "titi" Then
Me.Texte_1.BackColor = 16764057
 
Else
 
If Me.Ma_Liste_Déroulante = "tutu" Then
Me.Texte_1.BackColor = 52479
 
End If
End If
End If
End If
 
End Sub

Voila tu peux en faire autant que tu veux.

[oncleflo]

Super génial merci de ton aide cela faisait au moins 3 jours que je pédalais la dessus ebn fait une fois de plus cela devient tout bête lorsqu'on sait

Encore merci et à chjarge de revanche

[SeaWolf601]

De Nada