code vba pour ouvrir feuil et extraire données

Le
PLG
Bonjour

Allons y!
J'ai 10 feuilles nommées : 1,2,3..10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis..)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer les
données situées en col C à E et en col G d' une des feuilles 1 à 10.
Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil 2)
..
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner sur
la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G et
les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça le
faisait.

Merci de votre sollicitude.
A bientôt vous lire
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18654911
Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille
11, en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

Bonjour

Allons y...!
J'ai 10 feuilles nommées : 1,2,3.....10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis.....)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer les
données situées en col C à E et en col G d' une des feuilles 1 à 10.
Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil 2)
.....
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner sur
la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G et
les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui... pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça le
faisait.

Merci de votre sollicitude.
A bientôt vous lire


PLG
Le #18655091
Bonsoir Daniel

J'ai testé ton code, mais ça plante...!
Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
les draps...!
Mon réveil ne me fait pas de cadeau.... l'ignoble !
Toujours est il, je te remercie de t'être occupé de moi !
Bonne soirée et nuit

"Daniel.C" a écrit :

Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille
11, en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

> Bonjour
>
> Allons y...!
> J'ai 10 feuilles nommées : 1,2,3.....10
> Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
> tennis.....)
> Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
> En col B le n° du mois ( de 1 à 12 donc ) d'après la date.
>
> Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer les
> données situées en col C à E et en col G d' une des feuilles 1 à 10.
> Le choix en feuille 11 est double, 2 critères donc.
> 1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil 2)
> .....
> 2ème choix proposé : le mois.
>
> Donc, si je choisi : Rugby et le mois de février il faut se positionner sur
> la feuille 2
> et extraire les données situées en regard du mois 2, des col C,D,E et G et
> les coller en feuil 11 en A,B,C et D
>
> J'espère avoir été assez clair ( oui... pas vrai !! )
> En attendant, je pense, un petit code VBA, because avec les fonctions je
> vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça le
> faisait.
>
> Merci de votre sollicitude.
> A bientôt vous lire





Daniel.C
Le #18655281
C'est bien compréhensible, avec tous les sports que tu pratiques, tu
dois avoir un entraînement de ouf ;-)))
Daniel

Bonsoir Daniel

J'ai testé ton code, mais ça plante...!
Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
les draps...!
Mon réveil ne me fait pas de cadeau.... l'ignoble !
Toujours est il, je te remercie de t'être occupé de moi !
Bonne soirée et nuit

"Daniel.C" a écrit :

Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille
11, en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

Bonjour

Allons y...!
J'ai 10 feuilles nommées : 1,2,3.....10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis.....)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
les données situées en col C à E et en col G d' une des feuilles 1 à 10.
Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil
2) .....
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner sur
la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G et
les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui... pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça le
faisait.

Merci de votre sollicitude.
A bientôt vous lire









Daniel.C
Le #18655241
Oups, effectivement. Modifie comme suit :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

Bonsoir Daniel

J'ai testé ton code, mais ça plante...!
Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
les draps...!
Mon réveil ne me fait pas de cadeau.... l'ignoble !
Toujours est il, je te remercie de t'être occupé de moi !
Bonne soirée et nuit

"Daniel.C" a écrit :

Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille
11, en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

Bonjour

Allons y...!
J'ai 10 feuilles nommées : 1,2,3.....10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis.....)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
les données situées en col C à E et en col G d' une des feuilles 1 à 10.
Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil
2) .....
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner sur
la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G et
les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui... pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça le
faisait.

Merci de votre sollicitude.
A bientôt vous lire









Daniel.C
Le #18657051
Ou plutôt :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

Oups, effectivement. Modifie comme suit :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

Bonsoir Daniel

J'ai testé ton code, mais ça plante...!
Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
les draps...!
Mon réveil ne me fait pas de cadeau.... l'ignoble !
Toujours est il, je te remercie de t'être occupé de moi !
Bonne soirée et nuit

"Daniel.C" a écrit :

Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

Bonjour

Allons y...!
J'ai 10 feuilles nommées : 1,2,3.....10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis.....)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
les données situées en col C à E et en col G d' une des feuilles 1 à 10.
Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil
2) .....
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner
sur la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G
et les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui... pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
le faisait.

