copie de cellule par macro

[ptitepo]

Jai 2 feuilles excel, une avec un tableau en A B C D, l'autre est vide.
Je voudrais que ma macro parcour la colonne B, suivant une condition (>90), elle copie le contenu de la ligne correspondante, sur ma feuille vide.
Exemple : en B100, ma condtion est rempli, donc A, B, C et D 100, sont copié sur la 1er ligne de ma feuille vide, puis en B 102, ma condition est a nouveau rempli, donc A, B, C et D 102, sont copié sur la 2iem ligne de ma feuille vide... et ainsi de suite. Jai un bout de macro qui ne fonctionne pas, pe etre pouriez vous m'aidé

Sheets("Feuil1").Columns("B:B").Select
    For Each cell In Selection
        If cell > 90 Then
            ligne1 = cell.Row
            Sheets("Feuil3").Select
            ligne = Sheets("Feuil3").Range("A65536").End(xlUp).Row
            Worksheets("Feuil1").Range("A" & ligne1).Copy Worksheets("Feuil3").Range("A" & ligne)
            Worksheets("Feuil1").Range("B" & ligne1).Copy Worksheets("Feuil3").Range("B" & ligne)
            Worksheets("Feuil1").Range("C" & ligne1).Copy Worksheets("Feuil3").Range("C" & ligne)
            Worksheets("Feuil1").Range("D" & ligne1).Copy Worksheets("Feuil3").Range("D" & ligne)
        End If
    Next cell

 

[wamme]

Re : copie de cellule par macro

Salut,
regarde la macro modifiée

ligne = Sheets("Feuil3").Range("B65536").End(xlUp).Row
Sheets("Feuil1").Select
Sheets("Feuil1").Columns("B:B").Select
    For Each cell In Selection
        If cell > 90 Then
            ligne1 = cell.Row
            Sheets("Feuil3").Select
            
            
            Worksheets("Feuil1").Range("A" & ligne1).Copy Worksheets("Feuil3").Range("A" & ligne)
            Worksheets("Feuil1").Range("B" & ligne1).Copy Worksheets("Feuil3").Range("B" & ligne)
            Worksheets("Feuil1").Range("C" & ligne1).Copy Worksheets("Feuil3").Range("C" & ligne)
            Worksheets("Feuil1").Range("D" & ligne1).Copy Worksheets("Feuil3").Range("D" & ligne)
            ligne = ligne + 1
        End If
    Next cell

 

[pierrejean]

Re : copie de cellule par macro

bonjour ptitepo

Salut wamme

Avec un peu de retard

Sub test()
ligne = Sheets("Feuil3").Range("A65536").End(xlUp).Row
    For Each cell In Sheets("Feuil1").Range("B1:B" & Sheets("Feuil1").Range("B65536").End(xlUp).Row)
           If cell.Value > 90 Then
           Sheets("Feuil1").Range("A" & cell.Row).Copy Destination:=Sheets("Feuil3").Range("A" & ligne)
           Sheets("Feuil1").Range("B" & cell.Row).Copy Destination:=Sheets("Feuil3").Range("B" & ligne)
           Sheets("Feuil1").Range("C" & cell.Row).Copy Destination:=Sheets("Feuil3").Range("C" & ligne)
           Sheets("Feuil1").Range("D" & cell.Row).Copy Destination:=Sheets("Feuil3").Range("D" & ligne)
           ligne = ligne + 1
        End If
    Next cell
   Sheets("Feuil3").Select
End Sub

 

[ptitepo]

Re : copie de cellule par macro

Ok, il fallais définir une fin a ma selection, sinon c'était interminable , merci