Affichage date du passage en "cloturé" dans Excel

Résolu
marie74 -  
 marie74 -
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

4 réponses

  1.
    Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonjour,
    En Q1 :
    =SI($A1="clôturé";AUJOURDHUI();"")

    Mettre format de cellule "date" en colonne Q
    1
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
  3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
    1. marie74
       
      Super merci beaucoup!!!
      0
  4. marie74
     
    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
    1. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
       
      Rectificatif :

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

Discussions similaires

Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses