Mezixx
XLDnaute Nouveau
Bonsoir à tous,
Je souhaite une macro pour insérer 26 lignes toute les lignes et cela en une seule fois...
j'ai donc trouvé la macro suivante :
Sub InsertRowsEveryTenthRow()
Dim X As Long, FirstBlankRow As Long, Increment As Long, U As Range
FirstBlankRow = 11
Increment = 10
For X = FirstBlankRow To ActiveSheet.UsedRange.Rows.Count Step Increment
If U Is Nothing Then
Set U = Rows(X)
Else
Set U = Union(U, Rows(X))
End If
Next
U.Insert
End Sub
1. J'ouvre le VB editor
2. Je sélectionne ma feuille en question
3. Je fais le "coller" de la macro
4. Je test et LA "Erreur de syntaxe" et la première ligne ("Sub InsertRowsEveryTenthRow()")est surlignée...
Je maitrise pas le VB Editor donc j'ai surement oublié un truc...merci de votre aide !
Je souhaite une macro pour insérer 26 lignes toute les lignes et cela en une seule fois...
j'ai donc trouvé la macro suivante :
Sub InsertRowsEveryTenthRow()
Dim X As Long, FirstBlankRow As Long, Increment As Long, U As Range
FirstBlankRow = 11
Increment = 10
For X = FirstBlankRow To ActiveSheet.UsedRange.Rows.Count Step Increment
If U Is Nothing Then
Set U = Rows(X)
Else
Set U = Union(U, Rows(X))
End If
Next
U.Insert
End Sub
1. J'ouvre le VB editor
2. Je sélectionne ma feuille en question
3. Je fais le "coller" de la macro
4. Je test et LA "Erreur de syntaxe" et la première ligne ("Sub InsertRowsEveryTenthRow()")est surlignée...
Je maitrise pas le VB Editor donc j'ai surement oublié un truc...merci de votre aide !