Formule date de création d'une cellule

J'ai essayé =Maintenant() mais ça affiche l'heure du PC, et non celle de la création du numéro.

Cliquez pour agrandir...

Gorfael à dit:

Salut quentl59 et le forumMême en utilisant un MAC 😀 ?

Plus sérieusement : une formule est mise à jour à chaque fois que la feuille est recalculée => il faut donc passer par une macro. Quelle plage concerne tes formules de concaténation ?
A+

Cliquez pour agrandir...

ROGER2327 à dit:

Bonjour à tous

Pas certain d'avoir tout compris...*
À tout hasard, un essai peut-être adaptable ?​

ROGER2327
#5463

Samedi 14 Gueules 139 (Nativité de J. Verne, globetrotter en chambre - fête Suprême Quarte)
19 Pluviôse An CCXX, 6,9395h - pulmonaire
2012-W06-3T16:39:17Z


*...et même certain de ne pas avoir tout deviné...

Cliquez pour agrandir...

ROGER2327 à dit:

Re...

Vous seul pouvez le faire puisque vous êtes le seul à connaître votre tableau.​

ROGER2327
#5465

Samedi 14 Gueules 139 (Nativité de J. Verne, globetrotter en chambre - fête Suprême Quarte)
19 Pluviôse An CCXX, 9,1042h - pulmonaire
2012-W06-3T21:51:01Z

Cliquez pour agrandir...

ROGER2327 à dit:

Re...

Gorfael vous l'a expliqué dans le message #2 : ce genre de boulot se fait en utilisant une procédure en VisualBasic, pas avec des formules.

Dans le classeur que j'ai déposé (#4), lisez les commentaires jusqu'à la fin. Vous trouverez en E15 de la première feuille 😛our voir ce code, et le modifier à votre convenance, ouvrez l'éditeur VisualBasic par Alt F11.

Voilà ce code :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Dt As Date, Hr As Date, oCel As Range, dPlg As Range, dCel As Range
    Dt = Date: Hr = Time
    With Application: .Calculation = xlCalculationManual: .EnableEvents = 0: End With
    For Each oCel In Cible.Cells
        On Error Resume Next
        Set dPlg = Intersect(Range("C2:C18"), oCel.Dependents.Cells) 'Plage de concaténation.
        On Error GoTo 0
        If Not dPlg Is Nothing Then
            For Each dCel In dPlg.Cells
                With Feuil1.Cells(dCel.Row, 1) 'Destination.
                    .Resize(1, 3).Value = Empty
                    If dCel.Value <> "" Then .Value = dCel.Value: .Offset(, 1).Value = Dt: .Offset(, 2).Value = Hr
                End With
            Next dCel
        End If
    Next oCel
    With Application: .EnableEvents = 1: .Calculation = xlCalculationAutomatic: End With
End Sub

Il vous reste à l'adapter vous-même à la situation particulière que vous êtes seul à connaître.​

ROGER2327
#5467

Samedi 14 Gueules 139 (Nativité de J. Verne, globetrotter en chambre - fête Suprême Quarte)
19 Pluviôse An CCXX, 9,3057h - pulmonaire
2012-W06-3T22:20:01Z

Cliquez pour agrandir...

ROGER2327 à dit:

Re...

Essayez ceci :

VB:

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Dt As Date, Hr As Date, oCel As Range, dPlg As Range, dCel As Range
    Dt = Date: Hr = Time
    With Application: .Calculation = xlCalculationManual: .EnableEvents = 0: End With
    For Each oCel In Cible.Cells
        On Error Resume Next
        Set dPlg = Intersect(Range("M16:M21"), oCel.Dependents.Cells) 'Plage de concaténation.
       On Error GoTo 0
        If Not dPlg Is Nothing Then
            For Each dCel In dPlg.Cells
                With Feuil1.Cells(dCel.Row + 3, 1) 'Destination.
                    .Resize(1, 2).Value = Empty
                    If dCel.Value <> "" Then .Value = Dt: .Offset(, 1).Value = Hr
                End With
            Next dCel
        End If
    Next oCel
    With Application: .EnableEvents = 1: .Calculation = xlCalculationAutomatic: End With
End Sub

ROGER2327
#5475

Lundi 16 Gueules 139 (Saint Münchhausen, baron - fête Suprême Quarte)
21 Pluviôse An CCXX, 0,7388h - thlaspi
2012-W06-5T01:46:24Z

Cliquez pour agrandir...