Insérer des lignes via une macro ?
undieu7
Messages postés
2
Statut
Membre
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 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
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
-
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
