Userform / Textbox Controle 2 premiers caractères = Année en cour
2 réponses
Domi
Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox
sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment...
06 à partir du 01/01/2206...etc.
X = NumDos.Value
an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ?
Quelque chose du genre year(today) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir, 'exemple:
Private Sub CommandButton1_Click() Dim test As Boolean test = Left(NumDos, 2) = CStr(Format(Now, "yy")) If test Then MsgBox "It's ok" Else MsgBox "Bad" End If
End Sub
'lSteph
"Domi" a écrit dans le message de news:
Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment... 06 à partir du 01/01/2206...etc.
X = NumDos.Value an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ? Quelque chose du genre year(today) ?
Merci pour votre aide Domi
Bonsoir,
'exemple:
Private Sub CommandButton1_Click()
Dim test As Boolean
test = Left(NumDos, 2) = CStr(Format(Now, "yy"))
If test Then
MsgBox "It's ok"
Else
MsgBox "Bad"
End If
End Sub
'lSteph
"Domi" <scrat83@free.fr> a écrit dans le message de news:
uA069VhvFHA.464@TK2MSFTNGP15.phx.gbl...
Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox
sont les deux derniers chiffre de l'année en cours. Don "05" en ce
moment...
06 à partir du 01/01/2206...etc.
X = NumDos.Value
an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ?
Quelque chose du genre year(today) ?
Private Sub CommandButton1_Click() Dim test As Boolean test = Left(NumDos, 2) = CStr(Format(Now, "yy")) If test Then MsgBox "It's ok" Else MsgBox "Bad" End If
End Sub
'lSteph
"Domi" a écrit dans le message de news:
Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment... 06 à partir du 01/01/2206...etc.
X = NumDos.Value an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ? Quelque chose du genre year(today) ?
Merci pour votre aide Domi
michdenis
Bonjour Domi,
Essaie un bidule comme celui-ci :
'-------------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) A = TextBox1.SelStart
If A = 0 Then KeyAscii = 48 ElseIf A = 1 Then KeyAscii = 53 End If
End Sub '--------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment... 06 à partir du 01/01/2206...etc.
X = NumDos.Value an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ? Quelque chose du genre year(today) ?
Merci pour votre aide Domi
Bonjour Domi,
Essaie un bidule comme celui-ci :
'--------------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
A = TextBox1.SelStart
If A = 0 Then
KeyAscii = 48
ElseIf A = 1 Then
KeyAscii = 53
End If
End Sub
'--------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: uA069VhvFHA.464@TK2MSFTNGP15.phx.gbl...
Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox
sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment...
06 à partir du 01/01/2206...etc.
X = NumDos.Value
an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ?
Quelque chose du genre year(today) ?
'-------------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) A = TextBox1.SelStart
If A = 0 Then KeyAscii = 48 ElseIf A = 1 Then KeyAscii = 53 End If
End Sub '--------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonsoir à tous,
J'ai dans un userform un textbox "NumDos"
Je voudrais m'assurer que les 2 premier caractères saisis dan ce textbox sont les deux derniers chiffre de l'année en cours. Don "05" en ce moment... 06 à partir du 01/01/2206...etc.
X = NumDos.Value an = Left(X, 2)
quelle syntaxe utiliser pour m'assurer que an est OK ? Quelque chose du genre year(today) ?