Comment insérer automatiquement une date du jour statique si
Résolu/Fermé
Hunadia2016
Messages postés
4
Date d'inscription
vendredi 22 janvier 2016
Statut
Membre
Dernière intervention
22 janvier 2016
-
22 janv. 2016 à 14:53
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016 - 22 janv. 2016 à 17:06
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016 - 22 janv. 2016 à 17:06
A voir également:
- Comment insérer automatiquement une date du jour statique si
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer liste déroulante excel - Guide
- Mettre à jour ses pilotes - Guide
- Insérer sommaire word - Guide
1 réponse
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
22 janv. 2016 à 15:28
22 janv. 2016 à 15:28
Bonjour,
A mettre dans le module de la feuille :
Une date déjà mise est protégée.
Si tu veux qu'elle soit mise à jour supprimer If c.Offset(, 2) = "" Then
eric
A mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) Dim pl As Range, c As Range Set pl = Intersect([A1:A100], Target) If Not pl Is Nothing Then For Each c In pl If c.Offset(, 2) = "" Then c.Offset(, 2) = Date Next c End If End Sub
Une date déjà mise est protégée.
Si tu veux qu'elle soit mise à jour supprimer If c.Offset(, 2) = "" Then
eric
22 janv. 2016 à 15:55
Tout d'abord je tiens à te remercier pour la célérité dans ta réponse. C'est génial car qui plus est, cela fonctionne...
Je vais abuser...comment puis-je ajouter une condition...que l'actualisation de la création de la date ne s'active pas si en A la cellule reste vide (je pense à la suppression de la valeur préexistante en A1, ou le simple clic sur la cellule vide A1)...
(et encore merci pour ta précédente réponse - c'st cool)
22 janv. 2016 à 16:06
22 janv. 2016 à 16:27
22 janv. 2016 à 16:37
22 janv. 2016 à 17:06
bon week end