Affichage date du passage en "cloturé" dans Excel

Résolu/Fermé
marie74 - 15 févr. 2019 à 18:32
 marie74 - 16 févr. 2019 à 18:25
Bonjour,

Dans mon tableau excel toutes les cellules de la colonne A contient le mot "en cours" ou "clôturé". Je voudrais pouvoir garder la trace du passage en clôturé dans la colonne Q: dès que clôturé est inscrit en A, la date s'affiche en Q.

Je n'ai malheureusement aucune notion de VBA...

Merci d'avance pour votre aide.

Marie
A voir également:

4 réponses

Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 166
Modifié le 15 févr. 2019 à 19:32
Bonjour,
En Q1 :
=SI($A1="clôturé";AUJOURDHUI();"")

Mettre format de cellule "date" en colonne Q
1
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 416
Modifié le 15 févr. 2019 à 19:29
Bonsoir
en attendant mieux
sous réserve d'une entrée de texte avec déplacement vertical du curseur:
clic droit sur le nom de l'onglet
sélectionner "visualiser le code"
et coller ça:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Column = 1 And ActiveCell.Offset(-1, 0).Value = "Clôturé" Then
ActiveCell.Offset(-1, 16).Value = Date
End If
End Sub


crdlmnt


les accents ont évidemment leur importance, le texte dans la cellule doit être identique à celui en gras ci dessus
1
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 416
16 févr. 2019 à 11:55
Bonjour
AUJOURDHUI() et MAINTENAT() sont volatiles et changeront à chaque intervention sur le fichier
votre Excel doit accepter les macros
voir ci dessous via VBA:
https://mon-partage.fr/f/H1zhUGBC/
crdlmnt
0
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
Modifié le 16 févr. 2019 à 12:18
Bonjour,

code à mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 1 And Target.Value = "clôturé" Then Cells(Target.Row, "Q") = Date
    Application.EnableEvents = True
End Sub

La date reste si tu repasses en autre chose que "clôturé". Préciser si tu veux que ça repasse vide.
https://www.cjoint.com/c/IBqlpVAkPL6
eric

1
Super merci beaucoup!!!
0
Bonjour,

Merci à vous 2.
Je ne m'en sors pas avec le code…
J'ai essayé la fonction excel "simple" qui fonctionne, mais est ce que la date ne sera pas modifiée à chaque ouverture du fichier et en plus d'à chaque fois que l'on passe en clôturé?
0
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 166
16 févr. 2019 à 11:41
Rectificatif :

=SI($A1="clôturé";MAINTENANT();"")
0