Insertion de lignes

Résolu

mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention -
mic6259 Messages postés 342 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

A voir également:

Insertion de lignes
Touche insertion clavier - Guide
Insertion sommaire word - Guide
Partage de photos en ligne - Guide
Insertion filigrane word - Guide
Insertion liste déroulante excel - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 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

mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention 1

Merci Le Pivert
Super çà marche a merveille
Cordialement

mic6259 Messages postés 342 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

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729 > mic6259 Messages postés 342 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

mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention 1 > cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention

Formidable bravo c'est exactement ce que je voulais
Merci beaucoup

Discussions similaires

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Probleme d'affichage de ligne dans Excel

Votre réponse

Discussions similaires