XL 2013 Label visible

Lone-wolf

XLDnaute Barbatruc

• 30 Avril 2016

• #2

Re : Label visible

Bonjour Max 🙂

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

 

Pièces jointes

• Label visible.xlsm

  22.1 KB · Affichages: 41
• Label visible.xlsm

  22.1 KB · Affichages: 31

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 30 Avril 2016

• #3

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Avril 2016

• #4

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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 30 Avril 2016

• #5

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

@+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Avril 2016

• #6

Re : Label visible

Re,

macro corrigée.

 

Pièces jointes

• Label visible.xlsm

  22 KB · Affichages: 42
• Label visible.xlsm

  22 KB · Affichages: 47

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 30 Avril 2016

• #7

Re : Label visible

bonjour maval 🙂 Lone-wolf 🙂

en utilisant like une approche brute

Code:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Avril 2016

• #8

Re : Label visible

Bonjour laetitia 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 30 Avril 2016

• #9

Re : Label visible

Re,

Bonjour Laetitia
Nickel merci bonne journée

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2016

• #10

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 🙂

VB:

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

 

Pièces jointes

• maval- Date Label visible- v2.xlsm

  19.6 KB · Affichages: 35

Dernière édition: 30 Avril 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 30 Avril 2016

• #11

Re : Label visible

Bonjour Mapomme,

Je te remercie Nickel

Bonne journée

 

Vote positif 0 Vote négatif