Inserer deux lignes vides

Résolu/Fermé

topotop Messages postés 3 Date d'inscription samedi 20 octobre 2012 Statut Membre Dernière intervention 10 décembre 2012 - 20 oct. 2012 à 13:30
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 20 oct. 2012 à 16:13

Bonjour,

auriez vous s'il vous plait une marco qui m'aidera a insirer deux lignes vides entre chaque 4 cellules sans modifier celles ci.
exemple:
A1
A2
A3
A4
ligne vide
ligne vide
A1
A2
A3
A4
ligne vide
ligne vide

et ainsi de suite...

merci par avance..

A voir également:

Inserer deux lignes vides
Insérer signature word - Guide
Insérer liste déroulante excel - Guide
Deux comptes whatsapp - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer sommaire word - Guide

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 20/10/2012 à 14:53

bonjour

Const co = "A" 

Public Sub insere2L() 
Dim li As Long, lifin As Long, rl As Long 
lifin = ActiveSheet.Range(co & Rows.Count).End(xlUp).Row 
rl = lifin Mod 4 
For li = lifin - rl + 1 To 5 Step -4 
  Rows(li).Insert shift:=xlDown 
  Rows(li).Insert shift:=xlDown 
Next li 
End Sub

et si ton tableau ne commence pas à la ligne 1

Const co = "A"
Const lideb = 2

Public Sub insere2L()
Dim li As Long, lifin As Long, rl As Long
lifin = ActiveSheet.Range(co & Rows.Count).End(xlUp).Row
rl = lifin Mod 4
For li = lifin - lideb - rl To 5 Step -4
  Rows(li).Insert shift:=xlDown
  Rows(li).Insert shift:=xlDown
Next li
End Sub

bonne suite

Réponse 2 / 3

topotop Messages postés 3 Date d'inscription samedi 20 octobre 2012 Statut Membre Dernière intervention 10 décembre 2012
20 oct. 2012 à 15:03

merci beaucoup CCM81,

ça fonctionne très bien....

Réponse 3 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
20 oct. 2012 à 16:13

de rien,

peux tu mettre le problème à résolu (en haut de ton message)

bonne journée

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

2 comptes facebook avec même mail et même nom

EXCEL : Supprimer des lignes vides à la fin

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters