Saut de ligne lorsque date non consécutive

Ce que j'aimerais réaliser, c'est un saut de ligne automatique à chaque fois que la date n'est plus consécutive.

Dans mon fichier en feuille 2, j'ai sauté des lignes manuellement.

Est-ce possible de le faire automatiquement avec du VBA ?

Merci à vous

Bonjour,

Peut-être comme ceci :

Sub InsereLigne()
Dim i As Long
    With Sheets("Feuil1")    ' A ADAPTER LE NOM DE LA FEUILLE CONCERNEE
        i = 2                ' A ADAPTER : 1ère LIGNE
        Do While .Range("A" & i + 1) <> vbNullString
            If Format(.Range("A" & i).Value, "dd/mm/yyyy") <> Format(.Range("A" & i + 1).Value, "dd/mm/yyyy") Then
                .Range("A" & i + 1).EntireRow.Insert
                i = i + 1
            End If
            i = i + 1
        Loop
    End With
End Sub

Bonjour,

Merci beaucoup ! Cela marche parfaitement

Cependant, il y a un saut de ligne lorsque qu'on passe de 23h30 à 00h.

Comment modifier le code pour qu'il n'y ait pas de sauts de ligne entre 23h30 et 00h ? (car c'est consécutif)

Bonjour,

Comment modifier le code pour qu'il n'y ait pas de sauts de ligne entre 23h30 et 00h ? (car c'est consécutif)

Redéfini donc ta demande car, dans le fichier joint, Feuil2, tu voulais un saut de ligne entre 09/07/2020 23:30 et 10/07/2020 00:00

Dis-nous ce que tu veux réellement...

EDIT : de ce que j'ai cru comprendre :

Sub InsereLigne()
Dim i As Long
    With Sheets("Feuil1")    ' A ADAPTER LE NOM DE LA FEUILLE CONCERNEE
        i = 2                ' A ADAPTER : 1ère LIGNE
        Do While .Range("A" & i + 1) <> vbNullString
            If Format(.Range("A" & i + 1).Value - .Range("A" & i).Value, "hh:mm") <> "00:30" Then
                .Range("A" & i + 1).EntireRow.Insert
                i = i + 1
            End If
            i = i + 1
        Loop
    End With
End Sub

J'ai réussi à adapter le code au fait.

Désole, je n'ai vraiment pas été très clair

Je te remercie en tout cas pour m'avoir accorder de ton temps !

C'est un excellent forum pour le partage