XL 2013 Insérer une ligne à chaque changement de date

[juj781]

Bonjour,

Après avoir recherché toute l'après midi je me tourne vers vous.
En effet je cherche ceci :
insérer une nouvelle ligne pour séparer chaque jour (cf la p.j). J'ai trouvé une solution mais le problème c'est que à chaque fois que j’exécute la macro, elle me rajoute des nouvelles lignes partout alors que je voudrais juste 1 lignes de séparation au maximum entre mes données. Pour remettre dans le contexte il s'agit d'un fichier de type base de données, il va être actualisé tous les jours, je ne veux donc pas me retrouver avec 365 lignes vides entre mon J et J+1 à la fin de l'année.

 

[_Thierry]

Bonsoir @juj781, le Forum

J'ajouterai une condition dans ta macro comme suit :

Sub test()
For n = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("A" & n) <> "" And Range("A" & n - 1) <> "" Then
            If Range("A" & n - 1) <> Range("A" & n) Then
              Rows(n).Insert
            End If
    End If
Next
End Sub

Bonne nuit/journée
@+Thierry

 

[juj781]

Bonsoir @juj781, le Forum

J'ajouterai une condition dans ta macro comme suit :

Sub test()
For n = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("A" & n) <> "" And Range("A" & n - 1) <> "" Then
            If Range("A" & n - 1) <> Range("A" & n) Then
              Rows(n).Insert
            End If
    End If
Next
End Sub

Bonne nuit/journée
@+Thierry

Bonjour,

Merci beaucoup, c'est exactement ce que je voulais !
Bonne journée !