Excel chrono courrier

Résolu
162valou -  
Bonjour,

Dans un chrono courrier sous excel, je souhaite insérer la date du jour de façpon automatique, du style : si la colonne C n'est pas vide, alors colonne A = date du jour.

J'ai essayé plusieurs fonctions mais je bug toujours quelque part ? avez vous une solution de formule à appliquer ?

Merci :)

4 réponses

  1.  Patrice33740
    Bonjour 162valou

    Attention : dans le cadre de l'enregistrement de courrier, la formule ci-dessus ne convient pas.. En effet chaque fois que tu ouvrira le fichier tu auras la date du jour où tu ouvre le fichier et pas la date d'enregistrement de la donnée dans la colonne C.

    La seule façon d'enregistrer automatiquement la date de jour dans une cellule autre que celle dans laquelle tu saisis, c'est de passer par une macro VBA

    Ajoute le code suivant à ta feuille : 

    Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
  Target.Offset(0, -2) = Date
End Sub

    Pour cela :
    - copie le code ci-dessus,
    - fais un clic droit sur l'onglet de la feuille
    - choisis Visualiser le code
    - colle le code
    - fais Alt+F11 pour revenir au classeur et faire un essai.
    - si ça te convient, enregistre le tout.

    Tu peux adapter ce code à ton besoin, notamment la plage Range("C:C") réservée à la saisie colonne C. Par exemple pour éviter d'effacer les titres : Range("C2:C" & Rows.Count))

    Cordialement
    Patrice
    4
    1. UsulArrakis Contributeur
      bien vu Patrice
      je ne me suis arrêté qu'au fait de mettre la date du jour si la cellule de référence n'est pas vide
      0
    2. valou162
      Merci beaucoup, effectivement lundi matin, la colonne se met bien à la date du jour.

      Amicalement
      Valou
      0
    3. Patrice33740
      J'espère que tu as pris le code corrigé ci-dessous du 9 sep 2010 à 11:43 !
      Cordialement
      Patrice
      0
    4. valou162
      Merci beaucoup Patrice, Ca marche, mes collègues pourront écrire la date sans se tromper !!!! Fantastisque non ?
      0
    5. Patrice33740
      De rien, avec plaisir
      0
  2. UsulArrakis Contributeur
    salut
    on considère en ligne 1 tes en-têtes de colonnes
    à mettre en A2 =SI(C2="";"";AUJOURDHUI())
    puis recopier vers le bas
    0
    1. 162valou Auteur
      Super merci beaucoup !!!
      0
      1. Patrice33740
        Re,

        Une petite amélioration du code qui permet d'éviter de modifier une date enregistrée, d'effacer un enregistrement et/ou de supprimer des lignes : 

        Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
  If IsEmpty(Range("A" & Target.Row)) Then Range("A" & Target.Row) = Date
  If IsEmpty(Range("C" & Target.Row)) Then Range("A" & Target.Row).Formula = vbNullString
End Sub

        Cordialement
        Patrice
        0
        1. jessica125
          Je suis nulle en informatique, je travail pour une petit assos qui n'a pas les moyens pour acheter des logiciels. J'aimerais savoir si vous pourriez mes faire un chrono courrier exel prét à utiliser. Merci d'avance
          0