Incrémenter une date dans une textbox
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- Incrémenter une date dans une textbox
- Whatsapp date incorrecte ✓ - Forum Mobile
- Airpods 3 date de sortie - Guide
- Formule excel si date supérieur à une autre date ✓ - Forum Excel
- Trouver une date de naissance gratuit - Forum Réseaux sociaux
- Jm date avis - 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