Discussion :

[arctica]

Bonjour à tous

J'ai un tableau qui importe des données par actualisation. Les lignes ne sont pas dans un ordre chronologique. A partir de la colonne D qui contient des dates je fais un tri du tableau . Le resultat est le suivant
17/09/2010
17/09/2010
17/09/2010
18/09/2010
18/09/2010
18/09/2010
18/09/2010
20/09/2010
20/09/2010 etc...
Ce que je voudrais c'est inserer une ligne à chaque fin de jour (entre le dernier 17 et le 1er 18 , entre le dernier 18 et le 1er 20 et ainsi de suite
grace à vous j'ai un peu évoluer mais cela je ne sais pas faire
pourriez vous m'aider ?
Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Lastlig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")   'adapter au nom de la feuille
    Lastlig = .Cells(Rows.Count, "D").End(xlUp).Row
    For i = Lastlig To 3 Step -1
        If .Range("D" & i - 1) <> .Range("D" & i) Then .Rows(i).Insert
    Next i
End With

[arctica]

Merci Beaucoup Mercatog pour ton aide