Couleur de textbox en fonction de la couleur de la cellule

Bonsoir le forum...

J'ai trouvé un bout de fichier auquel j'ai rajouté quelques modifications mais la je sèche totalement.

Je souhaiterais que ma textbox 18 (date de péremption) dans l'userform prenne la même couleur que la cellule dans le tableau des données.

Ex : sur la première ligne du tableau des données la date de péremption en cellule Q2 est dépassée est donc la couleur rouge se met avec une MFC.

Cette date se recopie lorsque l'on choisi une ligne dans l'userform (ex: 1ere ligne) je souhaiterais donc avoir la couleur rouge dans la textbox et ce en fonction des différentes cellules.

Le mot de passe VBA est : trousse

Je vous remercie d'avance de prendre le temps de regarder mon document et de peut être y apporter une solution.

Bien à vous.

Alexandre

Ton code est sacrément long pour moi.

Je n'ai pas tout étudié.

Mais je peux quand même essayer de t'aider.

Je ne sais pas a quel moment tu remplis ton textbox 18.

Mais pour copier la couleur de la case dans laquel tu va chercher l'info il faut faire :

me.textbox18.value = range("Q2") 'pour récup la valeur
me.textbox18.BackColor = range("q2").Interior.Color

Bonjour à vous

Après quelque temps à chercher à récupérer la couleur de mise en forme, je laisse tomber

En fait, la mise en forme se fait en fonction de la cellule BB1

donc lors du click sur la listbox, il suffit de comparer la colonne 17 de la listbox avec la cellule bb1

on colorie le textbox18 en rouge si <que bb1

Private Sub ListBox1_Click()
  For i = 1 To NbCol
    Me("textbox" & i) = Me.ListBox1.Column(i - 1)
    If i = 17 And Me.ListBox1.Column(i - 1) < Sheets("Bd").Range("BB1") Then
       Me("textbox" & i).BackColor = &HFF&
    Else
       Me("textbox" & i).BackColor = &H80000005
    End If
  Next i
  Me.Enreg = Me.ListBox1.Column(i - 1)
End Sub

Bonjour BOB71AU,

Tout d'abord je tiens à m'excuser pour avoir oublier de préciser que j'avais positionné la date du jour dans la cellule BB1

et deuxièmement je vous remercie d'avoir apporter la solution demandée.

C'est parfait je viens de tester cela fonctionne comme je le souhaitais.

Encore un grand merci et par ces temps de crise prenez soin de vous.

Très cordialement Alexandre