Merci de votre sollicitude.
A bientôt vous lire










PLG
Le #18659121
Bonjour Daniel

J'ai vu tes messages ainsi que ton fichier joint.
Pas tout à fait ce que je souhaite et comme je suis un gros fainéant (
non... c'est pas vrai ) peux tu s'il te plait adapter ta macro au fichier
joint.
Tout y est expliqué.
Si tu peux.... c'est très gentil.
Merci d'avance
Patrick

http://cjoint.com/?cpnoA10t4g



"Daniel.C" a écrit :

Ou plutôt :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

> Oups, effectivement. Modifie comme suit :
>
> Sub test()
> Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
> Année = Array("Janvier", "Février", "Mars") ' à compléter
> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
> Mois = Application.Match([11!G1], Année, 0)
> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
> With Sheets(NumSport)
> .AutoFilterMode = none
> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
> Criteria1:=Mois
> Set plage = .[_filterdatabase].Offset(1, 2)
> Set plage = plage.Resize(plage.Rows.Count - 1)
> Set plage1 = plage.Resize(, 3)
> plage1.Copy [11!A1]
> Set plage1 = plage.Offset(, 4).Resize(, 1)
> plage1.Copy [11!D1]
> End With
> End Sub
>
> Daniel
>
>> Bonsoir Daniel
>>
>> J'ai testé ton code, mais ça plante...!
>> Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
>> les draps...!
>> Mon réveil ne me fait pas de cadeau.... l'ignoble !
>> Toujours est il, je te remercie de t'être occupé de moi !
>> Bonne soirée et nuit
>>
>> "Daniel.C" a écrit :
>>
>>> Bonjour.
>>> Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
>>> en F1 et le mois en G1.
>>>
>>> Sub test()
>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
>>> Année = Array("Janvier", "Février", "Mars") ' à compléter
>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>>> Mois = Application.Match([11!G1], Année, 0)
>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>>> With Sheets(NumSport)
>>> .AutoFilterMode = none
>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>>> Criteria1:=Mois
>>> Set plage = [_filterdatabase].Offset(1, 2)
>>> Set plage = plage.Resize(plage.Rows.Count - 1)
>>> plage.Select
>>> Set plage1 = plage.Resize(, 3)
>>> plage1.Copy [11!A1]
>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>>> plage1.Copy [11!D1]
>>> End With
>>> End Sub
>>>
>>>
>>> Tu trouveras un classeur à l'adresse suivante :
>>> http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
>>> Cordialement.
>>> Daniel
>>>
>>>> Bonjour
>>>>
>>>> Allons y...!
>>>> J'ai 10 feuilles nommées : 1,2,3.....10
>>>> Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
>>>> tennis.....)
>>>> Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
>>>> En col B le n° du mois ( de 1 à 12 donc ) d'après la date.
>>>>
>>>> Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
>>>> les données situées en col C à E et en col G d' une des feuilles 1 à 10.
>>>> Le choix en feuille 11 est double, 2 critères donc.
>>>> 1er choix proposé : les 10 activités : Football ( feuil 1); rugby ( feuil
>>>> 2) .....
>>>> 2ème choix proposé : le mois.
>>>>
>>>> Donc, si je choisi : Rugby et le mois de février il faut se positionner
>>>> sur la feuille 2
>>>> et extraire les données situées en regard du mois 2, des col C,D,E et G
>>>> et les coller en feuil 11 en A,B,C et D
>>>>
>>>> J'espère avoir été assez clair ( oui... pas vrai !! )
>>>> En attendant, je pense, un petit code VBA, because avec les fonctions je
>>>> vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
>>>> le faisait.
>>>>
>>>> Merci de votre sollicitude.
>>>> A bientôt vous lire
>>>
>>>





Daniel.C
Le #18659281
Bonjour.
Voici le code modifié :

Sub test2()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0))
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A2]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D2]
End With
End Sub

Daniel

Bonjour Daniel

