Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Figer la date Aujourd'hui après modification

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion adie35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

adie35

XLDnaute Nouveau
Bonjour,
J'ai beaucoup regardé sur internent mais je n'arrive pas à appliquer de formule ou code vba car je suis une vraie débutante.
Je voudrais que dès que l'on effectue un changement dans la colonne "indice" la date de la colonne "date cde" se met à jour mais reste figée le lendemain si on ouvre le fichier.
Pouvez-vous m'aider.
En vous remerciant par avance
 

Pièces jointes

Solution
Je fais exactement ce que vous avais demandé:
Je voudrais que dès que l'on effectue un changement dans la colonne "indice" la date de la colonne "date cde" se met à jour mais reste figée le lendemain si on ouvre le fichier.
Cliquez pour agrandir...
Dès qu'on change une valeur dans Indice la date s'insère automatiquement et reste figée :

Ou alors quelque chose m'a échappé.
Trier par date Trier par votes
Bonjour Adie, JHA,
Un essai en PJ avec une petite macro événementielle :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 6 And Cells(Target.Row, 1) <> "" Then
        Cells(Target.Row, 7) = Date
    End If
End Sub
Par contre, dans l'état, si on remodifie Indice, cela remodifiera date CDE.
 

Pièces jointes

Vote positif 0 Vote négatif
Merci JHA,
J'ai remplacé par maintenant pour voir ci celà fonctionne et c'est bon mais lorsque je change l'indice la date (enfin l'heure là pour tester) ne change pas automatiquement. Est-ce normal?

JHA à dit:
Bonjour à tous,

A essayer
VB: 
=SI([@DATE]=0;0;SI([@[DATE CDE]]>0;[@[DATE CDE]];AUJOURDHUI()))
Menu Fichier/option/Formules/ Activer le calcul itératif

JHA
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Sylvanu merci pour ton code. Je vais le tester dans mon fichier et voir demain ci ça change.
Question : avec ce code on a plus besoin de mettre de formule =Aujourdhui dans la colonne?

 
Vote positif 0 Vote négatif
Plus de formule en colonne G.
Quand on change la valeur de l'indice, la date CDE se modifie.
En plus elle est en "dur" donc elle ne se modifiera plus jusqu'à ce qu'on change à nouveau Indice.
 
Vote positif 0 Vote négatif
Peut être un excès de zèle.
Si vous changer l'indice, je regarde s'il y a un code. S'il n'y a pas de code je ne fait rien.
C'était pour éviter les modifs intempestives si on rentre un indice sans avoir rempli la ligne.
En PJ sans cette sécurité.
 

Pièces jointes

Vote positif 0 Vote négatif
Je suis désolé quelque chose doit m'échapper.
Je vois bien que tu as enlevé la partie And Cells mais sur ton fichier cela ne fonctionne pas, la date ne s'insère pas à la saisie

 
Vote positif 0 Vote négatif
Je fais exactement ce que vous avais demandé:
Je voudrais que dès que l'on effectue un changement dans la colonne "indice" la date de la colonne "date cde" se met à jour mais reste figée le lendemain si on ouvre le fichier.
Cliquez pour agrandir...
Dès qu'on change une valeur dans Indice la date s'insère automatiquement et reste figée :

Ou alors quelque chose m'a échappé.
 
Vote positif 0 Vote négatif
Solution
bonjour
après avoir mis un indice tu pourra plus le changer
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 6 Then Exit Sub
        If Cells(Target.Row, 7) <> "" Then
            MsgBox "VOUS NE POUVEZ PAS CHANGER CETTE LIGNE!!!"
            With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
            End With
        Else
            Cells(Target.Row, 7) = Date
        End If
 End Sub
 
Vote positif 0 Vote négatif
Bonjour,

Votre solution a très bien marché sur mon ordi. Parcontre quand je l'ai testé sur d'autres (version 2013 et un 2016) j'ai eu un message d'erreur cf ci dessous

Comment puis-je résoudre le problème?

sylvanu à dit:
Je fais exactement ce que vous avais demandé:

Dès qu'on change une valeur dans Indice la date s'insère automatiquement et reste figée :
Regarde la pièce jointe 1068709
Ou alors quelque chose m'a échappé.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Bonjour @adie35 @sylvanu @patricktoulon @JHA, le Forum

L'erreur en photo du Post#12 ne signifie pas forcément que c'est "Date" qui bloque et n'est pas trouvé dans le Projet ou Bibliothèque. (Parfois le débogueur VBA est très "bête")

Il faut que tu vérifies si tu n'as pas ajouté des références à des OCX ou DLL non existantes dans les PCs où tu as testé. (Aller dans Tools => References et voir si il ne manque pas une ou des références).

Bonne journée
@+Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
P
  • Question Question
XL 2016 Macro pour masquer/démasquer des cellules via mot de passe
Réponses
6
Affichages
272
Jacky67
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
493
Raziel abel
A
  • Résolu(e)
XL 2016 Mise en forme conditionnel
Réponses
6
Affichages
701
mapomme
M
  • Question Question
XL 2016 conditions sur date
Réponses
2
Affichages
323
michokette
M
G
  • Question Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
835
Lolote83
L
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
767
fanch55
T
  • Résolu(e)
XL 2016 Afficher la date de modification d'une cellule
Réponses
3
Affichages
1 K
telemarrk
T
J
  • Question Question
XL 2013 FIN de DATEDIFF avec fonction AUJOURD'HUI
Réponses
7
Affichages
604
chris
D
  • Question Question
XL 2016 Modification les valeurs d'une même colonne d'une ListBox dans USF
Réponses
5
Affichages
669
Damien0507
D
S
  • Question Question
XL 2021 Modification d'une macro qui créer des feuilles Excel et les complète
Réponses
2
Affichages
431
sessef1
S
L
  • Question Question
XL 2016 Calcul à partir d'une date précise ou - à défaut - à partir de la date qui suit immédiatement après
Réponses
4
Affichages
711
Lorenzini
L
S
  • Résolu(e)
Microsoft 365 Inscrire automatiquement la date du jour et bloquer les cellules
Réponses
4
Affichages
681
sebastien176
S
M
  • Question Question
Microsoft 365 Colonne de la feuille 1 envoyer en une ligne sur la feuille 2
Réponses
0
Affichages
507
marcmarc
M
R
  • Question Question
XL 2016 Indiquer la date du jour dans une cellule sans effacer les précédentes
Réponses
10
Affichages
981
ReneDav14000
R
  • Question Question
XL 2019 Détermination droit de congé à partir date embauche
2
Réponses
17
Affichages
2 K
kdet
A
  • Résolu(e)
XL 2016 Formule filtre et mise en forme conditionnelle en fonction de la date
Réponses
9
Affichages
1 K
Alan28
A
M
  • Résolu(e)
fonction VBA
Réponses
2
Affichages
774
moonlightduke1709
M
B
  • Question Question
XL 2019 Date automatique figer
Réponses
0
Affichages
983
Bloody_Toad
B
N
  • Question Question
XL 2010 ajout automatique d'un jours (semaine) à une date
Réponses
5
Affichages
966
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…