Incrémenter une date dans une textbox [Résolu/Fermé]

Signaler
Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015
-
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
-
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

4 réponses

Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 524
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:

Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
158
Date d'inscription
vendredi 10 août 2012
Statut
Membre
Dernière intervention
20 juillet 2015

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
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 524
Bonjour,
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
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 524
De rien
A+ DGVDR