J'ai vu tes messages ainsi que ton fichier joint.
Pas tout à fait ce que je souhaite et comme je suis un gros fainéant (
non... c'est pas vrai ) peux tu s'il te plait adapter ta macro au fichier
joint.
Tout y est expliqué.
Si tu peux.... c'est très gentil.
Merci d'avance
Patrick

http://cjoint.com/?cpnoA10t4g



"Daniel.C" a écrit :

Ou plutôt :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

Oups, effectivement. Modifie comme suit :

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub

Daniel

Bonsoir Daniel

J'ai testé ton code, mais ça plante...!
Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
les draps...!
Mon réveil ne me fait pas de cadeau.... l'ignoble !
Toujours est il, je te remercie de t'être occupé de moi !
Bonne soirée et nuit

"Daniel.C" a écrit :

Bonjour.
Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
en F1 et le mois en G1.

Sub test()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = [_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count - 1)
plage.Select
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A1]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D1]
End With
End Sub


Tu trouveras un classeur à l'adresse suivante :
http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
Cordialement.
Daniel

Bonjour

Allons y...!
J'ai 10 feuilles nommées : 1,2,3.....10
Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
tennis.....)
Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
En col B le n° du mois ( de 1 à 12 donc ) d'après la date.

Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
les données situées en col C à E et en col G d' une des feuilles 1 à
10. Le choix en feuille 11 est double, 2 critères donc.
1er choix proposé : les 10 activités : Football ( feuil 1); rugby (
feuil 2) .....
2ème choix proposé : le mois.

Donc, si je choisi : Rugby et le mois de février il faut se positionner
sur la feuille 2
et extraire les données situées en regard du mois 2, des col C,D,E et G
et les coller en feuil 11 en A,B,C et D

J'espère avoir été assez clair ( oui... pas vrai !! )
En attendant, je pense, un petit code VBA, because avec les fonctions je
vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
le faisait.

Merci de votre sollicitude.
A bientôt vous lire

















PLG
Le #18659641
Bahhhhh.... voilà que ça marche !!!
Merci beaucoup à toi
Je vais abuser...!
Je disais donc, tout marche fort bien.... mais !!!
Ben oui, t'aurais du t'en douter... y'a un mais !
Tu poses des filtres sur toutes les pages sur lesquelles on lance la macro !
Le plus-bien serait que ces filtres après avoir fait leur boulot...
n'existent plus et que la feuille soit comme elle était à l'origine....!
Y sont pénibles, ouais t'as pas tort !!
Est ce faisable ?


"Daniel.C" a écrit :

Bonjour.
Voici le code modifié :

Sub test2()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0))
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A2]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D2]
End With
End Sub

Daniel

