Discussion :

[Caroline2276]

Bonjour à tous,

Est-ce que quelqu'un aurait une solution car j'ai un problème sur des groupes de boutons suite à cette discussion


J'ai un groupe d'option à boutons à bascule et j'aimerai en fonction de la valeur dans dans le champ pour l'enregistrement que le bouton change de couleur lorsqu'il est enfoncé ...

Voici ce que j'ai mis comme code VBA:

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
28
29
30
Private Sub Cadre425_BeforeUpdate(Cancel As Integer)
If Cadre425.Value = "1" Then
    Me.Bascule428.ForeColor = RGB(255, 153, 102)
    Me.Bascule428.FontBold = True
    Else
    Me.Bascule428.ForeColor = RGB(0, 0, 0)
    Me.Bascule428.FontBold = False
End If
If Cadre425.Value = "2" Then
    Me.Bascule429.ForeColor = RGB(0, 102, 0)
    Me.Bascule429.FontBold = True
    Else
    Me.Bascule429.ForeColor = RGB(0, 0, 0)
    Me.Bascule429.FontBold = False
  End If
  If Cadre425.Value = "3" Then
    Me.Bascule430.ForeColor = RGB(204, 102, 204)
    Me.Bascule430.FontBold = True
    Else
    Me.Bascule430.ForeColor = RGB(0, 0, 0)
    Me.Bascule430.FontBold = False
End If
If Cadre425.Value = "4" Then
    Me.Bascule431.ForeColor = RGB(51, 102, 255)
    Me.Bascule431.FontBold = True
Else
Me.Bascule431.ForeColor = RGB(0, 0, 0)
    Me.Bascule431.FontBold = False
End If
End Sub

Cela fonctionne mais par exemple si je passe d'un enregistrement à l'autre le bouton bascule change mais la couleur reste toujours sur le premier choix. Comment indiquer que cela doit changer en fonction de l'enregistrement? Pourtant j'ai bien mis le champ de ma table intitulé "Site actuel de prestation" en tant que source dans les propriétés ...

Merci d'avance à ceux qui prendront la peine de me répondre :-)

Caro

[vodiem]

salut Caroline2276 et bienvenue,

pour faire convenablement tu crées une fonction à part que tu appelles "sur activation" et "après maj" (avant maj n'étant pas justifié)
soit:

Code :

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

1
2
3
function colorier()
...
end function

puis dans la feuille de propriétés:
sur activation: =colorier()
après maj: =colorier()

[Caroline2276]

salut Caroline2276 et bienvenue,

pour faire convenablement tu crées une fonction à part que tu appelles "sur activation" et "après maj" (avant maj n'étant pas justifié)
soit:

Code :

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

1
2
3
function colorier()
...
end function

puis dans la feuille de propriétés:
sur activation: =colorier()
après maj: =colorier()

J'ai un peu de mal à comprendre ta réponse. Comment crée-t-on une fonction? A part, c'est-à-dire que je ne dois pas partir des propriétés de mon groupe d'option? Pourrais-tu être un peu plus clair? Merci d'avance.

Caro.

[vodiem]

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
28
29
30
Function colorier()
If Cadre425.Value = "1" Then
    Me.Bascule428.ForeColor = RGB(255, 153, 102)
    Me.Bascule428.FontBold = True
    Else
    Me.Bascule428.ForeColor = RGB(0, 0, 0)
    Me.Bascule428.FontBold = False
End If
If Cadre425.Value = "2" Then
    Me.Bascule429.ForeColor = RGB(0, 102, 0)
    Me.Bascule429.FontBold = True
    Else
    Me.Bascule429.ForeColor = RGB(0, 0, 0)
    Me.Bascule429.FontBold = False
  End If
  If Cadre425.Value = "3" Then
    Me.Bascule430.ForeColor = RGB(204, 102, 204)
    Me.Bascule430.FontBold = True
    Else
    Me.Bascule430.ForeColor = RGB(0, 0, 0)
    Me.Bascule430.FontBold = False
End If
If Cadre425.Value = "4" Then
    Me.Bascule431.ForeColor = RGB(51, 102, 255)
    Me.Bascule431.FontBold = True
Else
Me.Bascule431.ForeColor = RGB(0, 0, 0)
    Me.Bascule431.FontBold = False
End If
End Function

renomme ta procédure en fonction tout simplement.
tu l'affectes ensuite dans les événements de la feuille de propriétés du formulaire pour "sur activation" et celui de ton groupe pour "après maj"