Affichage date du passage en "cloturé" dans Excel
Résolu
marie74
-
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
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:
- Affichage date du passage en "cloturé" dans Excel
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Passage qwerty azerty - Guide
- Déplacer colonne excel - Guide
4 réponses
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
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
Bonjour,
code à mettre dans le module de la feuille :
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
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