Excel chrono courrier
Résolu/Fermé
162valou
Messages postés
2
Date d'inscription
jeudi 9 septembre 2010
Statut
Membre
Dernière intervention
9 septembre 2010
-
Modifié par jipicy le 9/09/2010 à 09:14
jessica125 - 11 oct. 2010 à 11:45
jessica125 - 11 oct. 2010 à 11:45
A voir également:
- Chrono courrier excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- 24h chrono torrent magnet ✓ - Forum Cinéma / Télé
4 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
9 sept. 2010 à 10:51
9 sept. 2010 à 10:51
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 :
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
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
9 sept. 2010 à 12:42
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
13 sept. 2010 à 08:11
Amicalement
Valou
13 sept. 2010 à 12:22
Cordialement
Patrice
14 sept. 2010 à 07:59
14 sept. 2010 à 14:29