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

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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 Messages postés 7 Statut Membre
       
      lorsque je rajoute beaucoup de lignes supplémentaires cela ne vas pas jusqu'à la derniere renseigné
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      1. lolotopo Messages postés 7 Statut Membre > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        Merci bien c'est super et ça marche
        0

Discussions similaires

Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
Ça veut dire quoi "adresse ligne 1" sur les formulaires ?
ryadfa11 -
Wilfried -

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

27 réponses