Discussion :

[encoupe]

Bonjour,

A l'affichage d'un formulaire, je souhaite modifier la couleur des controles en fonction de leur valeur :
si le controle = 2, alors couleur texte (Forecolor) = rouge

J'ai essayé ce code

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
 
Dim ctl As Control
 
For Each ctl In Me.Controls
 
    If ctl.Value = 0 Then
        ctl.ForeColor = 8454016
    End If
 
    If ctl.Value = 1 Then
        ctl.ForeColor = 4227327
    End If
 
    If ctl.Value = 2 Then
        ctl.ForeColor = 255
    End If
 
    If ctl.Value = "x" Then
        ctl.ForeColor = 16744448
    End If
 
Next ctl

Mais cela m'affiche dans chaque controle : #Supprimé

Merci de votre aide.

[Renardo]

Pourquoi n'utilise tu pas la mise en forme conditionnelle?

[pgz]

Bonjour,

A mon avis, il n'y a aucun rapport entre ta procédure et l'affichage #supprimé, qui survient généralement quand la source de l'enregistrement courant a été supprimée et que le formulaire n'a pas été réactualisé.

Sinon, pour la procédure :
1. il conviendrait de tester le type de contrôle avant de modifier la couleur de police, certains contrôles n'ayant pas cette propriété.
2. le

Code :

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

If ctl.Value = "x" ...

semble bizarre...
3. Ce serait plus court avec un select case ou en utilisant Choose. par exemple :

Code :

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

1
2
3
4
5
6
7
8
Dim ctl As Control
 
For each ctl in Me.Controls
    If ctl.Type = acTextBox then
        ctl.ForeColor = Nz(Choose(ctl.Value + 1, 8454016, 4227327, 255), 1674448)
    End If
next ctl
...

Bon courage,

PGZ

[encoupe]

Pourquoi n'utilise tu pas la mise en forme conditionnelle?

Il y plus de 70 items, une procédure générique serait plus simple.

Pour ce qui est de tester le type de controle, ce n'est pas la peine, il n'ya que des textbox dans le formulaire.

J'ai essayé ta procédure, mais j'ai comme réponse ' procédure ou méthode non gérée par cette objet --> If ctl.Type = acTextBox Then

Je vais continuer à chercher.

Merci à tous les deux.

[pgz]

' procédure ou méthode non gérée par cette objet --> If ctl.Type = acTextBox Then

au temps pour moi :

Code :

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

If ctl.ControlType = acTextBox

mais si tu n'as pas besoin de tester le type de contrôle...

Bon courage,

PGZ

[encoupe]

J'ai essayé sans tester le type de controle, mais il me répond également : procédure ou méthode non gérée par cette objet.

Si j'effectue le test su le type de controle, il m'affiche : 'Utilisation incorrect de null' (mais il me met bien en vert les champs à 0), par contre les champs vides doivent poser un problème.

Merci

[pgz]

C'est sûr que s'il y a des valeurs nulles, ça pose pb. dans ce cas :

Code :

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

1
2
3
4
5
6
7
Dim ctl As Control
 
For each ctl in Me.Controls
    If ctl.ControlType = acTextBox then
        ctl.ForeColor = Nz(Choose(Nz(ctl.Value,3) + 1, 8454016, 4227327, 255), 1674448)
    End If
next ctl

PGZ

[encoupe]

Merci, ça fonctionne parfaitement.

Le seul problème que je rencontre maintenant, c'est quand un champ contient du texte, notamment des "x". Là, j'ai droit à "Incomptabilité de type".

Merci pour ton aide