Insérer des lignes via une macro ? Fermé

Question

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

via55 · Answer

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

Insérer des lignes via une macro ?

1 réponse

Discussions similaires