Discussion :

[nirG95]

Bonjour,

Mon code suivant qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
Function ColorGroup(name_group As String)
Dim ctl As Control
 
For Each ctl In Screen.ActiveForm.Controls
        If Right(ctl.Name, 3) = name_group Then
            ctl.BackColor = QBColor(1)
        End If
Next ctl
End Function

et je l'appel :

Code :

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

ColorGroup("nom de groupe")

Mais je voudrai faire passer en paramètre la couleur j'ai essayé de faire ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Function ColorGroup(name_group As String, LaCouleur As String)
Dim ctl As Control
 
For Each ctl In Screen.ActiveForm.Controls
        If Right(ctl.Name, 3) = name_group Then
            ctl.BackColor = QBColor(LaCouleur)
        End If
Next ctl
End Function

Mais quand j'essaie de faire appel à la Function avec :

Code :

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

ColorGroup("Nom du groupe", "Numero de la couleur")

Mais il me met :

Erreur de compilation
"=" attendu

Si vous pouvez m'aider, je vous en remercie d'avance.

Cordialement.

[nirG95]

C'est bon, j'ai trouvé j'ai été trop bête

Call + la fonction

Cordialement