Discussion :

[ANTMA]

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

[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...



Aidez moi svp ......

[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

[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...

[melouille56]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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