Insertion de lignes

Résolu

mic6259 Messages postés 343 Date d'inscription Statut Membre Dernière intervention -
mic6259 Messages postés 343 Date d'inscription Statut Membre Dernière intervention - 4 août 2021 à 16:15

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

Afficher la suite

1 réponse

Réponse 1 / 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 343 Date d'inscription Statut Membre Dernière intervention 1
  
  Merci Le Pivert
  Super çà marche a merveille
  Cordialement
  
  0
2. mic6259 Messages postés 343 Date d'inscription Statut Membre Dernière intervention 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 343 Date d'inscription Statut Membre Dernière intervention
    
    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 343 Date d'inscription Statut Membre Dernière intervention 1 > cs_Le Pivert Messages postés 8437 Statut Contributeur
    
    Formidable bravo c'est exactement ce que je voulais
    Merci beaucoup
    
    0

Insertion de lignes

1 réponse

Discussions similaires

Newsletters