Bonjour à tous !

Grâce à l'aide précieuse de f-leb et marot_r, j'avais pu aboutir à un super formulaire, j'ai abouti à un super formulaire qui contient donc 96 contrôles de type zones de texte nommées de A1 à H12 (A1, A2, A3....H10, H11, H12).
J'ai maintenant deux versions de ce formulaire.

Dans le premier (FORM1), j'ai attribué une procédure évènementielle sur chacune des zones de texte : si le texte saisi contient "xxx" alors colorer le texte en rouge; si le texte contient "yyy" alors colorer le texte en vert.
Je souhaite donc que dans le deuxième formulaire (FORM2), la couleur du texte en A1 de FORM2 soit la même que la couleur du texte de A1 en FORM1.

J'ai tenté ceci mais ça coince :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RecupCouleur()
 
Dim MonChamp As Control
Dim lettre As Integer
Dim numero As Integer
 
    For lettre = Asc("A") To Asc("H")
        For numero = 1 To 12
            Set MonChamp = Me.Controls(Chr(lettre) & numero)
                Me.MonChamp.ForeColor = Forms!FORM1.MonChamp.ForeColor
        Next
    Next
 
End Sub
Quelqu'un aurait-il une idée de la façon de récupérer cette propriété en miroir ? (A1 de FORM1 avec A1 de FORM2, A2 de FORM1 avec A2 de FORM2...)

Un grand merci d'avance !

Kaera*