Insérer x lignes

Bonjour à toutes et tous,

Vous m'aviez donné une macro il y a quelques années pour insérer facilement un nombre de lignes défini sur la longueur d'une feuille.

Par exemple ajouter 9 lignes vierges entre des valeurs à 10 mn pour pouvoir ajouter des valeurs à la minute.

La macro fonctionne très bien pour une minute, mais je ne parviens pas à la modifier pour insérer 9 lignes, ou 23 lignes etc...

Vous pourriez me donner quelques explications pour comprendre ce que je fais et ainsi pouvoir adapter la macro à mon travail ?

Merci d'avance et très bonne journée !

Sub ajout_1_lignes()

Application.StatusBar = "Traitement en cours"

Application.ScreenUpdating = False

Dim DernLig As Long, i As Long, y As Long

DernLig = Range("A65536").End(xlUp).Row

For i = DernLig To 1 Step -1

For y = 1 To 1 - 0

Cells(i, 1).EntireRow.Insert (xlShiftDown)

Next y

DernLig = Range("A65536").End(xlUp).Row

Next i

Application.ScreenUpdating = True

Application.StatusBar = False

End Sub

bonjour,

voir ceci

Sub ajout_n_lignes()
    Application.StatusBar = "Traitement en cours"
    Application.ScreenUpdating = False
    nbrligne = 10 'nbr de lignes à insérer
    Dim DernLig As Long, i As Long, y As Long
    DernLig = Range("A65536").End(xlUp).Row
    For i = DernLig To 1 Step -1
        For y = 1 To nbrligne
            Cells(i, 1).EntireRow.Insert (xlShiftDown)
        Next y
    Next i
    Application.ScreenUpdating = True
    Application.StatusBar = False
End Sub

Je suis désolé d'être certainement plus c.. que d'autres, mais en rectifiant par 3 (exemple) , il ne se passe rien sur ma feuille .xlsm

Sub ajout_n_lignes()

Application.StatusBar = "Traitement en cours"

Application.ScreenUpdating = False

nbrligne =3 'nbr de lignes à insérer

Dim DernLig As Long, i As Long, y As Long

DernLig = Range("A65536").End(xlUp).Row

For i = DernLig To 1 Step -1

For y = 1 To 3

Cells(i, 1).EntireRow.Insert (xlShiftDown)

Next y

Next i

Application.ScreenUpdating = True

Application.StatusBar = False

End Sub

Merci de vouloir m'aider, je joins une feuille dans laquelle je voudrais insérer 59 lignes.

Bonjour,

avant de lancer la macro, il faut sélectionner la feuille sur laquelle tu veux insérer les lignes.

pas de problème pour exécuter ta macro corrigée sur ton fichier exemple.

Merci, ça fonctionne super bien.

Désolé d'avoir été aussi nié... Je sélectionnais simplement la cellule A1 en attendant que ça se passe....

Passez une excellente semaine !!!