Insertion de ligne avec VBA

Version imprimable

20/09/2007, 12h31
ANTMA

Insertion de ligne avec VBA

Bonjour,

j'ai un petit souci je voudrais inserer des lignes dans une feuille Excel déjà remplie toutes les 7 lignes....

je vous explique j'ai deux feuilles excel dans mon classeur et je souhaite rapatrié les données d'une feuille dans mon autre feuille (qui est déjà rempli de donné) mais les insérer dans de nouvelle ligne et cela toutes les 7 lignes

Par avance merci du coup de main
20/09/2007, 14h30
ANTMA

En gros je dois rajouter une ligne de ma feuille 2 dans ma feuille 1 toutes les 7 lignes

Les lignes de ma feuille 2 que je rapatrie ne sont pas les même à chaque fois

Exple
Feuille 2 ligne 1 colonne 3 rapatrié dans feuille 1 ligne 7 colonne 9
Feuille 2 ligne 2 colonne 3 rapatrié dans feuille 1 ligne 14 colonne 9 (+7 lignes)
etc...

:oops::cry::oops::cry:

Aidez moi svp ......
20/09/2007, 15h16
melouille56

Salut

J'ai solution à ton problème mais va falloir être plus claire.

Ce sont des lignes entières que tu veux insérer ? ou bien ce sont des cellules entières que tu veux insérer ? ou bien est-ce que ce sont juste les valeurs de ces cellules de la feuil2 que tu veux obtenir dans la feuil1, sans insérer ni cellule ni colonne ni ligne mais juste en récupérant les données?

Après, ca sera pas difficile mais faut au moins qu'on sache ca.

a+
Mél
20/09/2007, 15h20
ANTMA

En fait se sont les valeurs des cellules de ma feuille 2 que je dois inserrer dans ma feuille 1 toutes les 7 lignes mais pour se faire je dois rajouter une ligne toute les 7 lignes

Exple
Feuille 2 cellule de la ligne 1 colonne 3 rapatrié dans feuille 1 Cellule de nouvelle ligne 7 colonne 9
Feuille 2 ligne 2 colonne 3 rapatrié dans feuille 1 ligne 14 colonne 9 (+7 lignes)
etc...

Pour être plus claire c'est l'ensemble d'une colonne de ma feuille 2 (49 cellules de ma colonne ) que je dois rapatrier dans la colonne de ma feuille 1 sans écraser les données déjà existante donc en insérant des lignes....et ceux toutes les 7 lignes de ma colonne de mon fichier...

Alors ca ca insère une ligne entière:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Feuil2VersFeuil1() Dim i As Integer, j As Integer j = 7 i = 1 While Not IsEmpty(Worksheets("Feuil2").Cells(i, 3)) Worksheets("Feuil1").Rows(j).Insert Shift:=xlDown Worksheets("Feuil1").Cells(j, 9) = Worksheets("Feuil2").Cells(i, 3).Value j = j + 7 i = i + 1 Wend End Sub
Après j'ai pas très bien compris si c'est une cellule que tu veux insérer ou une ligne.

Dis moi ce que ca donne

20/09/2007, 15h54
ANTMA

En fait c sa mais la il me rentre toutes les 7 lignes une cellule apres l'autre les cellules de ma colonne de ma feuille 2 alors que je veux que sa soit l'ensemble de ma colonne de ma feuille 2 qui soit insérer toutes les 7 lignes.

Merci bocoup
20/09/2007, 16h00
melouille56

Comprends pas.

Ca veut dire que tu as 49 cellules les unes en dessous des autres dans te feuil2 et que tu veux que ces 49 cellules soient insérées toutes ensembles a chaque 7ème ligne dans ta feuil1 ?

T'auras donc les 7 premieres lignes de ta feuil1 colonne 9 les valeurs de la feuil1, puis les 49 lignes suivantes seront celles de la feuil2, puis les 7 suivantes les données originales de la feuil1, puis les 49 lignes suivantes les mm que les 49 précédentes et ainsi de suite ?
20/09/2007, 16h06
ANTMA

oui c sa et il faut que sa se répète jusquà la fin de ma feuille 1 (jusquà qu'il nyest plus de données - jusqu'à cellule vide....)

Fais ca et dis moi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Feuil2VersFeuil1()
 
Dim i As Integer, j As Integer
Dim plage As Range
 
j = 7
i = 1
 
Set plage = Range(Worksheets("Feuil2").Cells(1, 3), Worksheets("Feuil2").Cells(49, 3))
 
 
While Not IsEmpty(Worksheets("Feuil2").Cells(i, 3))
    Worksheets("Feuil1").Rows(j & ":" & j + 48).Insert Shift:=xlDown
    plage.Copy
    Worksheets("Feuil1").Cells(j, 9).PasteSpecial (xlPasteValues)
    j = j + 56
    i = i + 1
Wend
 
End Sub

Non pardon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Feuil2VersFeuil1()
 
