Bonjour,
Mon code suivant qui fonctionne :
et je l'appel :
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
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 ColorGroup("nom de groupe")
Mais quand j'essaie de faire appel à la Function avec :
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 il me met :
Code : Sélectionner tout - Visualiser dans une fenêtre à part ColorGroup("Nom du groupe", "Numero de la couleur")
Erreur de compilation
"=" attendu
Si vous pouvez m'aider, je vous en remercie d'avance.
Cordialement.
Partager