Discussion :

[Claudine]

Bonjour à tous,
J'ai une zone de texte qui peut afficher soit"Bénéfice", soit "A Justifier" selon les données introduites dans mon formulaire.
Cette zone de texte doit s'afficher avec couleur de fond 'vert'pour Bénéfice et en 'rouge' pour A Justifier.
J'ai indiqué le code suivant sur changement

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Résultat_Change()
If [Résultat] = "A Justifier" Then
Résultat.BackColor = 255
ElseIf [Résultat] = "Bénéfice" Then
Résultat.BackColor = 32896
End If
End Sub

Tout se passe correctement mais, je suis obligé de cliquer sur la zone pour opérer le changement de couleur sinon la couleur précédente reste affichée.
Pouvez-vous m'aider pour afficher automatiquement la bonne couleur?
Je dois préciser que je travaille avec Access2000.

Sincères remerciements
Claudine

[Invité]

Bonjour

Pourquoi ne pas utiliser la mise en forme conditionnelle ?

Sinon, utilises la propriété .Text de la zone de texte, donc à tester :

Code :

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

1
2
3
4
5
6
7
Private Sub Résultat_Change()
    If me.Résultat.Text = "A Justifier" Then
          Résultat.BackColor = 255
    ElseIf If me.Résultat.Text = "Bénéfice" Then
          Résultat.BackColor = 32896
    End If
End Sub

De plus : Eviter les caractères accentuées et penser à l'indentation du texte.


Philippe

[Claudine]

Merci Philippe pour cette réponse rapide mais malheureusement rien ne change , je dois toujours cliquer sur la zone pour obtenir la bonne couleur.
Reste la mise en forme conditionnelle? comment dois-je procéder?
Merci pour votre compréhension
Claudine

[Invité]

Re

Un excellent tuto sur la mise en forme conditionnelle : http://warin.developpez.com/access/mfc/

Un code que je viens de tester et qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
Private Sub Résultat_Change()
    Select Case Me.Résultat.Text
        Case "A Justifier"
            Me.Résultat.BackColor = 255
        Case "Bénéfice"
            Me.Résultat.BackColor = 32896
    End Select
End Sub

Regardes l'utilisation du Select Case, plus clair et plus efficace qu'une suite de IF, et qui permet de rajouter d'autres valeurs.

Philippe

[Claudine]

Un grand merci Philippe.
Grâce a vous, j'ai appliqué pour la première fois une mise en forme conditionnelle et c'est impeccable.
De plus votre nouveau code fonctionne très bien également.
Mes plus vifs remerciements

Claudine

[Invité]

Re

Content que cela est été utile.

Pense à cliquer sur le bouton en bas de la discussion.

Philippe