copier coller automatique selon certains critères

[kindy]

Bonjour,

J'aurai svp besoin d'aide pour faire un copier coller automatique selon certains critères.

En fait j'ai sur une feuille Excel un tableau avec plusieurs colonnes.
Parmis celles-ci une s'appelle catégorie: les catégories sont soit "SWMA 3Q08" ou "SWMA 1Q 2Q 4Q08".
Une autre colonne s'appelle action, une des possibilité est "lead à confirmer".

il faudrait que l'ordinateur tri les données en fonction de la catégorie, et colle automatiquement dans une feuille les lead à confirmer de la catégorie SWMA 3Q08 et dans une autre feuille les lead à confirmer de la catégorie SWMA 1Q 2Q 4Q08.

J'ai un début d'ébauche mais je suis très nulle!!!

Sub copiercoller()


Dim categorie As String
categorie = "SWMA 3Q08"

For S = 2 To 1000
If Cells(, [1]) = categorie Then
Worksheets("liste complete").Range("A" & i & ":E" & i).Copy

Worksheets("Phase1_SWMA 3Q08").Range("A" & i & ":E" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,




SkipBlanks: =_


False,Tranpose:=False




Else
worsheets("liste complete").Range("A" & i& & i).Copy
worsheets("Pase2_SWMA 1Q 2Q 4Q08").Range("A"&i).PasteSpecial Paste:xlPasteAll,
Operation:=xlNone,SkipBlanks:=_
Fase , Transpose:=False
End If
Next i
End Sub

 

[CB60]

Re : copier coller automatique selon certains critères

Bonjour
Peux tu mettre un bout de fichier?

 

[kindy]

Re : copier coller automatique selon certains critères

voilà!

Merci beaucouuuuuuuup!

 

[CB60]

Re : copier coller automatique selon certains critères

regarde si cela te convient?

 

[kindy]

Re : copier coller automatique selon certains critères

C'est super!!!!!! Merci beaucoup pour ton aide et ta rapidité!!!!!

bonne journée!