Insertions de lignes

Fermé

Akeuuh - 4 juil. 2012 à 09:00
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 4 juil. 2012 à 11:51

Bonjour,

Je voulais savoir s'il était possible de rajouter sur excel par exemple 4 lignes toutes les deux lignes? C'est à dire espacer les insertions de lignes.

A voir également:

Insertions de lignes
Partage de photos en ligne - Guide
Site de vente en ligne particulier - Guide
Excel trier par ordre alphabétique en gardant les lignes - Guide
Écrire plusieurs lignes dans une cellule excel mac - Guide
Excel afficher toutes les lignes masquées ✓ - Forum Excel

1 réponse

Réponse 1 / 1

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 154
4 juil. 2012 à 11:51

Bonjour,

Oui c'est possible :

Sub Macro1()

Dim a As Integer

For a = 1000 To 1 Step -1

    Rows(a & ":" & a).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
a = a - 1
Next
End Sub

à la place de 1000, tu met la ligne (la ligne la plus situé vers le bas de ton fichier) où tu veux que l'insertion commence.

Discussions similaires

remettre toutes les colonnes et les lignes masquées

EXCEL : Supprimer des lignes vides à la fin

Probleme d'affichage de ligne dans Excel

Impossible d'afficher ou de masquer lignes et colonne excel 2007

Excel ne filtre pas les derniere donnée ecrite