Formule Excel/VBA insertion date fixe conditionnel Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Sgh.Chafaa
Jeune membre
Jeune membre
Messages : 47
Appréciations reçues : 2
Inscrit le : 26 octobre 2017
Version d'Excel : 2010

Message par Sgh.Chafaa » 26 octobre 2017, 02:08

Bonjour messieurs/Medames

s'il vous plait j'ai besoin d'une petite coup de main pour la question d'insertion d'une date fixe en excel sans avoir besoin de toucher simultanément CTRL et ;

j'ai plutôt besoin d'une formule, que ce soit excel ou VBA

voilà le cas:

j'ai une liste de X commandes dans une colonne A

puis j'ai trois statut : "Cmd reçu" ; "en Stock" et "Livrée" dans colonne B

j'ai besoin de calculer le délais de fabrication de chaque commande pour faire statistique annuel de "temps de réponse"


alors j'ai créer une colonne "date réception cmd" et autre "Date finalisation de commandes" et autre "délais de fabrication"


j'ai besoin d’insérer la date quand je choisie le statut "en stock" , et que cette date reste fixe pour avoir le calcul correct

donc la fonction date(), aujoudhui() et maintenant() ne me servent pas car ils se mettent à jours à chaque ouverture de fichier


Comment faire s'il vous plait :( ?

https://www.dropbox.com/s/ttzwrd9nr6xss ... .xlsx?dl=0

Date Fixe.xlsx
(11.94 Kio) Téléchargé 52 fois
Modifié en dernier par Sgh.Chafaa le 26 octobre 2017, 13:41, modifié 1 fois.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 418
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 26 octobre 2017, 06:59

Bonjour,

Si j'ai bien compris ta demande ...

Dès que tu choisis 'En Stock' dans la Colonne E ... la Colonne B affiche la 'Date Fixe' ...

Ci-joint ton fichier ...

En espèrant que cela t'aide ...
Date Fixe.xlsm
(16.28 Kio) Téléchargé 134 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Sgh.Chafaa
Jeune membre
Jeune membre
Messages : 47
Appréciations reçues : 2
Inscrit le : 26 octobre 2017
Version d'Excel : 2010

Message par Sgh.Chafaa » 26 octobre 2017, 11:21

James007 a écrit :Bonjour,

Si j'ai bien compris ta demande ...

Dès que tu choisis 'En Stock' dans la Colonne E ... la Colonne B affiche la 'Date Fixe' ...

Ci-joint ton fichier ...

En espèrant que cela t'aide ...


C'est Exactement ce que j'avais Besoin monsieur James007
Un Grand Merci

ça fait uniquement 2 jours que je commence à apprendre le VBA en fait

Est ce que possible autre chose ?

Parfois mon article passe directement à l'état livrée sans avoir l'état logique de "En Stock" Puis "Livréé" , donc est ce que possible d'inserer la date FIXE une fois que la cellule de colonne "E" est changée (que ce soit en choisissant "En Stock" ou Livrée") ??
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 418
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 26 octobre 2017, 12:10

Re-Bonjour,

Content que cela t'aide ... :wink:

Ci-joint la Version 2 ... avec la modification supplémentaire ...
Date Fixe V2.xlsm
(16.27 Kio) Téléchargé 141 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Sgh.Chafaa
Jeune membre
Jeune membre
Messages : 47
Appréciations reçues : 2
Inscrit le : 26 octobre 2017
Version d'Excel : 2010

Message par Sgh.Chafaa » 26 octobre 2017, 13:37

James007 a écrit :Re-Bonjour,

Content que cela t'aide ... :wink:

Ci-joint la Version 2 ... avec la modification supplémentaire ...



Waaw !! la Magie !

Comment Puis-Je vous remercier monsieur ? ? Grand Merci ... GRAND


alors pour les débutant en VBA comme moi:

le code commenté d'aprés ce que j'ai compris:


Private Sub Worksheet_Change(ByVal Target As Range)

'
If Target.Count > 1 Then Exit Sub

'Si la colonne de la cellule qui a changé n'est pas la colonne Numéro 5
'OU si la ligne est la ligne 1
'==> Alors on sort de la procédure.
'cad qu'on ne va cibler que les cellules de la plage E2:Exxx
If Target.Row = 1 Or Target.Column <> 5 Then Exit Sub


'Si la Valeur du 5ém colonne est "En Stock" ou "Livrée" donc
'Target.Offset(0, -3) aller à la position -3 par rapport à la colonne 5 (Colonne E) et inserer la valeur de Date Système d'une façon fixe et permanante
If Target.Value = "En Stock" Or Target.Value = "Livrée" Then Target.Offset(0, -3) = Date
End Sub
Modifié en dernier par Sgh.Chafaa le 26 octobre 2017, 13:50, modifié 1 fois.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 418
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 26 octobre 2017, 13:44

Re,

Félicitations ... pour tous les commentaires du code ... !!!

Car tu as tout compris ... :clap:

Et je te remercie beaucoup .... pour tes remerciements enthousiastes ... :smile:
1 membre du forum aime ce message.
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
T
Tiusss
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 18 juin 2019
Version d'Excel : 2010

Message par Tiusss » 18 juin 2019, 08:54

Bonjour à tous,

L'action que vous faites correspond exactement à ce que je cherche. Mais je vous avouerais que je ne comprend pas tout... :)
Je souhaite aussi entrer une date FIXE en colonne B suivant ce qui est inscris en colonne A.

Est-ce qu'il est possible de réaliser la meme chose avec une formule excel ? Car si je ne me trompe pas, la macro VBA nécessite un bouton pour là lancer non ? J'ai essayé le code que vous avez mis mais ca ne marche pas... :(

Merci beaucoup pour votre aide

Bonne journée !

Mathieu
T
Tiusss
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 18 juin 2019
Version d'Excel : 2010

Message par Tiusss » 18 juin 2019, 09:04

En fait c'est tout bon j'ai compris ! :)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 418
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 18 juin 2019, 09:29

Bonjour,

Félicitations ...

En moins de dix minutes ... tu as tout compris ... !!! :clap:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
T
Tiusss
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 18 juin 2019
Version d'Excel : 2010

Message par Tiusss » 19 juin 2019, 08:57

Merci !

Peut-être pas tout, mais au moins ce que j'essayé de faire ^^
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message