Discussion :

[chris76]

Bonjour,

J'ai actuellement un état qui comporte plusieurs sous états, chacun faisant l'objet d'une mise en forme particulière selon les valeurs de ses lignes : coloriage des lignes selon des effectifs.

Pour le moment, chaque sous état possède le même code VB. Ce qui implique que si je veux modifier qq chose ds le code, il faut que je le fasse ds les 10 sous états....galère.

Dc j'ai voulu créer une fonction ds un module, laquelle serait appelée par chaque sous état au moment de son ouverture pour mise en forme.

Mon pb est que je ne sais pas comment à chaque fois faire passer le paramètre de l'état qui appelle la fonction au moment de son ouverture.

Voici le code que j'ai ds chaque sous etat actuellement :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Compare Database
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
    Me.COD_EXT_GPE.BackColor = 16777215
    Me.LIB_GPE.BackColor = 16777215
    Me.TEM_GPE_AFF.BackColor = 16777215
    Me.TEM_CAP_MAX_BLO.BackColor = 16777215
    Me.CAP_INT_GPE.BackColor = 16777215
    Me.CAP_MAX_GPE.BackColor = 16777215
    Me.EFF.BackColor = 16777215
    Me.RESTE.BackColor = 16777215
 
    If (Me.TEM_GPE_AFF = "N" Or Me.TEM_GPE_AFF = Null) Then
        Me.COD_EXT_GPE.BackColor = RGB(0, 183, 239)
        Me.LIB_GPE.BackColor = RGB(0, 183, 239)
        Me.TEM_GPE_AFF.BackColor = RGB(0, 183, 239)
        Me.TEM_CAP_MAX_BLO.BackColor = RGB(0, 183, 239)
        Me.CAP_INT_GPE.BackColor = RGB(0, 183, 239)
        Me.CAP_MAX_GPE.BackColor = RGB(0, 183, 239)
        Me.EFF.BackColor = RGB(0, 183, 239)
        Me.RESTE.BackColor = RGB(0, 183, 239)
 
    End If
 
    If val(Me.RESTE) = 0 Then
        Me.COD_EXT_GPE.BackColor = 255
        Me.LIB_GPE.BackColor = 255
        Me.TEM_GPE_AFF.BackColor = 255
        Me.TEM_CAP_MAX_BLO.BackColor = 255
        Me.CAP_INT_GPE.BackColor = 255
        Me.CAP_MAX_GPE.BackColor = 255
        Me.EFF.BackColor = 255
        Me.RESTE.BackColor = 255
 
    End If
 
    If val(Me.RESTE) < 5 And val(Me.RESTE) > 0 Then
        Me.COD_EXT_GPE.BackColor = 65535
        Me.LIB_GPE.BackColor = 65535
        Me.TEM_GPE_AFF.BackColor = 65535
        Me.TEM_CAP_MAX_BLO.BackColor = 65535
        Me.CAP_INT_GPE.BackColor = 65535
        Me.CAP_MAX_GPE.BackColor = 65535
        Me.EFF.BackColor = 65535
        Me.RESTE.BackColor = 65535
 
    End If
 
End Sub

Je veux donc transférer cela ds un module ds une fonction (CouleurLigneEtat) appelée par chaque état dans son "Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)"...

Ce que je n'arrive pas à faire pour le moment !

Merci de votre aide !

[marot_r]

Bonjour

En fait c'est assez facile et tu y es presque.

Code :

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

1
2
3
public sub CouleurLigneEtat(prmEtat as report)
  'ici ton code qui gère les couleurs en remplaçant les Me. par prmEtat.
end sub

Dans ton Détail_Format tu as juste à mettre

Code :

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

call CouleurLigneEtat(me)

note : le prm de prmEtat est un truc personnel pour signaler que c'est un paramètre. Cela me permet de savoir que cette variable vient de l'extérieur de la procédure.

A+

[chris76]

Effectivement, c'est presque rageant d'échouer si près du bol de sangria...

Merci beaucoup !