Bonjour, j'ai une petite question concernant le with et le end with....

j'ai une série de control sur ma page auquels je modifie les couleurs...

With frmGenre
.BackColor = Coul_0 ' Coul_0 = noir
.ForeColor = Coul_1 ' Coul_1 = Blanc
End With

mon problème c'est que j'ai un certain nombre de controle (pour ne pas dire un nombre certain de control) donc ma question est : existe-t-il un moyen pour faire quelque chose du genre :

With frmGenre, frnX,frmY.... etc
.BackColor = Coul_0 ' Coul_0 = noir
.ForeColor = Coul_1 ' Coul_1 = Blanc
End With
merci de votre Attention....
@+ je l'espère....

Bonjour,
   Essai de chercher dans une boucle du genre,

Dim FrmCtr as control

            For Each FrmCtr in controls
                  .BackColor = Coul_0 ' Coul_0 = noir
                  .ForeColor = Coul_1 ' Coul_1 = Blanc
            Next FrmCtr

J'ai vu trainé cela quelque part....
Bon Courage A plus SebOfBorg

Pardon ...

           For Each FrmCtr in controls
                  With FrmCtr
                        .BackColor = Coul_0 ' Coul_0 = noir
                        .ForeColor = Coul_1 ' Coul_1 = Blanc
                  End With
            Next FrmCtr

Of course....
Bon Courage
A plus
SebOfBorg

salut

Dim frm As Frame
For Each frm In Form ' nom de la forme ou il y a tes frames
With frm
'.Backcolor=..
End With
Next


@ + ,Aziz

Messieurs, et Mesdames Je tiens à vous remercier... pour vos réponses...
je vais essayer les différentes possibilité et je vous tiens au courant...
@+ Sator2