Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel forcer a taper une date

forcer a taper une date

3 réponses
Avatar
debutant
Bonjour

j'aimerais savoir comment je peux faire pour forcer a taper une date en
textbox1 .
voici ce que j'ai:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Unload UserForm1

merci a tous
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Pierre Fauconnier
Salut

Voici.

Par la même occasion, je te propose de simplier un peu ta syntaxe pour
atteindre la dernière cellule + 1

If IsDate(textbox1) Then
Range("A65536").End(XlUp)(2) = textbox1
Else
MsgBox "Veuillez saisir une date"
End If

Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"debutant" a écrit dans le message de
news:cnsthj$e0r$
Bonjour

j'aimerais savoir comment je peux faire pour forcer a taper une date en
textbox1 .
voici ce que j'ai:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Unload UserForm1

merci a tous





Avatar
denis P
fait un essai avec la fonction CDate. Cette fonctions convertit une
expression valide en un type de données date.

Private Sub CommandButton1_Click()
'mpfe Catherine Copigny

On Error GoTo CaCoince
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")

Exit Sub
CaCoince:
MsgBox "Ya kekchose qui coince là-dedans" & vbCrLf & _
"J'y retourne immédiatement."
End Sub

Denis Pasquier

"debutant" a écrit dans le message de
news:cnsthj$e0r$
Bonjour

j'aimerais savoir comment je peux faire pour forcer a taper une date en
textbox1 .
voici ce que j'ai:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Unload UserForm1

merci a tous





Avatar
debutant
merci beaucoup


"Pierre Fauconnier" a écrit dans le
message de news:
Salut

Voici.

Par la même occasion, je te propose de simplier un peu ta syntaxe pour
atteindre la dernière cellule + 1

If IsDate(textbox1) Then
Range("A65536").End(XlUp)(2) = textbox1
Else
MsgBox "Veuillez saisir une date"
End If

Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"debutant" a écrit dans le message de
news:cnsthj$e0r$
Bonjour

j'aimerais savoir comment je peux faire pour forcer a taper une date en
textbox1 .
voici ce que j'ai:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm1.TextBox1
Unload UserForm1

merci a tous