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

juj781 · 3 Juillet 2020

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 · 4 Juillet 2020

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 · 4 Juillet 2020

_Thierry à dit:
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 !

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

juj781

XLDnaute Nouveau

Pièces jointes

_Thierry

XLDnaute Barbatruc

juj781

XLDnaute Nouveau

Discussions similaires