insere ligne une sur 2

[jeffe]

bonjour à tous , je cherche à inserer un ligne vide sur 2 soit par macro ou autre
merci de votre aide

 

[natorp]

Re : insere ligne une sur 2

Bjr jeffe

une macro de J. Boisgontier qui insère une ligne sous chaque ligne non vide :

Sub essai()
For i = [A65000].End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub

Cordialement, Gérard

 

[Gorfael]

Re : insere ligne une sur 2

Salut jeffe et le forum
Une autre proposition

Sub test()
Dim X As Long
Do
    X = X + 1
    If Cells(X, "A") <> "" Then
        Rows(X).Insert
        X = X + 1
    End If
Loop Until X >= Cells(Rows.Count, "A").End(xlUp).Row
End Sub

on lance une boucle (Do)
on incrémente X
si x n'est pas vide
on insère (insert) une ligne et on incrémente X, pour qu'il pointe toujours sur la même ligne (devenu par l'insertion X+1)
on continue la boucle (loop), sauf si (until) x égale ou dépasse la dernière ligne non-vide en A
A+

 

[jeffe]

Re : insere ligne une sur 2

merci à tous les 2 cela fonctionne nikel
bonne soirée à vous

 

[jeffe]

Re : insere ligne une sur 2

hello, je continue un peutit peut mon fichier, la macro de Gorfael fonctionne tres bien; je voudrais pouvoir sur chaque ligne insérée, y applique une police particulière (appelon la ma_police par ex) mais uniquement sur la colone "S"
merci

 

[Gorfael]

Re : insere ligne une sur 2

Salut jeffe et le forum

Sub test()
Dim X As Long
Do
    X = X + 1
    If Cells(X, "A") <> "" Then
        Rows(X).Insert
        Cells(X, "S").Font.Name = "Ma_police"
        X = X + 1
    Else
        Cells(X, "S").Font.Name = "Ma_police"
    End If
Loop Until X >= Cells(Rows.Count, "A").End(xlUp).Row
End Sub

Le else sert à la mettre dans les lignes vides déjà existantes
A+

 

[jeffe]

Re : insere ligne une sur 2

Merci Gorfael
je continue la semaine prochaine mais je sais pas si je prends la bonne piste pour refaire mon fichier?????????
bon WE à tous et toutes