Tableau retard de livraison

[Ronaldi]

Bonsoir a tous,

Je cherche a effectuer un tableau de livraison calculant automatiquement la différence entre les heures de livraison prévu et les heures de livraison réel, avec les mentions suivantes :

Pour les retards : RETARD + ( la différences de livraison jours et heures)
Pour les livraison effectuer a l'heure : OK
Pour les livraisons effectué en avances : AVANCE + ( la différences de livraison jours et heures)

Je vous met un imprim écran en exemple ( même si ce n'est pas exactement le même)

Merci d'avance.

 

[JBARBE]

Re : Tableau retard de livraison

Bonjour à tous,

Je pense qu'une MFC ( mise en forme conditionnelle) est nécessaire pour cette demande avec des couleurs attribuées ( voir fichiers )

bonne journée

 

[littlefish]

Re : Tableau retard de livraison

Bonjour,

Tu peux faire une mise en forme conditionnelle suivant l'importance du delta heures prévues et heures réalisées, et y affecter un code couleur, ou symbole.
Dans un premier temps en E2 tu peux mettre cela:
=SI(A2-B2=0;"OK";SI(A2-B2>0;"AVANCE";"RETARD"))
A2 (dh réalisation prévue)
B2 (dh livraison prévue)
Dans un deuxième temps en F2 tu peux mettre cela :
=SI(C2-D2=0;"OK";SI(C2-D2>0;"AVANCE";"RETARD"))
C2 (dh réalisation réelle)
DZ (dh livraision réelle)

Ensuite un code couleur suivant le texte, genre appliquer une mise en forme uniquement aux celllules qui contiennent
texte spécifique contenant AVANCE et tu choisis dans Format les couleurs, bordures, police...
Idem pour les autres mise en forme de texte pour Retard et OK;

Voila une piste qui peut t'aider.
Bonne journée.
Alexandre
Bienvenue sur le site Maîtrise-Excel.com - Maitrise-excel

 

[JBARBE]

Re : Tableau retard de livraison

Autre solution qui évite la MFC et procède de même avec des couleurs en créant cette macro dans la même feuille que la saisie ( bien respecter les colonnes ) la macro ici s'exécute lors de la saisie colonne H :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H2:H65536")) Is Nothing Then
   If Target > Target.Offset(0, -2) Then ' COLONNE F
      Target.Offset(0, 1).Interior.ColorIndex = 3 ' COLONNE I
   ElseIf Target < Target.Offset(0, -2) Then ' COLONNE F
      Target.Offset(0, 1).Interior.ColorIndex = 4 ' COLONNE I
   ElseIf Target = Target.Offset(0, -2) Then ' COLONNE F
      Target.Offset(0, 1).Interior.ColorIndex = 44 ' COLONNE I
   Else
      Target.Offset(0, 1).Interior.ColorIndex = xlNone ' COLONNE I
   End If
End If
End Sub

 

[Ronaldi]

Re : Tableau retard de livraison

Merci beaucoup, vous êtes au top !
je ne m'attendais pas a une réponse aussi rapide 🙂.

J’espère que je ne vous en demande pas trop, mais serait t'il possible d'effectuer
par la même occasion un pourcentage pour le nombre de retard et d'annulation.

Désolé de vous en demander autant encore merci.

 

[littlefish]

Re : Tableau retard de livraison

Bonjour Ronaldi;

Regarde ce fichier cela devrait répondre à ton besoin.
Bonne journée

Cordialement,
Alexandre
Bienvenue sur le site Maîtrise-Excel.com - Maitrise-excel

 

[JBARBE]

Re : Tableau retard de livraison

J'ai éliminé les formules pour les remplacées par la macro modifiée !

Le calcul des % se fait automatiquement !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H2:H65536")) Is Nothing Then
   If Target > Target.Offset(0, -2) Then ' COLONNE F
      Target.Offset(0, 1).Interior.ColorIndex = 3 ' COLONNE I
      Target.Offset(0, 1) = Target - Target.Offset(0, -2)
      Target.Offset(0, 3) = 1 ' COLONNE K
   ElseIf Target < Target.Offset(0, -2) Then ' COLONNE F
   Target.Offset(0, 1) = Target.Offset(0, -2) - Target ' COLONNE I
      Target.Offset(0, 1).Interior.ColorIndex = 4 ' COLONNE I
   ElseIf Target = Target.Offset(0, -2) Then ' COLONNE F
      Target.Offset(0, 1).Interior.ColorIndex = 44 ' COLONNE I
   Else
      Target.Offset(0, 1).Interior.ColorIndex = xlNone ' COLONNE I
   End If
End If
End Sub

bonne journée !

 

[Ronaldi]

Re : Tableau retard de livraison

Merci pour tous 🙂

 

[Ronaldi]

Re : Tableau retard de livraison

Bonsoir, je fait un comme back. j,ai juste une petite question. Comment avez vous fait pour attribuer des couleur. En cas de retard, ou avance ? merci