Microsoft 365 Valeur Label suivant couleur TextBox

Francky79

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Test.xlsm
    28.8 KB · Affichages: 10
Solution
Bonjour,
remplacement de userform_activate par userform_initialize :
VB:
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...

fanch55

XLDnaute Barbatruc
Bonjour,
remplacement de userform_activate par userform_initialize :
VB:
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
 

Statistiques des forums

Discussions
313 288
Messages
2 096 838
Membres
106 758
dernier inscrit
JM9