Copier de ligne vers une autre feuille

Bonjours

j'ai une feuille Excel feuill1 qui contient des ligne(non vide) et une autre feuille feuill2 (vide) que je veut remplir à partir de la feuill1 avec des certaines condition. alors

1-je veut trouver la longueur de la première ligne (le nombre de cellule non vide), qui est N (supposant)

2-copier cette ligne (la 1er ligne) N fois dans la feuill2 .

j'ai fait un petit essai de code , et j'aimerai bien que vous m'aider avec :

Sub FiltreLulu()
Dim LastLig As Long, NewLig As Long, i As Long, j As Long, LastCel As Long

Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Range("A65536").End(xlUp).Row       'trouver la le nombre de ligne dans la feuill1

    For i = 2 To LastLig
        NewLig = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1  
        [color=#FF0000]LastCel = Sheets("Feuil1").Range("IV" & i).End(xlToLeft).Column [/color]  'trouver le nombre de cellule dans une ligne

        .Rows(i).Copy Sheets("Feuil2").Range("A" & NewLig & ": A" & NewLig + LastCel)   'copier une ligne dans Feuil2

    Next
End With
End Sub

le premier problème est avec la ligne en rouge (calculer la le nombre de cellule non vide dans une ligne ) elle m'afiche qu'il y a une erreur.

Bonjour,

Dans la ligne à souci,

LastCel = Sheets("Feuil1").Range("IV" & i).End(xlToLeft).Column

tu récupères la dernière cellule sur une ligne. Exemple si sur la ligne 2, ta dernière cellule non vide est H2, Lastcel vaudra 8.

Ce n'est pas cela que tu veux ??

Amicalement

merci sa marche bien, j'ai oublier de changer le numéro de pages dans le code.

-- 08 Sep 2010, 14:54 --

je cherche maintenant à faire une copie/coller un peut spécial , alors j'explique:

tous mes ligne en une partie fixe qui est de la colonne "A" à la colonne "H", et une partie mouvant de "I" jusqu'à la dernière cellule de la ligne.

ce que je veut faire est :

copier la partie fixe sur chaque ligne + copier sur chaque de ces ligne fixe une cellule de la patrie mouvant (copier une seul cellule sur chaque ligne).

détail:

copier la partie fixe dans première ligne + la cellule de la colonne "I"

copier la partie fixe dans deuxième ligne + la cellule de la colonne "J"

copier la partie fixe dans troisième ligne + la cellule de la colonne "K"

copier la N ligne + la cellule "MI"

Re,

Merci de mettre un petit fichier explicatif en ligne. Ce sera plus facile de te proposer quelque chose.

A te relire

c'est comme sa que je veut organiser mon tableau, et merci

re,

En fonction de la vue que tu as donnée ici, essaie avec ce code à placer dans un module et à associer à un bouton sur ta feuille 1.

Sub test()
'Macro Dan pour Yotta le 12/09/2010
Dim dlig As Long, dcol As Long
Dim j As Integer, i As Integer, col As Integer
dlig = Range("A" & Rows.Count).End(xlUp).Row
dcol = Cells(1, Columns.Count).End(xlToLeft).Column
j = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Feuil2").Rows(2 & ":" & Rows.Count).ClearContents
For i = 2 To dlig
    For col = 3 To dcol
        Sheets("Feuil2").Cells(j, 1) = Cells(i, 1)
        Sheets("Feuil2").Cells(j, 2) = Cells(i, 2)
        Sheets("Feuil2").Cells(j, 3) = Cells(i, col)
        j = j + 1
    Next
Next
End Sub

La ligne 1 de ta feuille 2 doit être identique à la ligne 1 de ta feuille 1.

Amicalement