Incrémenter une date dans une textbox
Résolu
DGVDR
Messages postés
164
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je suis en train de monter un userform, et je souhaiterais que la date du jour s'incrémente dans une textbox (en loccurence TextBox13_Change() )
Quelle serait la fonction vba qui me permetterait de réaliser ça ?
Merci,
DGVDR
Je suis en train de monter un userform, et je souhaiterais que la date du jour s'incrémente dans une textbox (en loccurence TextBox13_Change() )
Quelle serait la fonction vba qui me permetterait de réaliser ça ?
Merci,
DGVDR
A voir également:
- Incrémenter une date dans une textbox
- Comment prolonger la date de validité d'une smartbox ✓ - Forum Consommation & Internet
- Jm date avis - Forum Consommation & Internet
- Jm date désabonnement ✓ - Forum Consommation & Internet
- Abonnement jm date - Forum Consommation & Internet
- Comment prolonger la date de validité d'une smartbox ? ✓ - Forum Consommation & Internet
4 réponses
Re-
Si tu souhaites que la date du jour apparaisse directement, dans un textbox, à l'ouverture de l'Userform, il ne faut pas utiliser l'événement TextBox1_Change() mais plutôt UserForm_Initialize:
Si tu souhaites que la date du jour apparaisse directement, dans un textbox, à l'ouverture de l'Userform, il ne faut pas utiliser l'événement TextBox1_Change() mais plutôt UserForm_Initialize:
Private Sub UserForm_Initialize() TextBox1 = Date End Sub
Merci, encore une fois.
Toujours pour cette userform, qui à pour but de remplir un tableau excel :
Je voudrais incrémenter mon tableau grace a des dates, qu'il majoute les informations de mon userform à la suite de la date du jour précedent
Il faudrait donc qu'il me compare une à une les cases de la colonne B, colonne avec différentes dates. Et qu'il me sélectionne le n° de ligne juste après la dernière date antérieur. Et donc que je puisse incrémenter mon tableau à cette ligne suivant.
Cependant je ne trouve pas le moyen d'extraire ce numéro de ligne.
Si quelqu'un à des pistes...
DGVDR
Toujours pour cette userform, qui à pour but de remplir un tableau excel :
Je voudrais incrémenter mon tableau grace a des dates, qu'il majoute les informations de mon userform à la suite de la date du jour précedent
Il faudrait donc qu'il me compare une à une les cases de la colonne B, colonne avec différentes dates. Et qu'il me sélectionne le n° de ligne juste après la dernière date antérieur. Et donc que je puisse incrémenter mon tableau à cette ligne suivant.
Cependant je ne trouve pas le moyen d'extraire ce numéro de ligne.
Si quelqu'un à des pistes...
DGVDR
Bonjour,
Un exemple
Un exemple
Private Sub CommandButton1_Click()
Dim lig As Long, drlig As Long
With Sheets("Feuil1")
drlig = .Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
For lig = 2 To drlig
If .Cells(lig, 2) >= CDate(TextBox1.Value) Then
Rows(lig).Insert Shift:=xlDown
'ICI tu entres les données dans ta ligne
'genre :
'.Cells(lig, 2) = TextBox1
Exit Sub
End If
Next lig
End With
End Sub
