Insertion ligne

Résolu
lolotopo Messages postés 7 Statut Membre -  
lolotopo Messages postés 7 Statut Membre -
Il me faudrait une macro qui insert des lignes comme ds l'expl.
Car les éléments que j'aurais à traiter feront environ 3000 lignes.

origine
10 478164.021 6560607.931
10 478162.652 6560608.031
20 478161.251 6560608.185
20 478158.077 6560608.39
30 478156.675 6560608.53
30 478156.676 6560608.531
40 478155.323 6560608.615
40 478157.049 6560628.51
à faire
10 478164.021 6560607.931

10 478162.652 6560608.031
20 478161.251 6560608.185

20 478158.077 6560608.39
30 478156.675 6560608.53

30 478156.676 6560608.531
40 478155.323 6560608.615

40 478157.049 6560628.51
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

code a mettre dans un module. Adaptez le nom de feuille et la colonne a votre fichier 

Sub insert_lig()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For x = 2 To derlig + 3 Step 3
            Rows(x).Insert Shift:=xlDown
        Next x
    End With
End Sub
0
lolotopo Messages postés 7 Statut Membre
 
lorsque je rajoute beaucoup de lignes supplémentaires cela ne vas pas jusqu'à la derniere renseigné
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Re,

ce code doit allez 

Sub insert_lig()
    With Worksheets("feuil1")
        x = 2
        Do While .Range("A" & x) <> ""
            .Rows(x).Insert Shift:=xlDown
            x = x + 3
        Loop
    End With
End Sub
0
lolotopo Messages postés 7 Statut Membre > f894009 Messages postés 17413 Statut Membre
 
Merci bien c'est super et ça marche
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses