Macro insertion automatique de plusieurs lignes
Bonjour à tous
Je voudrais insérer automatiquement un nombre défini de ligne entre chaque ligne de ma feuille.
Entre la ligne3 et la ligne5, j'ai le texte ci-dessous.
Ligne3 3T3 3T3 3T3
Ligne4 A.B.B. A.B.B. A.B.B.
Lignz5 A.C.E.S. A.C.E.S. A.C.E.S.
Je voudrais insérer 11 lignes entre le ligne3 et la ligne 4, et entre la ligne 4 et la ligne 5 et ainsi de suite, jusqu'à la fin de mon document.
-- 08 Aoû 2010, 15:10 --
Par l'ajout d'une macro, ça devrait être possible.
J'aimerai créer une macro pour ajouter 11 lignes automatiquement entre chaque ligne de ma feuille en commençant par la colonne A et la ligne 3.
Et répéter cette macro à l'ensemble de mon document le but étant que chaque ligne de mon document soit espacée de 11 lignes.
Merci d'avance.
-- 08 Aoû 2010, 16:47 --
J'ai crée une macro
Sub insereligne()
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.EntireRow.Insert shift:=xlDown
End Sub
Seul problème, c'est que si je sélectionne la cellule A3 par exemple et que j'exécute cette macro, j'ai bien 11 lignes insérées en dessous de la cellule A3 mais aucune répétition, la macro s'arrête.
Je voudrais pouvoir répéter cette macro en sautant une ligne à chaque fois.
-- 08 Aoû 2010, 20:26 --
Personne à une idée?
Je suis un peu perdu.
Merci
Bonsoir,
Essaie ainsi :
Sub insere_11_lignes()
Dim I As Long
For I = [A65000].End(xlUp).Row To 4 Step -1
Rows(I).Resize(11).Insert
Next I
End SubBonne soirée