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

juj781

XLDnaute Nouveau
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.
 

Pièces jointes

  • ConsoEau.xlsm
    32.1 KB · Affichages: 17

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir @juj781, le Forum

J'ajouterai une condition dans ta macro comme suit :

VB:
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

XLDnaute Nouveau
Bonsoir @juj781, le Forum

J'ajouterai une condition dans ta macro comme suit :

VB:
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 !
 

Discussions similaires

Statistiques des forums

Discussions
313 230
Messages
2 096 412
Membres
106 606
dernier inscrit
Dufduf