> Bonjour Daniel
>
> J'ai vu tes messages ainsi que ton fichier joint.
> Pas tout à fait ce que je souhaite et comme je suis un gros fainéant (
> non... c'est pas vrai ) peux tu s'il te plait adapter ta macro au fichier
> joint.
> Tout y est expliqué.
> Si tu peux.... c'est très gentil.
> Merci d'avance
> Patrick
>
> http://cjoint.com/?cpnoA10t4g
>
>
>
> "Daniel.C" a écrit :
>
>> Ou plutôt :
>>
>> Sub test()
>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
>> Range
>> Année = Array("Janvier", "Février", "Mars") ' à compléter
>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>> Mois = Application.Match([11!G1], Année, 0)
>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>> With Sheets(NumSport)
>> .AutoFilterMode = none
>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>> Criteria1:=Mois
>> Set plage = .[_filterdatabase].Offset(1, 2)
>> Set plage = plage.Resize(plage.Rows.Count -
>> 1).SpecialCells(xlCellTypeVisible)
>> Set plage1 = plage.Resize(, 3)
>> plage1.Copy [11!A1]
>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>> plage1.Copy [11!D1]
>> End With
>> End Sub
>>
>> Daniel
>>
>>> Oups, effectivement. Modifie comme suit :
>>>
>>> Sub test()
>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
>>> Année = Array("Janvier", "Février", "Mars") ' à compléter
>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>>> Mois = Application.Match([11!G1], Année, 0)
>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>>> With Sheets(NumSport)
>>> .AutoFilterMode = none
>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>>> Criteria1:=Mois
>>> Set plage = .[_filterdatabase].Offset(1, 2)
>>> Set plage = plage.Resize(plage.Rows.Count - 1)
>>> Set plage1 = plage.Resize(, 3)
>>> plage1.Copy [11!A1]
>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>>> plage1.Copy [11!D1]
>>> End With
>>> End Sub
>>>
>>> Daniel
>>>
>>>> Bonsoir Daniel
>>>>
>>>> J'ai testé ton code, mais ça plante...!
>>>> Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
>>>> les draps...!
>>>> Mon réveil ne me fait pas de cadeau.... l'ignoble !
>>>> Toujours est il, je te remercie de t'être occupé de moi !
>>>> Bonne soirée et nuit
>>>>
>>>> "Daniel.C" a écrit :
>>>>
>>>>> Bonjour.
>>>>> Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
>>>>> en F1 et le mois en G1.
>>>>>
>>>>> Sub test()
>>>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
>>>>> Range Année = Array("Janvier", "Février", "Mars") ' à compléter
>>>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>>>>> Mois = Application.Match([11!G1], Année, 0)
>>>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>>>>> With Sheets(NumSport)
>>>>> .AutoFilterMode = none
>>>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>>>>> Criteria1:=Mois
>>>>> Set plage = [_filterdatabase].Offset(1, 2)
>>>>> Set plage = plage.Resize(plage.Rows.Count - 1)
>>>>> plage.Select
>>>>> Set plage1 = plage.Resize(, 3)
>>>>> plage1.Copy [11!A1]
>>>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>>>>> plage1.Copy [11!D1]
>>>>> End With
>>>>> End Sub
>>>>>
>>>>>
>>>>> Tu trouveras un classeur à l'adresse suivante :
>>>>> http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
>>>>> Cordialement.
>>>>> Daniel
>>>>>
>>>>>> Bonjour
>>>>>>
>>>>>> Allons y...!
>>>>>> J'ai 10 feuilles nommées : 1,2,3.....10
>>>>>> Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
>>>>>> tennis.....)
>>>>>> Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
>>>>>> En col B le n° du mois ( de 1 à 12 donc ) d'après la date.
>>>>>>
>>>>>> Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
>>>>>> les données situées en col C à E et en col G d' une des feuilles 1 à
>>>>>> 10. Le choix en feuille 11 est double, 2 critères donc.
>>>>>> 1er choix proposé : les 10 activités : Football ( feuil 1); rugby (
>>>>>> feuil 2) .....
>>>>>> 2ème choix proposé : le mois.
>>>>>>
>>>>>> Donc, si je choisi : Rugby et le mois de février il faut se positionner
>>>>>> sur la feuille 2
>>>>>> et extraire les données situées en regard du mois 2, des col C,D,E et G
>>>>>> et les coller en feuil 11 en A,B,C et D
>>>>>>
>>>>>> J'espère avoir été assez clair ( oui... pas vrai !! )
>>>>>> En attendant, je pense, un petit code VBA, because avec les fonctions je
>>>>>> vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
>>>>>> le faisait.
>>>>>>
>>>>>> Merci de votre sollicitude.
>>>>>> A bientôt vous lire
>>>>>
>>>>>
>>
>>
>>





PLG
Le #18659621
Help..... SOS.... !!!
Nan, tout compte fait, ta macro marche tant que c'est le mois de janvier !!!
Si je choisi un autre mois, elle me renvoie toujours Janvier.
En fait elle doit renvoyer le mois choisi au début...!
Je pense que c'est à cause des filtres qui restent en place...!

"Daniel.C" a écrit :

Bonjour.
Voici le code modifié :

Sub test2()
Dim Année, Sports, Mois As Integer, NumSport As String, plage As
Range
Année = Array("Janvier", "Février", "Mars") ' à compléter
Sports = Array("Football", "Rugby", "Tennis") ' à compléter
Mois = Application.Match([11!G1], Année, 0)
NumSport = CStr(Application.Match([11!F1], Sports, 0))
With Sheets(NumSport)
.AutoFilterMode = none
Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
Criteria1:=Mois
Set plage = .[_filterdatabase].Offset(1, 2)
Set plage = plage.Resize(plage.Rows.Count -
1).SpecialCells(xlCellTypeVisible)
Set plage1 = plage.Resize(, 3)
plage1.Copy [11!A2]
Set plage1 = plage.Offset(, 4).Resize(, 1)
plage1.Copy [11!D2]
End With
End Sub

