MFC chevauchement plages horaires

job75

XLDnaute Barbatruc

• 30 Septembre 2013

• #16

Re : MFC chevauchement plages horaires

Re,

Si l'on craint des inversions d'heures on peut les signaler par cette condition (verte) de la MFC :

Code:

=DECALER(D1;;MOD(COLONNES($D1:D1);2)-1)/DECALER(D1;;MOD(COLONNES($D1:D1);2))>1

Elle doit être prioritaire par rapport à l'autre condition.

Fichier (6).

A+

 

Pièces jointes

• MFC chevauchement plages horaires(6).xls

  79 KB · Affichages: 47

Vote positif 0 Vote négatif

K

Kiriko

XLDnaute Occasionnel

• 30 Septembre 2013

• #17

Re : MFC chevauchement plages horaires

Bonjour à tous,
Bonjour job75!
Merci beaucoup, cela fonctionne parfaitement !!!
Bonne journée !

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #18

Le forum,
Bonjour,
Le fichier et le code vba, fournis ici par JOB75 en #16, m'intéressent.
Dans le fichier ci-joint, les codes vba peuvent-ils être simplifiés pour résoudre le pavé [D31:F47] ?
Merci d'avance.
Webperegrino

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Juillet 2024

• #19

Bonjour,

Webperegrino à dit:

Dans le fichier ci-joint

Cliquez pour agrandir...

Mais où est-il donc ???

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #20

Le Forum,
Glupps, TooFatBoy.
Décidément...
Je joins la version que j'aimerais appliquer sur le pavé [D31:F47], dans cette mouture.
J'appliquerais ensuite sur une plus quantité de lignes ,dans ces colonnes concernées.
Webperegrino

 

Pièces jointes

• Chevauchement plages horaires(6).xlsm

  29.5 KB · Affichages: 2

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Juillet 2024

• #21

Webperegrino à dit:

J'appliquerais ensuite sur une plus quantité de lignes ,dans ces colonnes concernées.

Cliquez pour agrandir...

"grande", probablement ?

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #22

Oui, voir cette version (7) en page Feuille 1.
La colonne 1 contiendrait des jours, et les lignes seraient ordonnées selon les deux premières colonnes (Jour, Début) pour comparer les lignes pour détection des chevauchements.

 

Pièces jointes

• Chevauchement plages horaires(7).xlsm

  35 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2024

• #23

Bonjour Webperegrino, TooFatBoy, le forum,

Il faut revoir le VBA car il ne s'agit pas des mêmes plages.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2024

• #24

Dans l'exemple fourni chaque jour occupe 6 lignes, est-ce que ce sera toujours le cas ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2024

• #25

Encore une chose sur le fichier du post #22.

Il me semble que le rouge devrait être réservé au cas où il y a chevauchement total.

Dans ce cas les plages B6:C6 et B10:C10 devraient être en orange non ?

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #26

Le Forum,
Bonjour Job75,
Mon vrai fichier devra traiter le pavé [B9:F100]

En colonne B : les jours sont déjà rangés dans l'ordre croissant, en premier ordre
En colonne F : l'horaire du style 10:30 - 15:30
La colonne F est aussi déjà rangée en deuxième ordre, en croissant

Seules les colonnes B et F se coloriseraient :
- en rouge pour de la vraie bilocation, ou du chevauchement total sur un des horaires
- en orange pour du chevauchement partiel

 

Dernière édition: 9 Juillet 2024

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2024

• #27

Vous ne répondez pas aux questions de mon post #25.

Alors débrouillez-vous avec cette fonction :

VB:

Function MFC(dat As Range, deb#, fin#) As String
Dim c As Range, d, f
deb = Round(deb, 6): fin = Round(fin, 6)
For Each c In dat.Parent.Range("A6:A180") 'à adapter
    If c = dat And c.Row <> dat.Row Then
        d = Round(c(1, 2), 6): f = Round(c(1, 3), 6)
        If d <= deb And f >= fin Then MFC = "R": Exit Function
        If d >= deb And d <= fin Or f >= deb And f <= fin Then MFC = "O"
    End If
Next c
End Function

 

Pièces jointes

• Chevauchement plages horaires(7).xlsm

  35 KB · Affichages: 1

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #28

Le Forum,
Bonsoir JOB75,
Merci pour votre dernière fonction que je vais essayer d'adapter à mon fichier.

Ayant été fort mandaté pour couper à l'égoïne et à la pince coupante un vieux pommier, j'ai complètement shunté votre #25.

Dans ma vraie application je vais essayer de :
1- mettre, par exemple en Rouge, les cellules consécutives qui ont un jour identique dans la colonne B et celles de la colonne F ( heure début - heure fin identiques, exemple 09:00 - 11:00) qui ont une "bilocation parfaite" (le même jour + le même horaire) et aussi quand la cellule précédente englobe totalement l'horaire de la cellule suivante ce jour-là, ainsi que lorsque la cellule précédente est englobée totalement par la plage horaire de la cellule suivante, toujours ce jour-là pour les deux cellules analysées.

2 - quant aux chevauchements partiels, en début, ou à la fin des horaires de deux cellules consécutives, la coloration dans colonne B et colonne F passerait en couleur Orange par exemple.

Merci pour votre réponse #27.
Webperegrino

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2024

• #29

Bon si l'on veut que la plage "englobante" soit aussi colorée en rouge :

VB:

Function MFC(dat As Range, deb#, fin#) As String
Dim c As Range, d, f
deb = Round(deb, 6): fin = Round(fin, 6)
For Each c In dat.Parent.Range("A6:A180") 'à adapter
    If c = dat And c.Row <> dat.Row Then
        d = Round(c(1, 2), 6): f = Round(c(1, 3), 6)
        If d <= deb And f >= fin Or d >= deb And f <= fin Then MFC = "R": Exit Function
        If d >= deb And d <= fin Or f >= deb And f <= fin Then MFC = "O"
    End If
Next c
End Function

 

Pièces jointes

• Chevauchement plages horaires(8).xlsm

  34.8 KB · Affichages: 4

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 9 Juillet 2024

• #30

Je ne suis pas très loin de trouver avec dans la colonne F9:F180 :
=ET(B10=B9;$B$10<>"")*(LIGNE()>1)*(ET(F10=F9;F10<>"";F10=F9))+(LIGNE()>1)*(ET(F9=F10;F10<>"";F9=F10))
J'ai dû louper quelque chose.
Je regarde ensuite le fichier que vous avez mis en #29...

 

Vote positif 0 Vote négatif