Insertion ligne

Résolu

lolotopo Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
lolotopo Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 13 janv. 2015 à 13:55

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

Afficher la suite

A voir également:

Insertion ligne
Partager photos en ligne - Guide
Mètre en ligne - Guide
Insertion sommaire word - Guide
Insertion liste déroulante excel - Guide
Insertion signature word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

lolotopo Messages postés 4 Date d'inscription Statut Membre Dernière intervention

lorsque je rajoute beaucoup de lignes supplémentaires cela ne vas pas jusqu'à la derniere renseigné

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

lolotopo Messages postés 4 Date d'inscription Statut Membre Dernière intervention > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Merci bien c'est super et ça marche

Discussions similaires

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

On me voit connecté sur facebook alors que je n'y suis pas

Votre réponse

Discussions similaires