Microsoft 365 Valeur Label suivant couleur TextBox

[Francky79]

Bonjour,

Je voudrais pouvoir afficher dans un Label du texte prédéfini suivant la couleur de fond d'une TextBox.
La couleur de fond de la TextBox provient d'une MFC sur ma feuille.
Avec le code de la TextBox3 change il se passe bien quelque chose mais, pas se que je voudrais.
Voir fichier en pièce jointe et merci pour votre aide.

 

[Oneida]

Bonjour,

Pas ce que vous voulez, ca se traduit comment?

Chez moi, votre Userform1 ne saffiche pas!

J'ai donc cree une autre UF et tout est ok en metant le code select textbox3 dans ScrollBar1_Change

 

[fanch55]

Bonjour,
remplacement de userform_activate par userform_initialize :

Private Sub ScrollBar1_Change()
    Ligne = ScrollBar1.Value
    TextBox1 = ActiveSheet.Range("A" & Ligne)
    TextBox2 = ActiveSheet.Range("B" & Ligne)
    TextBox3.BackColor = ActiveSheet.Range("C" & Ligne).DisplayFormat.Interior.Color
    TextBox3 = ActiveSheet.Range("C" & Ligne)
    Application.StatusBar = "Mfc Color = " & TextBox3.BackColor
End Sub

Private Sub TextBox3_Change()
'Si TextBox3 verte  ecrire "Ok"         dans label1
'Si TextBox3 bleu   ecrire "Traitement" dans label1
'Si TextBox3 Voliet ecrire "Contrôle"   dans label1
'Si TextBox3 jaune  ecrire 'En cours"   dans label1
'Si TextBox3 blanc  ecrire 'En attente" dans label1
Select Case Me.TextBox3.BackColor
 Case 16777215:   Me.Label1.Caption = "En attente" 'Blanc
 Case 5296274:    Me.Label1.Caption = "Ok"         'vert
 Case 6299648:    Me.Label1.Caption = "Traitement" 'bleu
 Case 10498160:   Me.Label1.Caption = "Contrôle"   'violet
 Case 10092543:   Me.Label1.Caption = "En cours"   'jaune
 End Select
End Sub

Private Sub UserForm_Initialize()
    With ScrollBar1
        .Min = 2
        .Max = Columns("A").SpecialCells(xlCellTypeLastCell).End(xlUp).Row
        Feuil1.[A2].Select
        .Value = Selection.Row
    End With
End Sub

 

[Francky79]

Bonjour et merci pour votre aide