Excel chrono courrier

Résolu
162valou Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 jessica125 -
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 :)

A voir également:

4 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
UsulArrakis Messages postés 7405 Date d'inscription   Statut Contributeur Dernière intervention   3 190
 
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
valou162 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup, effectivement lundi matin, la colonne se met bien à la date du jour.

Amicalement
Valou
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
J'espère que tu as pris le code corrigé ci-dessous du 9 sep 2010 à 11:43 !
Cordialement
Patrice
0
valou162 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup Patrice, Ca marche, mes collègues pourront écrire la date sans se tromper !!!! Fantastisque non ?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
De rien, avec plaisir
0
UsulArrakis Messages postés 7405 Date d'inscription   Statut Contributeur Dernière intervention   3 190
 
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
162valou Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Super merci beaucoup !!!
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
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