Insertion ligne

Résolu
lolotopo -  
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

1 réponse

  1.  f894009
    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
    1. lolotopo Auteur
      lorsque je rajoute beaucoup de lignes supplémentaires cela ne vas pas jusqu'à la derniere renseigné
      0
    2. f894009
      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
    3. lolotopo Auteur
      @f894009Merci bien c'est super et ça marche
      0

Discussions similaires

Ça veut dire quoi "adresse ligne 1" sur les formulaires ?
ryadfa11

17 réponses
Excel : afficher toutes les lignes et colonnes masquées
livlarsen

27 réponses