Discussion :

[zoom61]

Salut,

Je voudrai changer la couleur du texte une ligne sur deux, mais je n'y parviens pas.
Je sais faire pour changer la couleur de fond, mais pas la couleur du texte !!!
La couleur de fond s'est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo Détail_Print_Err
    If ([NL] Mod 2) = 0 Then
        Section(0).BackColor = 11071659
    Else
        Section(0).BackColor = 5169237
    End If
Détail_Print_Exit:
    Exit Sub
Détail_Print_Err:
    Resume Détail_Print_Exit
End Sub

Alors j'ai essayé avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo Détail_Print_Err
    If ([NL] Mod 2) = 0 Then
        Section(0).ForeColor = 11071659
    Else
        Section(0).ForeColor = 5169237
    End If
Détail_Print_Exit:
    Exit Sub
Détail_Print_Err:
    Resume Détail_Print_Exit
End Sub

Mais cela ne donne rien Cela ne fonctionne pas, cela me jette

[Jeannot45]

C'est logique parcequ'en fait tu agis sur la section et la section ne conteint pas de texte. Tes textes sont dans tes controles.

[mout1234]

Salut,

Normal que la transcription ne fonctionne pas car tu manipules la propriété ForeColor de la section... alors que ce sont les controles qui affichent le texte...

Donc la solution serait plutot quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim oCtl As Access.Control
    Dim lgForeColor As Long
 
    If ([NL] Mod 2) = 0 Then
        lgForeColor = 11071659
    Else
        lgForeColor = 5169237
    End If
 
    For Each oCtl In Section(acDetail).Controls
        oCtl.ForeColor = lgForeColor
    Next oCtl

[zoom61]

OK mout1234, cela fonctionne à merveille. Merci.

[mout1234]

OK mout1234, cela fonctionne à merveille. Merci.

De rien