Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut PST
Soit manuellement : Selection de la ligne 2 ou 3 Insertion/Lignes à faire 10 fois Soit par Macro avec l'instruction : Rows("2:2").Select ou Rows("3:3").Select Selection.Insert Shift:=xlDown A répeter 10 fois
Espérant avoir répondu à ton attente
Re NBligne
Comment inserer un certain nombre de lignes vides,sous toutes les lignes non vides de la colonne A
Ligne 1 Ajouter 10 lignes ligne 2 ajouter 10 lignes
etc...
merci
Salut PST
Soit manuellement :
Selection de la ligne 2 ou 3
Insertion/Lignes
à faire 10 fois
Soit par Macro avec l'instruction :
Rows("2:2").Select ou Rows("3:3").Select
Selection.Insert Shift:=xlDown
A répeter 10 fois
Espérant avoir répondu à ton attente
Re
NBligne
Comment inserer un certain nombre de lignes vides,sous toutes les lignes
non vides de la colonne A
Ligne 1
Ajouter 10 lignes
ligne 2
ajouter 10 lignes
Soit manuellement : Selection de la ligne 2 ou 3 Insertion/Lignes à faire 10 fois Soit par Macro avec l'instruction : Rows("2:2").Select ou Rows("3:3").Select Selection.Insert Shift:=xlDown A répeter 10 fois
Espérant avoir répondu à ton attente
Re NBligne
Comment inserer un certain nombre de lignes vides,sous toutes les lignes non vides de la colonne A
Ligne 1 Ajouter 10 lignes ligne 2 ajouter 10 lignes
Insère une 10 lignes vides après chaque ligne non vide
Sub InsertRows() Application.ScreenUpdating = False Dim numRows As Integer Dim r As Long r = Cells(Rows.Count, "A").End(xlUp).Row numRows = 10 For r = r To 1 Step -1 ActiveSheet.Rows(r + 1).Resize(numRows).Insert Next r Application.ScreenUpdating = True End Sub
Insère une ligne vide toutes les lignes non vides
here is something that might help. paste this code in a standard module a nd run it.
Sub InsertRows_2()
Dim r1 As Range Dim r2 As Range
Range("A6").Select Set r1 = Range("A6") 'assuming you have a header row Do While Not IsEmpty(r1) Set r2 = r1.Offset(4, 0) ActiveCell.EntireRow.Insert r1.Offset(4, 0).Select Set r1 = r2 Loop
Insère une 10 lignes vides après chaque ligne non vide
Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 10
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub
Insère une ligne vide toutes les lignes non vides
here is something that might help. paste this code in a standard module a nd
run it.
Sub InsertRows_2()
Dim r1 As Range
Dim r2 As Range
Range("A6").Select
Set r1 = Range("A6") 'assuming you have a header row
Do While Not IsEmpty(r1)
Set r2 = r1.Offset(4, 0)
ActiveCell.EntireRow.Insert
r1.Offset(4, 0).Select
Set r1 = r2
Loop
Insère une 10 lignes vides après chaque ligne non vide
Sub InsertRows() Application.ScreenUpdating = False Dim numRows As Integer Dim r As Long r = Cells(Rows.Count, "A").End(xlUp).Row numRows = 10 For r = r To 1 Step -1 ActiveSheet.Rows(r + 1).Resize(numRows).Insert Next r Application.ScreenUpdating = True End Sub
Insère une ligne vide toutes les lignes non vides
here is something that might help. paste this code in a standard module a nd run it.
Sub InsertRows_2()
Dim r1 As Range Dim r2 As Range
Range("A6").Select Set r1 = Range("A6") 'assuming you have a header row Do While Not IsEmpty(r1) Set r2 = r1.Offset(4, 0) ActiveCell.EntireRow.Insert r1.Offset(4, 0).Select Set r1 = r2 Loop