Insérer des lignes via une macro ?

undieu7 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, je voudrais savoir s'il existe une macro pour définir le nombres de lignes vides que je veux avoir entre chaque ligne qui contient une donnée

ex: je voudrais avoir 6 lignes entre chaque
Colonne A
1
2
3
4
5

Par la suite, avec cette macro, quels sont paramètres exacts que je dois modifier pour l'appliquer à une autre colonne précise et/ou le nombres de lignes que je voudrais avoir entre chaque ( ex: 1-2-3 etc)

Merci de votre attention

1 réponse

Réponse 1 / 1
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonsoir

Essaie la macro suivante : 
Sub insertions()
derlign = 13 'derniere ligne avec une valeur dans la colonne
' on peut aussi à la place de la ligne précédente déterminer la dernière cellule non vide d'une colonne avec les 2 instructions suivantes par exemple pour la colonne 3:
'Dim derlign As Long
'derlign = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
deuxlign = 2 'deuxieme ligne avec une valeur dans la colonne
pas = 3 ' nombre de lignes à insérer
For n = derlign To deuxlign Step -1
For p = 1 To pas
Rows(n & ":" & n).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
Next
End Sub

Cdlmnt
Via
0