Dim i As Integer, j As Integer
Dim plage As Range
 
j = 7
i = 1
 
Set plage = Range(Worksheets("Feuil2").Cells(1, 3), Worksheets("Feuil2").Cells(49, 3))
 
 
While Not IsEmpty(Worksheets("Feuil1").Cells(j, 9))
    Worksheets("Feuil1").Rows(j & ":" & j + 48).Insert Shift:=xlDown
    plage.Copy
    Worksheets("Feuil1").Cells(j, 9).PasteSpecial (xlPasteValues)
    j = j + 56
    i = i + 1
Wend
 
End Sub

Ca ne marche pas il met

La méthode Range de l'objet worksheet a échoué

Voilà le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Feuil2VersFeuil1()
 
Dim i As Integer, j As Integer
Dim plage As Range
 
j = 7
i = 1
 
Set plage = Range(Worksheets("autres codes").Cells(1, 3), Worksheets("autres codes").Cells(45, 3))
 
 
While Not IsEmpty(Worksheets("Sheet 1").Cells(j, 9))
    Worksheets("Sheet 1").Rows(j & ":" & j + 48).Insert Shift:=xlDown
    plage.Copy
    Worksheets("Sheet 1").Cells(j, 9).PasteSpecial (xlPasteValues)
    j = j + 56
    i = i + 1
Wend
 
End Sub

Merci du coup de main

Bonjour ANTMA,
essaye avec ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub InsertLigne7()
Dim i As Integer, g As Integer
g = 7
    Sheets("feuil2").Select
'Si les données nz sont pas dans la colonne A changer la lettre
    For i = 1 To Range("A65536").End(xlUp).Row
        Sheets("feuil1").Select
        Rows(g).Select
        Selection.Insert Shift:=xlDown
        Sheets("feuil2").Select
        Rows(i).Select
        Selection.Copy
        Sheets("feuil1").Select
        Rows(g).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        g = g + 7
    Next i
End Sub

J'ai pas vraiment tester mais ça devrait faire l'affaire.
A+

Bonjour,

suis désolé d'embêter tout le monde mais cela ne marche pas

le message d'erreur est "la méthode select de la classe range a échoué ":cry::cry::cry::cry:

Voici le code que j'ai utilisé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub InsertLigne7()
Dim i As Integer, g As Integer
g = 7
    Sheets("autres codes").Select
    For i = 1 To Range("D65536").End(xlUp).Row
        Sheets("Sheet 1").Select
        Rows(g).Select
        Selection.Insert Shift:=xlDown
        Sheets("autres codes").Select
        Rows(i).Select
        Selection.Copy
        Sheets("Sheet 1").Select
        Rows(g).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        g = g + 7
    Next i
End Sub

21/09/2007, 18h49
AlainTech

Où est écrit le code que tu nous montres?
Dans un module de feuille ou dans un module standard?
22/09/2007, 08h34
LeForestier

Bonjour,
J'ai tester et le code que je t'ai passé fonctionne.
Remarques:
Le nom de feuille "Sheet1" est en principe le nom par défaut d'une feuille dans Excel Anglais et il ne devrait pas y avoir d'espace entre Sheet et 1.
Comme précisé par AlainTech le code doit être dans un module.
Ensuite test en pas à pas , mettre le curseur dans la macro et taper F8 pour avancer d'une ligne, voir la ligne où l'erreur se produit.
Fait déjà celà et revient avec l'endroit où éventuellement ça plante.
A+
Edit:
En relisant poste 7 et 8, je ne suis pas certain que c'est exactement ce que tu veux, quand le code fonctionne, s'il nest pas conforme dit-le, il y aurra un petit changement à faire, mais il faudrait que l'explication soit plus claire.
24/09/2007, 11h17
ANTMA

bonjour,

Effectivement le code marche mais le problème est qu'il m'insère une seul ligne alors que je dois insérer 45 lignes toutes les 7 lignes dans ma feuille 1 nommé "Sheet 1" (je confirme il y a bien un espace entre sheet et 1).

mes données à insérer se trouve dans la feuille "autres code" il y 45 lignes à insérer

je dois donc insérer ces 45 lignes toutes les 7 lignes dans ma feuille 1 et ceux jusquà la ligne 1520 +45
24/09/2007, 13h38
LeForestier

bonjour,
j'ai testé sur plusieurs lignes et le code fonctionne...
Les données de la feuille "autres code" commence bien en "D" ?

Code:

For i = 1 To Range("D65536").End(xlUp).Row

Sinon il faut adapter le "D" de cette ligne
Pour être certain, fait un pas à pas (F8..F8..F8.. etc..) et vérifie la valeur de

Code:

Range("D65536").End(xlUp).Row

Je ne vois pas d'autre possibilité d'erreur.
A+
24/09/2007, 14h10
ANTMA

Merci bocoup pour votre coup de main ça marche ......:yaisse2::yaisse2::yaisse2::yaisse2:

Désolé d'avoir pollué votre forum