Daniel

> Bonjour Daniel
>
> J'ai vu tes messages ainsi que ton fichier joint.
> Pas tout à fait ce que je souhaite et comme je suis un gros fainéant (
> non... c'est pas vrai ) peux tu s'il te plait adapter ta macro au fichier
> joint.
> Tout y est expliqué.
> Si tu peux.... c'est très gentil.
> Merci d'avance
> Patrick
>
> http://cjoint.com/?cpnoA10t4g
>
>
>
> "Daniel.C" a écrit :
>
>> Ou plutôt :
>>
>> Sub test()
>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
>> Range
>> Année = Array("Janvier", "Février", "Mars") ' à compléter
>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>> Mois = Application.Match([11!G1], Année, 0)
>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>> With Sheets(NumSport)
>> .AutoFilterMode = none
>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>> Criteria1:=Mois
>> Set plage = .[_filterdatabase].Offset(1, 2)
>> Set plage = plage.Resize(plage.Rows.Count -
>> 1).SpecialCells(xlCellTypeVisible)
>> Set plage1 = plage.Resize(, 3)
>> plage1.Copy [11!A1]
>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>> plage1.Copy [11!D1]
>> End With
>> End Sub
>>
>> Daniel
>>
>>> Oups, effectivement. Modifie comme suit :
>>>
>>> Sub test()
>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
>>> Année = Array("Janvier", "Février", "Mars") ' à compléter
>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>>> Mois = Application.Match([11!G1], Année, 0)
>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>>> With Sheets(NumSport)
>>> .AutoFilterMode = none
>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>>> Criteria1:=Mois
>>> Set plage = .[_filterdatabase].Offset(1, 2)
>>> Set plage = plage.Resize(plage.Rows.Count - 1)
>>> Set plage1 = plage.Resize(, 3)
>>> plage1.Copy [11!A1]
>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>>> plage1.Copy [11!D1]
>>> End With
>>> End Sub
>>>
>>> Daniel
>>>
>>>> Bonsoir Daniel
>>>>
>>>> J'ai testé ton code, mais ça plante...!
>>>> Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
>>>> les draps...!
>>>> Mon réveil ne me fait pas de cadeau.... l'ignoble !
>>>> Toujours est il, je te remercie de t'être occupé de moi !
>>>> Bonne soirée et nuit
>>>>
>>>> "Daniel.C" a écrit :
>>>>
>>>>> Bonjour.
>>>>> Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
>>>>> en F1 et le mois en G1.
>>>>>
>>>>> Sub test()
>>>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
>>>>> Range Année = Array("Janvier", "Février", "Mars") ' à compléter
>>>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
>>>>> Mois = Application.Match([11!G1], Année, 0)
>>>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
>>>>> With Sheets(NumSport)
>>>>> .AutoFilterMode = none
>>>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
>>>>> Criteria1:=Mois
>>>>> Set plage = [_filterdatabase].Offset(1, 2)
>>>>> Set plage = plage.Resize(plage.Rows.Count - 1)
>>>>> plage.Select
>>>>> Set plage1 = plage.Resize(, 3)
>>>>> plage1.Copy [11!A1]
>>>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
>>>>> plage1.Copy [11!D1]
>>>>> End With
>>>>> End Sub
>>>>>
>>>>>
>>>>> Tu trouveras un classeur à l'adresse suivante :
>>>>> http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
>>>>> Cordialement.
>>>>> Daniel
>>>>>
>>>>>> Bonjour
>>>>>>
>>>>>> Allons y...!
>>>>>> J'ai 10 feuilles nommées : 1,2,3.....10
>>>>>> Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
>>>>>> tennis.....)
>>>>>> Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
>>>>>> En col B le n° du mois ( de 1 à 12 donc ) d'après la date.
>>>>>>
>>>>>> Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
>>>>>> les données situées en col C à E et en col G d' une des feuilles 1 à
>>>>>> 10. Le choix en feuille 11 est double, 2 critères donc.
>>>>>> 1er choix proposé : les 10 activités : Football ( feuil 1); rugby (
>>>>>> feuil 2) .....
>>>>>> 2ème choix proposé : le mois.
>>>>>>
>>>>>> Donc, si je choisi : Rugby et le mois de février il faut se positionner
>>>>>> sur la feuille 2
>>>>>> et extraire les données situées en regard du mois 2, des col C,D,E et G
>>>>>> et les coller en feuil 11 en A,B,C et D
>>>>>>
>>>>>> J'espère avoir été assez clair ( oui... pas vrai !! )
>>>>>> En attendant, je pense, un petit code VBA, because avec les fonctions je
>>>>>> vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
>>>>>> le faisait.
>>>>>>
>>>>>> Merci de votre sollicitude.
>>>>>> A bientôt vous lire
>>>>>
>>>>>
>>
>>
>>





