Rajout de la Date du jour par edéfault

Bonjour Le forum,

j'ai adapté un code VBA trouvé sur le net, il s'agit de gérer des alertes, pour cela nous avons un userform , je click sur le bouton "Nelle Alerte", je remplis mon userform, et je valide par le bouton "valider" de l'userform, ce qui permet par la suite de les mettre à jour ces données sur l'onglet "BD" .

je souhaiterai ajouter par défault, la date du jour en colonne I, j'ai tentai un certain nombre de chose sur le module "Rechintuit" ainsi que sur la "feuill5 "BD", mais rien n'y fait, soit cela ne me met pas la date ou une date fantaisiste en colonne I, du type 08/02/2023, alors qu'on est le 24/02/2023 ?

Si quelqu'un peut m'aider, je l'en remercie.

Bien Cordialement,

Mamarus

Bonjour,

il suffit d'affecter la date du jour comme ceci (dans Private Sub b_duplique_Click()):

TextBox5 = Date

Cdlt

Bonjour Arturo83,

Merci pour la réponse, mais faut il obligatoirement un textbox pour mettre la date dessus, ne peut on pas le mettre directement en colonne I ?

et faut il nettoyer la cellule en colonne I pour eviter les résultats fantaisites ?

Merci pour les réponses.

Cordialement,

Mamarus

Oui, bien sûr, copiez ce code dans la macro de la feuille destinée à le recevoir.

    DerLig_BD = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row 'Cherche la dernière cellule pleine de la colonne "A"
    Cells(DerLig_BD + 1, "I") = Date ' Copie le date du jour sur la première cellule vide de la colonne "I"

Bonjour Arturo83,

Merci pour le code, cependant peut on avoir le début et la fin du code complet ?

j'ai essayé avec un private sub worksheet,

un Dim DerLig_BD as integer

il me met un message d'erreur !

Merci par avance,

Cordialement,

Mamarus

Bonjour,

A la 17ème ligne

Private Sub B_valid_Click()
    Enreg = Me.Enreg
    For c = 1 To NbCol
        TextBox11.ControlTipText = Date
        If Not Range(NomTableau).Item(Enreg, c).HasFormula Then
            tmp = Me("textbox" & c)
            If IsNumeric(Replace(tmp, ".", ",")) And InStr(tmp, " ") = 0 Then
                tmp = Replace(tmp, ".", ",")
                Range(NomTableau).Item(Enreg, c) = CDbl(tmp)
            Else
                If IsDate(tmp) Then
                    Range(NomTableau).Item(Enreg, c) = CDate(tmp)
                Else
                   Range(NomTableau).Item(Enreg, c) = tmp
                End If
            End If
            Range(NomTableau).Cells(Enreg, "I") = Date ' met la date du jour dans la colonne I
        Else
            Range(NomTableau).Item(Enreg - 1, c).Copy
            Range(NomTableau).Item(Enreg, c).PasteSpecial Paste:=xlPasteFormats
        End If
    Next c
    UserForm_Initialize
    raz
    TextBoxRech = ""
    TextBoxRech.SetFocus
End Sub

Cdlt

Re Bonjour Arturo83,

Impeccable, cela fonctionne, chapeau bas, je suis admiratif...

Merci encore et bonne journée,

Cordialement,

Mamarus