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

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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 Messages postés 371 Statut Membre 1
       
      Merci Le Pivert
      Super çà marche a merveille
      Cordialement
      0
    2. 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
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > 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
      2. 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

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

27 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses