XL 2016 [Résolu] Durée entre deux dates en min

[Théo gestin]

Bonjour tout le monde ,

Je reviens vers vous pour solliciter votre aide. En fait, J'essaie de calculer la durée entre les deux dates , date du début qui existe dans la feuille " Production" dans la colonne E et la date de fin qui existe la feuille " Magasin " dans la colonne E , ensuite insérer le résultat dans une troisième feuille " durée" dans la colonne D à chaque fois qu'on fait le calcul . J'ai essayé de regarder les différentes discussions, mais j'y arrive pas.

Je souhaite aussi, quand on essaye d'insérer des données dans la feuille "Magasin", d'empêcher cette opération si le numéro d'OF n'existe pas dans la feuille "Production" avec un msg box qui afficher " cet ordre de fabrication n'est pas disponible "

Je vous remercie d'avance

 

[sylvanu]

Bonjour Théo,
Dans votre fichier n'existent ni la feuille Production, ni la feuille Magasin.
Difficile de vous répondre.

 

[Théo gestin]

Bonjour Théo,
Dans votre fichier n'existent ni la feuille Production, ni la feuille Magasin.
Difficile de vous répondre.

Bonjour Sylvanu,

Merci pour votre retour rapide.
Je suis désolé, j'ai pas pris le bon fichier
Vous trouverez le bon fichier en pièces jointes.

Merci

 

[sylvanu]

🙂

 

[sylvanu]

Un essai en PJ avec :
1- Une feuille Durée avec Date de Fin et Date de Prise et le calcul de la durée.
2- Dans la feuille Magasin on entre un N° de ressource.
Si ce numéro de ressource existe alors on remplit les colonnes BCD, sinon on émet un message d'erreur. Si la ressource n'a pas de N°OF alors on émet un message d'erreur.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
        If Not IsError(Application.Match(Target, Sheets("Production").Range("A:A"), 0)) Then
            IndexW = Application.Match(Target, Sheets("Production").Range("A:A"), 0)
            If Sheets("Production").Cells(IndexW, "B") <> "" Then
                Cells(Target.Row, "B") = Sheets("Production").Cells(IndexW, "B")
                Cells(Target.Row, "C") = Sheets("Production").Cells(IndexW, "C")
                Cells(Target.Row, "D") = Sheets("Production").Cells(IndexW, "D")
            Else
                MsgBox "Désolé, pas de N° OF associé à la ressource " & Target
                Application.EnableEvents = False
                Target = ""
                Application.EnableEvents = True
            End If
        Else
            MsgBox "Ce N° de ressource n'existe pas."
            Application.EnableEvents = False
            Target = ""
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[Théo gestin]

Bonjour Sylvanu ,
1- Pour la feuille durée , dans la colonne date de prise, ca m'affiche des dates un peu bizarres ( 0/01/0001 0:00), je sais pas pourquoi
2- Ce que je veux, c'est plutôt le N° d'OF, parce que sur une ressource, on peut avoir plusieurs OF ( un numéro d'OF est unique). Par contre , j'ai essayé avec votre proposition. Quand une ressource n'existe pas, ca affiche bien le message, mais ca remplit les colonnes BCD alors qu'il faut rien insérer ces lignes.

Merc d'avance

 

[sylvanu]

Renvoyez un fichier renseigné car pour moi, si la ressource n'existe pas alors on est dans une branche message et alors aucune colonne n'est remplie. je ne comprends pas.
Pour les durée, mettre en C2 :

SIERREUR(SI(INDEX(Magasin!E:E;EQUIV(Magasin!A2;Production!A:A;0))=0;"";INDEX(Magasin!E:E;EQUIV(Magasin!A2;Production!A:A;0)));"")

J'avais oublié de traiter les valeurs nulles.

 

[Théo gestin]

Bonjour,

ça me donne ça.

 

[sylvanu]

Evidemment cela pose problème puisque je gère les erreurs dans la feuille et que vous attendiez une gestion d'erreur dans l'userform.
En PJ une gestion d'erreur dans l'userform ( userform2/Cmd_Enregistrer_Click)
Je gère les erreurs sur les 4 données demandées.
J'ai rajouté un message d'alerte dans l'userform lui même.

 

[Théo gestin]

C'est vraiment top , ca marche parfaitement !!!!!!! Merci beaucoup sylvanu.