mikael2235
XLDnaute Occasionnel
Bonjour,
J'ai une macro qui lors d'un evenement "Initialize" de mon UserForm, vérifie des conditions et applique une bordure de couleur à mes frames.
exemple :
Mon problème est que, je n'arrive pas à revenir à la bordure d'origine du Frame.
J'en ai crée un nouveau pour récuperer les paramêtres :
-.BorderColor = &H80000012&
-.BorderStyle = fmBorderStyleNone
Quand je mets une bordure à None, il me l'enleve completement.
Connaissez vous la solution ?
Merci.
J'ai une macro qui lors d'un evenement "Initialize" de mon UserForm, vérifie des conditions et applique une bordure de couleur à mes frames.
exemple :
Code:
'Vérifie les résultats/min-max
If val1 < nom1_4 + tolmoins1_4 Or val1 > nom1_4 + tolplus1_4 Then
Me.Label3.ForeColor = &HFF& 'rouge
Me.Label4.ForeColor = &HFF& 'rouge
Me.OptionButton1.Visible = True
Me.OptionButton2.Visible = True
Me.OptionButton3.Visible = True
Me.OptionButton4.Visible = True
Me.Frame1.BorderStyle = fmBorderStyleSingle
Else
Me.Label3.ForeColor = &H8000& 'vert
Me.Label4.ForeColor = &H8000& 'vert
Me.OptionButton1.Visible = False
Me.OptionButton2.Visible = False
Me.OptionButton3.Visible = False
Me.OptionButton4.Visible = False
Me.Frame1.BorderStyle = fmBorderStyleNone
End If
Mon problème est que, je n'arrive pas à revenir à la bordure d'origine du Frame.
J'en ai crée un nouveau pour récuperer les paramêtres :
-.BorderColor = &H80000012&
-.BorderStyle = fmBorderStyleNone
Quand je mets une bordure à None, il me l'enleve completement.
Connaissez vous la solution ?
Merci.