XL 2021 Mettre à la date du jour

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Janvier 2025

• #2

Bonjour Bobafric,
En A1 mettre :

VB:

=AUJOURDHUI()

Et mettre le format date que vous voulez

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 10 Janvier 2025

• #3

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")

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 10 Janvier 2025

• #4

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

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 10 Janvier 2025

• #5

vgendron à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Classeur2.xlsx

  13.7 KB · Affichages: 3

Vote positif 0 Vote négatif

oguruma

XLDnaute Impliqué

• 10 Janvier 2025

• #6

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.

 

Vote positif 0 Vote négatif

oguruma

XLDnaute Impliqué

• 10 Janvier 2025

• #7

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Janvier 2025

• #8

Re,

Mettre à la date du jour

Cliquez pour agrandir...

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

Dans ThisworkBook :

VB:

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

Dans Feuil1 :

Code:

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.

 

Pièces jointes

• Bobafric.xlsm

  20.9 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

B

bobafric

XLDnaute Occasionnel

• 10 Janvier 2025

• #9

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 10 Janvier 2025

• #10

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

 

Vote positif 0 Vote négatif