Insertion de lignes

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

1 réponse

  1.  cs_Le Pivert Contributeur
    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
    1. mic6259 Auteur
      Merci Le Pivert
      Super çà marche a merveille
      Cordialement
      0
    2. mic6259 Auteur
      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
    3. cs_Le Pivert Contributeur
      @mic6259comme 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
    4. mic6259 Auteur
      @cs_Le PivertFormidable bravo c'est exactement ce que je voulais
      Merci beaucoup
      0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen

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

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79

12 réponses