Inserer deux lignes vides

Résolu
topotop Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Réponse 2 / 3
topotop Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
merci beaucoup CCM81,

ça fonctionne très bien....
0
Réponse 3 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
de rien,

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

bonne journée
0

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin
plagoutte -
MCLow -

8 réponses