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

  • Votes
  • Date
  • Date décroissante
  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


    1. mic6259 Auteur
      Merci Le Pivert
      Super çà marche a merveille
      Cordialement
    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


      @+
    4. mic6259 Auteur
      @cs_Le PivertFormidable bravo c'est exactement ce que je voulais
      Merci beaucoup

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