si est egal a 1 copy sur autre feuille

Bonjour.
Essaie ce code :

Sub Test1()
Dim Plage As Range, c As Range, Ligne As Integer
Set Plage = Range("B1", Range("B65536").End(xlUp))
Ligne = 1
For Each c In Plage
If c.Offset(0, -1).Value = 1 Then
Sheets("Feuil2").Range("A" & Ligne & ":B" & Ligne).Value =
c.Resize(1, 2).Value
Ligne = Ligne + 1
End If
Next c
End Sub

Cordialement.
Daniel
"michel" <angopasca@synet.be> a écrit dans le message de news:
42c6880c$0$22723$ba620e4c@news.skynet.be...

bonjour toute et tous
un petite question que j'essaye de résoudre

dans la colonne b j'ai une liste d'article
dans la colonne c les prix
je voudrais dans la colonne A mettre le chiffre 1 pour selec l'article en
question

puis en clic sur un bouton copie toute les lignes avec le chiffre 1 et les
coller dans une autre page du classeur ouvert



merci Michel

Bonjour Michel

Voilà une bonne occasion de découvrir l'enregistreur de macro si tu ne le
connais pas :
- débute l'enregistrement d'une macro (outil/macro/nouvelle macro)
- sélectionne ton tableau
- données/filtre/filtre automatique
- sélectionne 1 dans ta premiere colonne
- selectionne tes colonnes en entier
- va sur ta feuille de destination (ou crée en une)
- colle le tout

cela donne sans modification et ni optimisation de la macro

Sub Macro1()
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"
Columns("A:C").Select
Selection.Copy
Sheets("Feuil1").Select
Sheets.Add
ActiveSheet.Paste
End Sub

C'est comme cela que l'on débute en VB.
Essaie de comprendre le code pour une prochaine fois et pour l'optimiser.
Affecte le à un bouton ou à un raccourci.

ça marche ?

Stéphane

"michel" <angopasca@synet.be> a écrit dans le message de news:
42c6880c$0$22723$ba620e4c@news.skynet.be...

bonjour toute et tous
un petite question que j'essaye de résoudre

dans la colonne b j'ai une liste d'article
dans la colonne c les prix
je voudrais dans la colonne A mettre le chiffre 1 pour selec l'article en
question

puis en clic sur un bouton copie toute les lignes avec le chiffre 1 et les
coller dans une autre page du classeur ouvert



merci Michel

génial merci a tout le monde
ca marche

michel