Mon navigateur me joue des tours ! J'ai l'impression qu'il ne supporte pas vraiment le nouveau Forum !
Je recommence donc ! en resaluant gmb et en redisant que comme lui j'avais un peu de mal à voir la connexion...
En regardant de plus près, je suppose donc que tes manipulations dans le Userform conduisent à des inscriptions sur la feuille saisie en col. G et H, et que l'une des deux cellules ou les deux peuvent se colorer et que tu voudrais que cela se répercute sur les TextBox...
Si c'est bien ça, deux petite difficultés :
La première est que les couleurs proviennent d'une MFC... donc le code que j'avais indiqué sera inopérant dans ce cas et est à modifier ainsi (en prenant par exemple l'une des deux TextBox) :
Saisie.TBDteDep.Backcolor = Sheets("saisie").Range("H2").DisplayFormat.Interior.Color
Ceci est la ligne générale, qui suppose qu'on connaisse la cellule... ce qui ne sera pas le cas... mais...
C'est là qu'intervient la 2e difficulté, un changement dû à une formule ou à une MFC ne provoque pas d'évènement.
Cependant, si comme je pense, tout cela survient à l'inscription de la date, là il s'agit d'un évènement Change sur la feuille saisie, que l'on peut utiliser.
Je verrais donc bien quelque chose comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim clr&
If Target.Count > 1 Or Target.Row < 2 Then Exit Sub
If Not Intersect(Target, Me.Columns("G:H")) Is Nothing Then
clr = Target.DisplayFormat.Interior.Color
Select Case Target.Column
Case 7: Saisie.TBDteAR.BackColor = clr
Case 8: Saisie.TBDteDep.BackColor = clr
End Select
End If
End Sub
Ainsi si la cellule se colore, la TextBox se colorera, et pareil dans le sens inverse...
Cette procédure doit être placée dans le module de la feuille saisie.
Mais il conviendrait qu'elle ne se déclenche que si le Userform est ouvert, sans quoi elle va le charger (sans l'afficher) pour colorer la TextBox, ce qui n'est pas souhaitable...
(Je scinde pour éviter incident... )