recopier une ligne selon la valeur d'une case

[Cedric Blum]

Bonjour a tous,

j ai une feuil1 avec x lignes
j aimerais copier dans feuil2 les lignes pour lesquelles Bx = toto
dans feuil3 les lignes avec Bx = tata
etc ....

j ai lu sur le forum qu il y avait sans doute la possibilité de faire un filtre, mais je n arrive pas a mettre en place ce filtre.
j ai essayé une macro simple :

Dim Offre As Variant
j = 7
For Each Offre In Sheets("Recap").Range("B12:B13")
If Offre = "toutes" Then
MsgBox "boucle ok" & j
Sheets("Recap").Range("j:j").Copy _
Destination:=Sheets("macro").Range("j:j")
Else
MsgBox "boucle nok" & j
End If
j = j + 1
Next

mais je recopie la colonne J et je vois pas pourquoi...

qqun peut il m aider?
Merci.

 

[sousou]

Un petit code qui devrait t'aider:
Dans la zone b4 à b10 de la feuille 1, si la cellule="feuil1" copie de la ligne dans la feuille 2 Si la cellule="feuil2" copie de la ligne dans la feuille 3
Tu doit pouvoir arrager ca à ta sauce!
Bonne Chance

Sub deb()
For Each i In Sheets(1).Range("b4:b10")

Select Case i
Case Is = "feuil1"
Set Destination = Sheets("feuil2").Range("a1").EntireRow
i.EntireRow.Copy Destination:=Destination
Case Is = "feuil2"
Set Destination = Sheets("feuil3").Range("a1").EntireRow
i.EntireRow.Copy Destination:=Destination

End Select
Destination.EntireRow.Insert
Next
End Sub

 

[Cedric Blum]

ok merci je vais tenter,
Merci

 

[Cedric Blum]

ouch,
pour Destination.EntireRow.Insert
il me fait erreru d execution 424, objet requis...
je capte pas trop...

 

[sousou]

Avec lce code, je n'ai pas cette erreur.
Passe nous le fichier qu'on jette un oeil indiscret