XL 2021 Mettre à la date du jour

[bobafric]

Bonjour à tous, dans ma feuille excel une cellule de la ligne 1 je voudrai que la date du jour s'affiche automatiquement à l'ouverture, est ce possible??

 

[sylvanu]

Bonjour Bobafric,
En A1 mettre :

=AUJOURDHUI()

Et mettre le format date que vous voulez

 

[vgendron]

bonjour
après 350 messages.. c'est étonnant de pas savoir...

=aujourdhui()

ou
dans l'évènement workbook_open
sheets(Nomfeuill").range("A1")=format(now,"dd/mm/yyyy")

 

[vgendron]

note: ma deuxième proposition (workbook_open) n'apporte strictement rien de plus que la formule elle meme..

 

[bobafric]

note: ma deuxième proposition (workbook_open) n'apporte strictement rien de plus que la formule elle meme..

Merci les gars , il est vrai qu'à mon age on n'enregistre plus très bien toutes ces formules, bien que je fasse beaucoup bosser. Et j'en ai un autre, moi j'ai les idées vous les solutions.
Dans mon classeur sur la feuille 1 j'ai un tableau qui se met (grace à vous) à la date du jour. lorsque je remplis les cellules du tableau le 10/01 date du jour, la feuil2 se remplit automatiquement.
Mais comment peut -on automatiser la manoeuvre pour le 11/01 et ainsi de suite
Merci d'avance pour votre aide et pardonnez mon ignorance

 

[oguruma]

Bonjour à tous,
la solution VBA est préférable car l'information est statique tandis que par formule c'est dynamique. Cela veut dire qu'excel calcule la date du jour en permanence.... Mettre la fonction Aujourdhui() dans un tableau avec des milliers de lignes et une formule de dates compliquée peut s'avérer très coûteux en perf. Il est donc préférable de stocker cette dans un champ nommé et d'appeler ce champs dans les formules.

 

[oguruma]

Bonjour à tous,
la solution VBA est préférable car l'information est statique tandis que par formule c'est dynamique. Cela veut dire qu'excel calcule la date du jour en permanence.... Mettre la fonction Aujourdhui() dans un tableau avec des milliers de lignes et une formule de dates compliquée peut s'avérer très coûteux en perf. Il est donc préférable de stocker cette dans un champ nommé et d'appeler ce champs dans les formules.

 

[sylvanu]

Re,

Mettre à la date du jour

On est quand même loin du titre. 😅😂🤣
En PJ un essai.

Dans ThisworkBook :

Sub workbook_open()
Sheets("Feuil1").Range("A1") = Date
End Sub

Dans Feuil1 :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D6:D13]) Is Nothing Then
        Dim L%, C%
        L = Application.Match([A1], Sheets("Feuil2").[A:A], 0)
        If Not IsError(L) Then
            C = Target.Row - 4
            With Sheets("Feuil2")
                .Cells(L, C) = Target
                .Cells(L, 10) = Application.Sum([D6:D13])
                .Cells(L, 11) = [E14]
            End With
        End If
    End If
Fin:
End Sub

La feuil2 se met à jour dès qu'on modifie une valeur dans D6😀13.

 

[bobafric]

Barbatruc tu es vraiment le plus fort. C'est impeccable, même si on change la date dans A1 ça fonctionne impec. Merci encore et à la prochaine

 

[vgendron]

hahaha.. c'est fou comme Barbatruc est un pseudo utilisé sur ce forum.. :-D