Insertion de lignes
Résolu/Fermé
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
-
4 août 2021 à 07:35
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 4 août 2021 à 16:15
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 4 août 2021 à 16:15
A voir également:
- Insertion de lignes
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
- Insertion sommaire word - Guide
- Site de vente en ligne particulier - Guide
- Touche insertion clavier - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
4 août 2021 à 15:12
4 août 2021 à 15:12
Bonjour,
comme ceci:
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
4 août 2021 à 15:29
Super çà marche a merveille
Cordialement
Modifié le 4 août 2021 à 15:50
https://www.cjoint.com/c/KHenJGzUm3l
4 août 2021 à 16:12
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 août 2021 à 16:15
Merci beaucoup