Figer date d'une cellule

Pour écrire et partager des tutoriels et des astuces (Excel, Calc et Google Sheets uniquement)
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'791
Appréciations reçues : 12
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 13 janvier 2014, 20:33

Bonjour,
Je partage un fichier que j'ai mis en forme pour les besoin du forum.

Suite à une demande pour figer la date de saisie.
Le besoin est si une valeur est renseignée sur une cellule, incrémenter la date et/ou l'heure de la saisie. (Selon le format de la cellule)
L'astuce est d'activer le calcul itératif dans les options de formule d'excel.
Capture.JPG
Capture.JPG (45.57 Kio) Vu 9180 fois
Et de mettre la formule suivante dans la cellule où vous voulez rendre visible la date
=SI(A2="";"";SI(B2<>"";B2;MAINTENANT()))
Ci-joint le fichier.

Merci à DAN
http://forum.excel-pratique.com/excel/d ... 42102.html

Cordialement

Leakim
figer date.xlsx
(52.67 Kio) Téléchargé 946 fois
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 25 janvier 2017, 13:39

Salut Leakim !

Je ne raffole pas trop d'utiliser le calcul itératif... ma préférence va toujours à l'utilisation de l'évènement Change en VBA...
Mais au cas particulier, il s'agit de réagir au premier changement, et de ne plus réagir à tout changement ultérieur...

Cordialement.
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'791
Appréciations reçues : 12
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 27 janvier 2017, 20:46

Salut Mferrant,

Pour les lecteurs qui passeraient par là, je remets le lien du post excel/date-de-saisie-dans-excel-sans-mi ... 88137.html

Pour te répondre, je veux bien faire autrement, mais le VBA et moi c'est pas automatique :) . Alors si tu as un exemple VBA avec un code, je serais ravi d'apprendre.

Cordialement,
Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 27 janvier 2017, 22:05

Salut Leakim !

Merci d'avoir retrouvé ce post que je croyais s'être perdu ! :lol: Il était destiné au sujet que tu cites, et dans lequel tu avais mis un lien de ce sujet-ci. J'ai donc répondu par erreur dans le sujet que tu amenais au lieu de répondre dans le sujet initial...

Je n'avais pas fourni de code, parce qu'il n'y avait pas de fichier fourni par le demandeur. Dans ce cas, si les explications indiquent la totalité des références à utiliser dans le code, je fournis éventuellement un code sans fichier, mais là il fallait élargir...

Sinon, reprenons l'exemple : si E1 est modifié et contient une valeur, on met la date en A1. On prépare le terrain en allant mettre par exemple dans une cellule éloignée, mettons EY1, à 150 colonnes d'écart la mention "A1". Et c'est là qu'on ira chercher l'adresse de la cellule cible, et après usage on supprime cette mention...
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cc$, k%
    If Target.Address = "$E$1" Then
        k = Target.Column + 150
        cc = .Cells(1, k)
        If cc <> "" Then
            Me.Range(cc) = Date
            .Cells(1, k).Clear
        End If
    End If
End Sub
Ainsi, E1 modifiée, on met la date dans la cellule désignée par EY1, soit A1 et on supprime le contenu de EY1. Si E1 est à nouveau modifiée, il ne se passera plus rien !

Cordialement.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message