Date selon choix dans la liste déroulante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Medawe
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Medawe » 22 novembre 2019, 17:08

Pour essayer de te faire comprendre le contexte :

Lorsque je rentre un client en colonne A j'ai la date de création qui s’incrémente en colonne S

Ce que je souhaite dans la mesure du possible, c'est lorsque je change le statut en colonne D ça m’écrase la fameuse date en Colonne S pour mettre celle du jour.

En fait je fais des stats derrières qui se base sur la date de la colonne S.

:):)
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 25 novembre 2019, 09:07

Medawe a écrit :
22 novembre 2019, 17:08
Lorsque je rentre un client en colonne A j'ai la date de création qui s’incrémente en colonne S
Ce que je souhaite dans la mesure du possible, c'est lorsque je change le statut en colonne D ça m’écrase la fameuse date en Colonne S pour mettre celle du jour.
Voilà le problème 8-) Ton premier post tu as demandé colonne 18 ::( est c'est R pas S la 18
Medawe a écrit :
22 novembre 2019, 10:15
J'ai une liste déroulante en colonne D avec les choix Gagné, en traitement et en attente. J'aimerais si possible avoir la date du changement de statut en colonne 18.
Test (retour).xlsm
(60.25 Kio) Téléchargé 3 fois
M
Medawe
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Medawe » 25 novembre 2019, 09:20

Coucou,

Tu n'as aucun problème quand tu changes le statut ? Car moi ça me fige le fichier et plante ::(
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 25 novembre 2019, 09:46

Medawe a écrit :
25 novembre 2019, 09:20
Coucou,

Tu n'as aucun problème quand tu changes le statut ? Car moi ça me fige le fichier et plante ::(
Non aucun problème et il n'y a plus le module non plus dans le doute je l'ai enlevé.


Essaies celui-ci j'ai enlevé toutes les référence VBA qui n'étaient pas utiles pour ce fichier.
Test (retour) (sans complément).xlsm
(57.82 Kio) Téléchargé 2 fois
Modifié en dernier par Xmenpl le 25 novembre 2019, 09:51, modifié 1 fois.
M
Medawe
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Medawe » 25 novembre 2019, 09:48

Dac, je vais tester depuis un autre poste.

Je te tiens au jus.

Merci encore
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 25 novembre 2019, 09:51

Medawe a écrit :
25 novembre 2019, 09:48
Dac, je vais tester depuis un autre poste.

Je te tiens au jus.

Merci encore
essaies avec celui sans référence vba.
M
Medawe
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Medawe » 25 novembre 2019, 14:24

Re,

Tu dois avoir la version 2013 car moi sur 2016 ça ne passait pas. J'ai ajouté deux lignes:

Application.EnableEvents = False
Application.EnableEvents = True


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Application.Intersect(Target, Range("A2:A600")) Is Nothing Then
lig = 0
col = 18

If Target.Value = "" Then
Target.Offset(lig, col).Value = ""
Else
Target.Offset(lig, col).Value = Now
End If
End If

If ActiveCell.Column = 4 Then
ActiveCell.Offset(0, 15).Value = Now
End If
Application.EnableEvents = True
End Sub


Et la c'est good :)

Merci encore pour ton aide.
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 25 novembre 2019, 14:30

:good: Bien vu, mais je ne vois quand même pas pourquoi le code génère une erreur sur 2016 et pas 2013 ::(
1 membre du forum aime ce message.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message