Comment faire apparaître la date

Bonjour,

Dans un dossier excel j'aimerai que lorsque j'écris dans une cellule (qui sera la même pour tout mes onglets) la date s'inscrive dans une autre cellule et qu'elle reste figée.

Merci de votre aide

bonjour

voici un petit fichier avec une formule pour mettre la date du jour en B suivant la case saisie en A,

Cdt

Didier

Bonjour,

franchement pour une simple date, il y a le B-A-BA de l'utilisation d'Excel : la combinaison Ctrl ; …

tout à fait Marc mais parfois certains tableau avec beaucoup de chose a saisir implique une date qui peut etre vite oubliée, je penses que la demande est plutot pour ce genre de cas, ensuite celui qui pose la question prendra la solution la plus adaptée a son probleme.

Cdt

Didier

Bonjour,

Dans cet exemple, la modification de la cellule A1 inscrit la date du jour en B1.

Valable pour l'ensemble des feuilles du classeur actif.

ALT F11 pour ouvrir l'éditeur VBE. Voir module 'ThisWorkbook'.

Cdlt.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        With Cells(2)
            .Value = Date
            .NumberFormat = "dd/mm/yyyy"
        End With
    End If
End Sub

Marc L a écrit :

Bonjour,

franchement pour une simple date, il y a le B-A-BA de l'utilisation d'Excel : la combinaison Ctrl ; …

Oui en effet il s'agit de ça. J'ai énormément de d'administration à effectuer et si je peux m'alléger de certaines entrées cela me permets de ne pas oublier certaines choses.

Jean-Eric a écrit :

Bonjour,

Dans cet exemple, la modification de la cellule A1 inscrit la date du jour en B1.

Valable pour l'ensemble des feuilles du classeur actif.

ALT F11 pour ouvrir l'éditeur VBE. Voir module 'ThisWorkbook'.

Cdlt.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        With Cells(2)
            .Value = Date
            .NumberFormat = "dd/mm/yyyy"
        End With
    End If
End Sub

Merci pour la réponse.

Cependant si je désire que lorsque j'écris dans la cellule "A18" la date aille s'inscrire dans la case "AC2" est-ce que c'est possible ?

Ces cellules ne sont pas l'une contre l'autre.

Encore merci de votre aide

Re,

Modifie $A$1 par $A$18 et Cells(2) par Range("AC2").

C'était très difficile à imaginer

Cdlt.

Merci tout fonctionne même si pour moi c'était difficile à imaginer...

Re,

A bientôt sur le forum pour de nouvelles questions.

Cdlt.