Insertion ligne

Résolu/Fermé

lolotopo Messages postés 4 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015 - 13 janv. 2015 à 09:17
lolotopo Messages postés 4 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015 - 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

A voir également:

Insertion ligne
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide
Insertion liste déroulante excel - Guide
Partage de photos en ligne - Guide
Insertion signature word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
13 janv. 2015 à 09:33

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 mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015
13 janv. 2015 à 10:08

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

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
13 janv. 2015 à 10:51

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 mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015 > f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024
13 janv. 2015 à 13:55

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

Statut « en ligne » alors que non

Discussions similaires

Newsletters