[JJ/MM/AAAA hh:mn] Les modifier en fonction de

Question

Bonjour tout le monde je rencontre un certain soucis pour manipuler des cellules qui sont aux formats JJ/MM/AAAA hh:mn car juste la date ou juste l'heure ne me perturbe pas mais les 2 en même temps c'est une autre paire de manche. Je vous explique :

- Je possède de nombreuses données de ce type, exemple : "01/01/2016 06:14" "04/01/2016 08:20" "05/01/2016 22:58" ...

Je voudrai crée une autre colonne qui me met des condition à ces cellule par exemple de condition je voudrais intégrer que :

- Si l'heure est comprise entre 00:00 et 06:30 alors il m'affiche 06:30 l'exemple N°1 passerais a : "01/01/2016 06:30"
- Si l'heure dépasse 20:40 alors tu me l'affiche au lendemain 06:30 donc pour l'exemple N°3 il sera écrit : "06/01/2016 06:30"
-En même temps je voudrais que si la date est pointé un week-end il me la pointe au lundi 06:30

Actuellement je les fait 1 par 1 et répertorie les dates des week-end et jours fériés

J'ai commencer à jouer avec les décimales ( le format nombre ) mais je n'arrive pas pour les contraintes du soir ou les week-end que mais que sur la partie du matin

Vous trouverez un fichier excel simple que j'ai fait pour vous aider

Je tire mon chapeau à ceux qui relèverons le défis

Fichier :

14jouer-avec-le-format-jj-mm-aaaa-hh-mn.xlsx (10.18 Ko)

MFerrand · Answer

Je ne vois pas bien ce que tu veux ? Les heures mentionnées sont des valeurs saisies ! Pourquoi donc sont-elles saisies ainsi et pas autrement ? De la façon dont tu souhaites qu'elles le soient ...

eriiic · Answer

Si j'ai bien compris : =SI(MOD(B3;1)&lt;"6:30"+0;ENT(B3)+"6:30";SI(OU(NB.SI(Fériés;ENT(B3))&gt;0;JOURSEM(B3;2)&gt;5;MOD(B3;1)&gt;"20:40"+0);SERIE.JOUR.OUVRE.INTL(B3;1;1;Fériés)+"6:30";B3)) eric...

eriiic · Answer

Ouais. Et ça ne te plait pas ma proposition ...

MFerrand · Answer

Tout ça me paraît un peu nébuleux, tes jours de semaine indiqués ne correspondant pas aux dates...

En faisant abstraction de ces jours ! Traitement VBA de la ligne de date-heure pour les ajuster selon les spécifications (ce que j'en ai compris, abstraction faite des fériés, pour lesquels il faut préalablement en établir une liste...) pour produire deux lignes de résultats :

2e ligne = date-heure ajustée

1re ligne = jour de la semaine correspondant.

Sub AjusterDateHeure()
    Dim tDH(), d, h, js%, k%, i%
    With ActiveSheet
        k = .Range("B3").End(xlToRight).Column
        ReDim tDH(6 To 7, 2 To k)
        For i = 2 To k
            d = Int(.Cells(3, i)): h = .Cells(3, i) - d
            If h < 39 / 144 Then h = 39 / 144
            If h > 124 / 144 Then
                d = d + 1: h = 39 / 144
            End If
            js = Weekday(d) Mod 7
            If js < 2 Then d = d + 2 - js
            tDH(7, i) = d + h
            tDH(6, i) = StrConv(Format(d, "dddd"), vbProperCase)
        Next i
        With .Range("B6").Resize(2, k - 1)
            .Value = tDH
            .NumberFormat = "dd/mm/yyyy hh:mm"
        End With
    End With
End Sub

10kenjix-jouer-avec-le-format-jj-mm-aaaa-hh-mn-1.xlsm (21.25 Ko)

eriiic · Answer

Ca alors : =SI(OU(NB.SI(Fériés;ENT(B3))&gt;0;JOURSEM(B3;2)&gt;5;MOD(B3;1)&gt;"20:40"+0);SERIE.JOUR.OUVRE.INTL(B3;1;1;Fériés)+"6:30";SI(MOD(B3;1)&lt;"6:30"+0;ENT(B3)+"6:30";B3))...

MFerrand · Answer

Inexact Tu dis n'importe quoi ! Il y avait juste un petit détail, elle ne ramenait pas l'heure à 6h30 le lundi, je viens de le rectifier. Version rectifiée : Sub AjusterDateHeure() Dim tDH(), d, h, js%, k%, i% With ActiveSheet k = .Range("B3").End(xlToRight).Column ReDim tDH(6 To 7, 2 To k) For i = 2 To k d = Int(.Cells(3, i)): h = .Cells(3, i) - d If h &lt; 39 / 144 Then h = 39 / 144 If h &gt; 124 / 144 Then d = d + 1: h = 39 / 144 End If js = Weekday(d) Mod 7 If js &lt; 2 Then d = d + 2 - js: h = 39 / 144 End If tDH(7, i) = d + h tDH(6, i) = StrConv(Format(d, "dddd"), vbProperCase) Next i With .Range("B6").Resize(2, k - 1) .Value = tDH .NumberFormat = "dd/mm/yyyy hh:mm" End With End With End Sub rectification surlignée Voilà les résultats fournis par la macro sur ton échantillon : Et rappel de tes spécifications : Viens donc me dire en quoi la macro ne les respecte pas ...

eriiic · Answer

Ils sont dans la feuille... Fériés...

MFerrand · Answer

Une macro fera ce qu'on lui demande : en ligne, en colonne....

Si dans ton modèle tu présentes une plage de résultats en ligne, on va fournir une macro qui positionnera les résultats dans la plage indiquée !

Pour les avoir autrement, tu modifies ton modèle selon ce que tu souhaites obtenir !

Pour la prise en compte des jours fériés, tu fais d'abord l'effort d'inclure les jours fériés dans ton modèle !