Incrémenter une date dans une textbox
Résolu/Fermé
DGVDR
Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015
-
7 mai 2013 à 14:19
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 mai 2013 à 08:55
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 mai 2013 à 08:55
A voir également:
- Incrémenter une date dans une textbox
- Vba textbox date format dd/mm/yyyy - Forum VB / VBA
- Publipostage date en anglais ✓ - Forum Excel
- Publipostage date inversée ✓ - Forum Word
- Passé cette date - Forum Logiciels
- Mfg date - Forum PC portable
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
7 mai 2013 à 15:04
7 mai 2013 à 15:04
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
DGVDR
Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015
7 mai 2013 à 17:47
7 mai 2013 à 17:47
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
13 mai 2013 à 08:41
13 mai 2013 à 08:41
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
Merci Franck P , c'est exactement le genre de chose que j'attendais !
DGVDR
DGVDR
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
13 mai 2013 à 08:55
13 mai 2013 à 08:55
De rien
A+ DGVDR
A+ DGVDR
