Ajouter des lignes selon critère

Bonjour, j'ai une colonne avec toutes les heures de l'année 2023 (8760 heures et autant de lignes) sous le format 01/02/2023 00:00:00 puis 01/02/2023 01:00:00 ainsi de suite jusqu'à 01/02/2023 23:00:00, et ce pour chaque jour de l'année

je voudrai rajouter pour chaque jour, une ligne après 1h00 du matin et une ligne après 18h00 pour avoir les demie heures : 1h30 et 18h30.

Je joins un fichier contenant toutes ces heures

Merci par avance pour votre aide

Bonjour,

Voici le fichier avec le résultat normalement attendu.

J'ai mis les fonctions heure et mois pour tes colonnes B et C afin d'éviter le décalage que tu avais avant. As-tu fait tout ça à la main ?

Pour info, voici les quelques lignes de codes gribouillées qui m'ont permis de faire ceci :

Sub creer()
For i = 8768 To 9 Step -1
    If Hour(Cells(i, 4)) = 1 Or Hour(Cells(i, 4)) = 18 Then
        Range(Cells(i + 1, 4).Address).EntireRow.Insert
        Cells(i + 1, 4) = DateAdd("n", 30, Cells(i, 4))
    Else: End If
Next
End Sub

Bonjour à tous

Une autre solution : on met

la date de départ en D9

en D10 la formule à étirer en-dessous

=D9+SI(OU(MINUTE(D9)=30;ARRONDI(D9-ENT(D9);4)=ARRONDI(1/24;4);ARRONDI(D9-ENT(D9);4)=ARRONDI(8/24;4));1/48;1/24)

ou bien en tableau structuré

=SI(LIGNE()=9;DATE(2023;1;1);D9+SI(OU(MINUTE(D9)=30;ARRONDI(D9-ENT(D9);4)=ARRONDI(1/24;4);ARRONDI(D9-ENT(D9);4)=ARRONDI(8/24;4));1/48;1/24))

Bonjour,
Une proposition Power Query !?
Cdlt.

Merci beaucoup 21Formatic vous me sauvez la vie.

Et non je les ai pas faits à la main hhhh

Par contre si le tableau bouge de son emplacement la macro marche plus. Comment on peut faire pour l'adapter ?

Merci également à 78chris et à Jean-Eric.

Comme je ne suis pas une pro d'excel comme vous, je n'ai pas bien compris vos méthodes.

Pouvez vous les expliciter plus ? Merci

RE

Merci beaucoup 78chris pour ce 2ème envoi

Merci à tous pour avoir résolu ma requête, vous êtes très efficaces et vraiment aimables

Merci à toi du retour