PLG
Le #18659731
STOP, elle fonctionne, c'est moi qui me suis gouré avec le mois...!!!
Par contre ma demande pour les filtres est toujours d'actualité.... peux tu
les virer ?

"PLG" a écrit :

Help..... SOS.... !!!
Nan, tout compte fait, ta macro marche tant que c'est le mois de janvier !!!
Si je choisi un autre mois, elle me renvoie toujours Janvier.
En fait elle doit renvoyer le mois choisi au début...!
Je pense que c'est à cause des filtres qui restent en place...!

"Daniel.C" a écrit :

> Bonjour.
> Voici le code modifié :
>
> Sub test2()
> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
> Range
> Année = Array("Janvier", "Février", "Mars") ' à compléter
> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
> Mois = Application.Match([11!G1], Année, 0)
> NumSport = CStr(Application.Match([11!F1], Sports, 0))
> With Sheets(NumSport)
> .AutoFilterMode = none
> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
> Criteria1:=Mois
> Set plage = .[_filterdatabase].Offset(1, 2)
> Set plage = plage.Resize(plage.Rows.Count -
> 1).SpecialCells(xlCellTypeVisible)
> Set plage1 = plage.Resize(, 3)
> plage1.Copy [11!A2]
> Set plage1 = plage.Offset(, 4).Resize(, 1)
> plage1.Copy [11!D2]
> End With
> End Sub
>
> Daniel
>
> > Bonjour Daniel
> >
> > J'ai vu tes messages ainsi que ton fichier joint.
> > Pas tout à fait ce que je souhaite et comme je suis un gros fainéant (
> > non... c'est pas vrai ) peux tu s'il te plait adapter ta macro au fichier
> > joint.
> > Tout y est expliqué.
> > Si tu peux.... c'est très gentil.
> > Merci d'avance
> > Patrick
> >
> > http://cjoint.com/?cpnoA10t4g
> >
> >
> >
> > "Daniel.C" a écrit :
> >
> >> Ou plutôt :
> >>
> >> Sub test()
> >> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
> >> Range
> >> Année = Array("Janvier", "Février", "Mars") ' à compléter
> >> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
> >> Mois = Application.Match([11!G1], Année, 0)
> >> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
> >> With Sheets(NumSport)
> >> .AutoFilterMode = none
> >> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
> >> Criteria1:=Mois
> >> Set plage = .[_filterdatabase].Offset(1, 2)
> >> Set plage = plage.Resize(plage.Rows.Count -
> >> 1).SpecialCells(xlCellTypeVisible)
> >> Set plage1 = plage.Resize(, 3)
> >> plage1.Copy [11!A1]
> >> Set plage1 = plage.Offset(, 4).Resize(, 1)
> >> plage1.Copy [11!D1]
> >> End With
> >> End Sub
> >>
> >> Daniel
> >>
> >>> Oups, effectivement. Modifie comme suit :
> >>>
> >>> Sub test()
> >>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As Range
> >>> Année = Array("Janvier", "Février", "Mars") ' à compléter
> >>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
> >>> Mois = Application.Match([11!G1], Année, 0)
> >>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
> >>> With Sheets(NumSport)
> >>> .AutoFilterMode = none
> >>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
> >>> Criteria1:=Mois
> >>> Set plage = .[_filterdatabase].Offset(1, 2)
> >>> Set plage = plage.Resize(plage.Rows.Count - 1)
> >>> Set plage1 = plage.Resize(, 3)
> >>> plage1.Copy [11!A1]
> >>> Set plage1 = plage.Offset(, 4).Resize(, 1)
> >>> plage1.Copy [11!D1]
> >>> End With
> >>> End Sub
> >>>
> >>> Daniel
> >>>
> >>>> Bonsoir Daniel
> >>>>
> >>>> J'ai testé ton code, mais ça plante...!
> >>>> Je verrai cela demain, car il faut, excuse moi, que j'aille me mettre sous
> >>>> les draps...!
> >>>> Mon réveil ne me fait pas de cadeau.... l'ignoble !
> >>>> Toujours est il, je te remercie de t'être occupé de moi !
> >>>> Bonne soirée et nuit
> >>>>
> >>>> "Daniel.C" a écrit :
> >>>>
> >>>>> Bonjour.
> >>>>> Essaie la macro suivante. Le sport à sélectionner est sur la feuille 11,
> >>>>> en F1 et le mois en G1.
> >>>>>
> >>>>> Sub test()
> >>>>> Dim Année, Sports, Mois As Integer, NumSport As String, plage As
> >>>>> Range Année = Array("Janvier", "Février", "Mars") ' à compléter
> >>>>> Sports = Array("Football", "Rugby", "Tennis") ' à compléter
> >>>>> Mois = Application.Match([11!G1], Année, 0)
> >>>>> NumSport = CStr(Application.Match([11!F1], Sports, 0) * 10)
> >>>>> With Sheets(NumSport)
> >>>>> .AutoFilterMode = none
> >>>>> Range(.[A1], .[G65000].End(xlUp)).AutoFilter , field:=2,
> >>>>> Criteria1:=Mois
> >>>>> Set plage = [_filterdatabase].Offset(1, 2)
> >>>>> Set plage = plage.Resize(plage.Rows.Count - 1)
> >>>>> plage.Select
> >>>>> Set plage1 = plage.Resize(, 3)
> >>>>> plage1.Copy [11!A1]
> >>>>> Set plage1 = plage.Offset(, 4).Resize(, 1)
> >>>>> plage1.Copy [11!D1]
> >>>>> End With
> >>>>> End Sub
> >>>>>
> >>>>>
> >>>>> Tu trouveras un classeur à l'adresse suivante :
> >>>>> http://www.cijoint.fr/cjlink.php?file=cj200902/cijgFsJdCT.xls
> >>>>> Cordialement.
> >>>>> Daniel
> >>>>>
> >>>>>> Bonjour
> >>>>>>
> >>>>>> Allons y...!
> >>>>>> J'ai 10 feuilles nommées : 1,2,3.....10
> >>>>>> Ces 10 feuilles correspondent à 10 acivités sportives ( football, rugby,
> >>>>>> tennis.....)
> >>>>>> Sur ces 10 feuilles, en col A, j'ai des dates du 1er Janv au 31 déc.
> >>>>>> En col B le n° du mois ( de 1 à 12 donc ) d'après la date.
> >>>>>>
> >>>>>> Sur la feuille nommée 11, en col A, B, C et D, je souhaiterais récupérer
> >>>>>> les données situées en col C à E et en col G d' une des feuilles 1 à
> >>>>>> 10. Le choix en feuille 11 est double, 2 critères donc.
> >>>>>> 1er choix proposé : les 10 activités : Football ( feuil 1); rugby (
> >>>>>> feuil 2) .....
> >>>>>> 2ème choix proposé : le mois.
> >>>>>>
> >>>>>> Donc, si je choisi : Rugby et le mois de février il faut se positionner
> >>>>>> sur la feuille 2
> >>>>>> et extraire les données situées en regard du mois 2, des col C,D,E et G
> >>>>>> et les coller en feuil 11 en A,B,C et D
> >>>>>>
> >>>>>> J'espère avoir été assez clair ( oui... pas vrai !! )
> >>>>>> En attendant, je pense, un petit code VBA, because avec les fonctions je
> >>>>>> vois pas à cause du choix de la feuille, le reste avec index(equiv()) ça
> >>>>>> le faisait.
> >>>>>>
> >>>>>> Merci de votre sollicitude.
> >>>>>> A bientôt vous lire
> >>>>>
> >>>>>
> >>
> >>
> >>
>
>
>


Publicité
Poster une réponse
Anonyme