Insertion de lignes

Résolu
mic6259 Messages postés 371 Statut Membre -  
mic6259 Messages postés 371 Statut Membre -
Bonjour,
Petite question.
Quelle est la formule pour insérer une ligne vide toutes les 4 lignes?
Merci beaucoup

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

comme ceci: 

Sub test()
Dim NoLig As Long
    For NoLig = 5 To Range("A" & Rows.Count).End(xlUp).Row Step 5
        Rows(NoLig & ":" & NoLig).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
End Sub


0
mic6259 Messages postés 371 Statut Membre 1
 
Merci Le Pivert
Super çà marche a merveille
Cordialement
0
mic6259 Messages postés 371 Statut Membre 1
 
Excuse moi mais serait-il possible d'enlever les bordures dans les lignes insérées tout en laissant les bordures haut et bas.

https://www.cjoint.com/c/KHenJGzUm3l
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > mic6259 Messages postés 371 Statut Membre
 
comme ceci: 

Sub test()
Dim NoLig As Long
    For NoLig = 5 To Range("A" & Rows.Count).End(xlUp).Row Step 5
        Rows(NoLig & ":" & NoLig).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Rows(NoLig & ":" & NoLig).Style = "Normal"
    Next
End Sub


@+
0
mic6259 Messages postés 371 Statut Membre 1 > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
Formidable bravo c'est exactement ce que je voulais
Merci beaucoup
0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses