Insertion automatique de la date lorsque l'on ajoute du contenu ailleurs
Fermé
BenMai
-
8 oct. 2021 à 10:05
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 8 oct. 2021 à 16:49
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 8 oct. 2021 à 16:49
A voir également:
- Insertion automatique de la date lorsque l'on ajoute du contenu ailleurs
- Message automatique thunderbird - Guide
- Insertion liste déroulante excel - Guide
- Ignoré de ils m'ont ajouté snap ✓ - Forum Snapchat
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
2 réponses
ccm81
Messages postés
10878
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 septembre 2024
2 415
8 oct. 2021 à 12:01
8 oct. 2021 à 12:01
Bonjour
Si tu ne veux pas que la date inscrite change à chaque ouverture du fichier, il faudra passer par une macro. Partant ?
Sinon, Ctrl+; te permet de mettre "en dur" la date du jour
Cdlmnt
Si tu ne veux pas que la date inscrite change à chaque ouverture du fichier, il faudra passer par une macro. Partant ?
Sinon, Ctrl+; te permet de mettre "en dur" la date du jour
Cdlmnt
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
8 oct. 2021 à 16:49
8 oct. 2021 à 16:49
Bonjour,
en vba faire Alt F11 pour accéder à l'éditeur
Aller dans le module de la feuille concernée en haut à gauche.
Mettre ce code qui se déclenchera à chaque changement:
en vba faire Alt F11 pour accéder à l'éditeur
Aller dans le module de la feuille concernée en haut à gauche.
Mettre ce code qui se déclenchera à chaque changement:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Cells(Target.Row, 2) = Format(Now, "d mmmm yyyy hh:nn") 'colonne B
Worksheets("Feuil1").Columns("B").AutoFit 'adapter nom de la feuille
End If
End Sub
