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

Question

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

pijaku · Answer

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

DGVDR · Answer

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

pijaku · Answer

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

DGVDR · Answer

Merci Franck P , c'est exactement le genre de chose que j'attendais !

DGVDR

Incrémenter une date dans une textbox

4 réponses

Discussions similaires