XL 2013 Label visible

[maval]

Bonjour

Sur un formulaire je vous rendre visible deux labels a condition:
Je voudrais rendre visible un label si la valeur d'un textbox est une date "dd/mm/yyyy" .


Si non pas de label

Je vous remercie

 

[Lone-wolf]

Re : Label visible

Bonjour Max 🙂

Ton fichier en retour. J'ai supprimer le 2ème Label "Je suis visible" en trop.

 

[maval]

Re : Label visible

Bonjour Lone Wolf

Je te remercie juste une question est-il possible d'avoir le label visible sans actionner "ENTRER"

Bonne journée

 

[Lone-wolf]

Re : Label visible

Re Max

Comme moi j'ai fait, il suffit de taper sur TAB du clavier. J'ai mis en invisible une 2ème Textbox pour que le label s'affiche après avoir entrer la date.

 

[maval]

Re : Label visible

Re,

Oui je suis d'accord mais je suis obliger de taper sur entrer il est pas possible que lorsque je rentre la date le label s'affiche seul

@+

 

[Lone-wolf]

Re : Label visible

Re,

macro corrigée.

 

[laetitia90]

Re : Label visible

bonjour maval 🙂 Lone-wolf 🙂

en utilisant like une approche brute

Private Sub TextBox1_Change()
Label1.Visible = IIf(TextBox1 Like "##/##/####", 1, 0)
End Sub

 

[Lone-wolf]

Re : Label visible

Bonjour laetitia 🙂

 

[maval]

Re : Label visible

Re,

Bonjour Laetitia
Nickel merci bonne journée

 

[mapomme]

Re : Label visible

Bonjour à tous 🙂,

Un essai :

• 
  [*=1]avec contrôle en cours de frappe
  [*=1] contrôle de la validité de la date (une date comme 12/13/2015 est interdite)

Edit: avec emprunt du code de laetitia90 que je remercie 🙂

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim TabJMA, EssaiDate, OK As Boolean
  TabJMA = Split(TextBox1, "/")
  If Not TextBox1 Like "##/##/####" Then
    OK = False
  Else
    On Error Resume Next
    TabJMA(1) = Format(TabJMA(1) & "/2016", "mmmm")
    EssaiDate = DateValue(Join(TabJMA, "-"))
    OK = (Err.Number = 0)
    On Error GoTo 0
  End If
  Label11.Visible = Not OK: Label22.Visible = OK
  Label1.Visible = OK: Label2.Visible = OK
End Sub

Private Sub UserForm_Initialize()
  Label11.Visible = True: Label22.Visible = False
  Label1.Visible = False: Label1.Visible = False
End Sub

 

[maval]

Re : Label visible

Bonjour Mapomme,

Je te remercie Nickel

Bonne journée