Transférer sur une autre feuille

Bonjour Denys,

Il y a toujours le bon vieux filtre élaboré en utilisant une formule comme critère :

En A1 : Tu laisses vide
En A2 : la formule suivante en supposant
que V2 et W2 sont les 2 premières cellules contenant des données,
V2 et W2 étant les étiquettes de colonnes (obligatoire pour un filtre élaboré)
=(V2 03)*(W2="X")

Et tu copies le résultat du filtre vers la plage désigné :
pour ce faire :
Tu sélectionnes l'étendue du tableau de ton filtre
barre de menu / édition / atteindre / cellules / visible seulement

et tu appliques un copier-coller sur la plage sélectionnée.

Ceci est réalisable par macro si le tout est répétitif !

Salutations!

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 04CF0BDB-AD06-4CA9-8C14-DC317F7203EC@microsoft.com...
Bonjour à tous,

Question pour vous... Sur une feuille Excel j'ai environ 9000 lignes
d'infos. Je voudrais transférer de la feuille Database à la feuille (2003)
toutes les lignes ayant 2003 dans la colonne V et un "X" dans la colonne W.

Ensuite, transférer dans la feuille (2004) toutes les lignes ayant 2003 dans
la colonne V et un "X" dans la colonne X ainsi que 2004 dans la colonne V et
un "X" dans la colonne W.

Etc....pour 2005, 2006......

Z'auriez une idée comment je pourrais m'y prendre?

Merci

Denys

Bonjour Denis,

Tu travailles tout le temps !!!!!!! :-)

Merci.... bonne idée ... tu m'as d'ailleurs déjà donné des macros sur le
filtre automatique... Oui, c'est répétitif. Je vais m'y ataquer lundi matin...

Si je suis dans le trouble, je reviens...

Merci et bonne fin de semaine...

Denys

Bonjour Denys,

Il y a toujours le bon vieux filtre élaboré en utilisant une formule comme critère :

En A1 : Tu laisses vide
En A2 : la formule suivante en supposant
que V2 et W2 sont les 2 premières cellules contenant des données,
V2 et W2 étant les étiquettes de colonnes (obligatoire pour un filtre élaboré)
=(V2 03)*(W2="X")

Et tu copies le résultat du filtre vers la plage désigné :
pour ce faire :
Tu sélectionnes l'étendue du tableau de ton filtre
barre de menu / édition / atteindre / cellules / visible seulement

et tu appliques un copier-coller sur la plage sélectionnée.

Ceci est réalisable par macro si le tout est répétitif !

Salutations!

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 04CF0BDB-AD06-4CA9-8C14-DC317F7203EC@microsoft.com...
Bonjour à tous,

Question pour vous... Sur une feuille Excel j'ai environ 9000 lignes
d'infos. Je voudrais transférer de la feuille Database à la feuille (2003)
toutes les lignes ayant 2003 dans la colonne V et un "X" dans la colonne W.

Ensuite, transférer dans la feuille (2004) toutes les lignes ayant 2003 dans
la colonne V et un "X" dans la colonne X ainsi que 2004 dans la colonne V et
un "X" dans la colonne W.

Etc....pour 2005, 2006......

Z'auriez une idée comment je pourrais m'y prendre?

Merci

Denys

Bonjour,

http://cjoint.com/?bhiut5StCS

Sub Extrait()
sup
For an = 2003 To 2005
Sheets("bd").[Y2] = an
Sheets.Add after:=Sheets(Sheets.Count)
Sheets("BD").Range("A1:W10000").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("BD").Range("Y1:Z2"),
CopyToRange:=Range("A1")
Cells.EntireColumn.AutoFit
ActiveSheet.Name = an
Next an
End Sub

Sub sup()
If Sheets.Count > 1 Then
Sheets("BD").Move Before:=Sheets(1)
Application.DisplayAlerts = False
Sheets(2).Select
For i = 1 To Sheets.Count - 1
ActiveSheet.Delete
Next i
End If
End Sub

Cordialement JB