[Excel] Date d'aujourd'hui, mais fixe !

Résolu
Naflin Messages postés 88 Statut Membre -  
 momolol -
Bonjour les gens !
Voilà, je cherche plus ou moins désespérément une formule qui :
- Rentre au moment que je veux la date (à la minute près)
- Mais que cette date reste fixe

En gros que çà fasse comme la formule =AUJOURDHUI mais que la date donné ne change pas avec le temps ...

Pouvez m'aider ziouplait ?
Configuration: Windows Vista
Firefox 3.0.5

5 réponses

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Salut Mike, je me casse la nenette pour me rappeler comment fixer la date mais je ne me rappel plus, peut-tu expliquer plus clairement svp.
    Merci d'avance
    A+
    0
    1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Salut Lermite222,

      Je m'étais absenté, ah les fêtes. Pour en revenir au problème, c'est souvent les solutions les plus simples que l'on oublie

      Pour te répondre, au clavier tu clique en même temps sur Ctrl et point virgule (Ctrl et ;)
      en Bva

      Sub heure()
      ActiveCell.Value = Date 'pour la date
      'ActiveCell.Value = Time 'pour l'heure
      'ActiveCell.Value = Date & " " & Time 'pour la date et l'heure mais avec Now ça marche aussi bien
      End Sub

      Automatique dans le code feuille si une saisie est opérée en colonne A la date et heure de la saisie en B

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 1 And Target.Count = 1 Then
      Target.Offset(0, 1) = Now
      End If
      End Sub

      Bonne soirée
      0
  2. Naflin Messages postés 88 Statut Membre 9
     
    Eh bien, mille mercis !
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour, bonjour Mike,
    C'est pas tout à fait ça mais ta réponse m'a permis de retrouver, c'était pourtant tout simple (mais les 'trous de mémoire ne font pas de distinguo)
    Juste ajouter une conditions...
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Column = 1 And Target.Count = 1 And Target.Offset(0, 1) = "" Then
            Target.Offset(0, 1) = Now
        End If
    End Sub

    Merci,
    A+
    0
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut Lermite222,

    Ca dépend de l'effet escompter, mon code fixe l’heure si la valeur de la cellule en A change, éventuellement sur un double clic. Ton code fixe l’heure sur un simple clic sur le cellule ou le déplacement de la cellule active.

    C’est moins élégant, ce que j’ai également fait sur des formules avec AUJOURDHUI(), c’est un copier/coller de la cellule sur la même cellule suivant condition en VBA.

    A+
    0
    1. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      C'est voulu ?
      Private Sub Worksheet_Change(ByVal Target As Range)
      0
    2. momolol
       
      ouai c sa
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Si tu l'inclus dans une formule, la date s'actualisera automatiquement, à part que tu la saisisses manuellement avec contrôle et point virgule (Ctrl + ; ) ou avec un code VBA mais il faudra un déclencheur du code;

    A+
    -1