Discussion :

[bartimeus35]

Hello,
Dans un formulaire ou je saisis des clients, je voudrais mettre en jaune le fond de la zone ou il y a eu un changement, c’a marche nickel pour les zones de texte , mais si c'est une liste déroulante, quand je clique dessus, la zone apparait en jaune ainsi que toute la liste mais je ne peux pas faire de modification, j'ai beau cliquer sur un élément de la liste, ce n'est pas pris en compte

Any idea, je craake, je suis dessus depuis 2 heures !

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
 
Private Sub ID_Ville_F_Dirty(Cancel As Integer)
 Call highlight
End Sub
 
Private Sub Nom_Dirty(Cancel As Integer)
 Call highlight
End Sub
 
Private Sub Prenom_Dirty(Cancel As Integer)
    Call highlight
End Sub
 
Sub highlight()
    JAUNE = RGB(255, 255, 0)
    ctrl_name = Me.ActiveControl.name
 
    Me.Controls(ctrl_name).BackColor = JAUNE
End Sub

[Chrispi]

Bonjour,

je ne sais pas si j'ai bien compris et si je réponds à la question, mais tu peux peut-être essayer de mettre le code (l'appel de highlight) plutôt au niveau de l'événement Après MAJ ou Sur changement.
Pour appeler la procédure, tu peux l'appeler sans mettre Call, en mettant simplement highlight.

Espérant avoir pu t'aider.

[hyperion13]

Salut
Étonnant ! J'ai repris les sub() en l'état et en les adaptant sur un frm basic et ça fonctionne.

[bartimeus35]

Bonjour,

je ne sais pas si j'ai bien compris et si je réponds à la question, mais tu peux peut-être essayer de mettre le code (l'appel de highlight) plutôt au niveau de l'événement Après MAJ ou Sur changement.
Pour appeler la procédure, tu peux l'appeler sans mettre Call, en mettant simplement highlight.

Espérant avoir pu t'aider.

En mettant

Code :

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

1
2
3
4
5
6
7
Private Sub ID_Ville_F_Change()
    highlight
End Sub
 
Private Sub ID_Ville_W_Change()
    highlight
End Sub

ca marche nickel !