Automatiser l'insertion de 4 lignes entre chaque ligne

[Fab31]

Bonjour tout le monde,

voilà, j'ai un souci de programmation. J'ai une base de donnée qui dispose de 1750 lignes :

Ligne 1
Ligne 2
Ligne 3
Ligne 4
Ligne 1750

Je voudrais connaître le processus pour pouvoir intégrer entre chacune de ces lignes, 4 autres lignes :

Ligne 1
Sous-ligne 1
Sous-ligne 2
Sous-ligne 3
Sous-ligne 4
Ligne 2
Sous-ligne 1
Sous-ligne 2
Sous-ligne 3
Sous-ligne 4
Ligne 3
Sous-ligne 1
Sous-ligne 2
Sous-ligne 3
Sous-ligne 4
Ligne 4
Sous-ligne 1
Sous-ligne 2
Sous-ligne 3
Sous-ligne 4
Ligne 1750
Sous-ligne 1
Sous-ligne 2
Sous-ligne 3
Sous-ligne 4

Je suis vraiment débutant, je ne sais pas comment il faut faire. On m'a parlé de macro. Bref, il faut vraiment, si possible, me donner le processus à suivre. Je vous remercie tous.

Cordialement.

Fabien

[spyderpaint]

salut fabien

alors je t'ai fait une macro pour ton probleme, il faut que tu la colle dans visual basic

pour cela il te faut l'onglet développeur si tu est sur 2007

clic sur visual basic

sur la fenetre projet clic droit inserer un module
double clic sur le module1 et colle le code ci dessus

ensuite ferme visual basic et retourne sur excel
ATTENTION!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ne connaisssant pas ton fichier j'ai fait une macro type
donc il faut absolument que tu te mets sur ta ligne 1 ou tu veux mettre 4 ligne en dessous et de préférence dans la colonne A

ensuite lance la macro

elle va te creer 4 ligne entre tes lignes
voila , pour plus de sécurité fais une sauvegarde car moi je sais que ma macro fonctionne mais c'est a toi de ne pas ta planté de case

sinon tu n'a pas demandé les hauteur de ligne car on aurai peut les programmer si ca t'arrange ca evitera de le faire a ala main

voila tiens nous au courant

Code: Tout sélectionner

Sub Macro2()
'
' Macro2 Macro
'

'
For i = 1 To 1750
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(4, 0).Range("A1").Select
    Next
   
End Sub