Sélection libre

Le 25/02/2020 à 20:34

bonjour la communauté,

j'ai trouvé ce fichier que j'utilise avec d'autres données, mais je voudrais pouvoir sélectionner 1 des trois sans être obligé de passer par la 1ere sélection puis la 2nde...

pouvez vous m'aider?

10copie-de-extraire-donnees-vba.xlsm (149.83 Ko)
Le 26/02/2020 à 01:49

Bonsoir faf311,

C'est à dire que tu ne veux plus de la cascade ?

Si c'est le cas, une validation de données classique te génèrera des listes indépendantes.

Cordialement.

Le 26/02/2020 à 19:00

Non je veux que les 3 dépendent tjrs l'un de l'autre mais je veux pouvoir choisir en premier soit l'un soit l'autre sans être obligé de suivre un ordre défini

Le 06/03/2020 à 08:28

rebonjour,

évolution de ma demande, en fait je voudrais que ma 1ère sélection soit une feuille et les 2 autres sélections les mêmes dans chaque feuille. Dans le fichier en pièce jointe les données de chaque feuille est identiques, mais dans mon fichier final les données seront différentes. Et ce pour 52 semaines.

2copie-de-extraire-donnees-vba.xlsm (433.67 Ko)
Le 07/03/2020 à 03:40

Bonjour,

Un essai à tester.

https://www.transfernow.net/UFewUa032020

Cordialement.

Le 08/03/2020 à 21:06

bonjour Zebulon2,

non je ne veux pas changer de feuille quand je la selectionne, je veux que les donnees soit affichees dans la feuille choix.

Le 09/03/2020 à 00:45

Bonsoir,

Sois plus clair, donnes un exemple cela sera plus simple.

Cordialement.

Le 09/03/2020 à 10:05

en fait je voudrais que les données de la feuille sélectionnée soit extraites et affichées dans la même feuille soit la feuille de sélection, et non être envoyé à la feuille que j'ai sélectionné.

2copie-de-extraire-donnees-vba-1.xlsm (431.50 Ko)
Le 09/03/2020 à 10:42

Bonjour,

Quelles sont les données des feuilles semaines ?

Cordialement.

Le 09/03/2020 à 10:50

bonjour,

pour l'exemple, il y a les données dans chaque feuilles, les données finales je ne peux pas les mettre pour des raisons de confidentialité.

mais si déjà je peux les extraire et les afficher dans la feuilles de sélection, en l’occurrence la feuille liste_cascade dans le fichier que j'ai joint, ça serait bien.

Le 09/03/2020 à 20:00

Bonsoir,

Un essai à tester, attention les temps de réponses sont parfois long.

Cordialement.

4faf311-2.7z (260.57 Ko)
Le 10/03/2020 à 23:49

bonjour Zebulon2,

Ca se rapproche, en me creusant un peu la tête j'ai réussi à trouver une solution. Par contre si il y a moyen de simplifier le code je dirais pas non…. lol. Celui-ci fonction mais comme je dois rajouter des données, j'ai peur que ça plante si le code est trop long, car la j'ai fait pour 1 feuille sachant que j'ai 1 feuille par semaine soit 52 feuilles...

Sub Macro3()
'
' Macro3 Macro
If Range("E1") = 52 And Range("G1") = 11 Then
    Range("A3:J354").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 Then
    Sheets("S2").Select
    Range("A4:H11").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Range("A1:J214").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 4 Then
    Range("A3:J300").Select
    ActiveWindow.SmallScroll Down:=-75
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1MH101", "1MH1011", "1MH106", "1MH179A", "1MH804A"), Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("S2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 1 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:="1AA133A"
    Range("A1:J2").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 10 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1TS125", "1PF918P", "1TS133C", "1TS141E", "1TS1413", "1TS127", "1TS133A", "1TS1313", "1TS1412", "1TS141F", "1TS141A", "1TS133B", "1TS136B", "1TS136A", "1TS1419", "1TSV10T", "1TS133P", "1TS133D", "1TS136G", "1TS129", "1TS133G", "1TS141H", "1TS1411", "1TSV10", "1TS141G", "1TS133E") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 8 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1RS809A", "1RS101", "1RS133P", "1RS106", "1RS9113", "1RS931", "1RS804A", "1RS407", "1RS709") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 6 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1MP1412", "1MP129", "1MP1313", "1MP1413", "1MP136G", "1MP133A", "1MP127", "1MP141E", "1MP141A", "1MP1419", "1MP141F", "1MP136B", "1MP136A", "1MPDEC", "1MI1314", "1MP133E", "1MP133C", "1MPV10", "1MP1415", "1MP133D", "1MP133P") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 2 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1AK1500", "1AK240") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 3 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1EL136A", "1EL1412", "1EL1313", "1EL1413", "1EL141E", "1EL136B", "1EL133C", "1EL129") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 5 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:="1ML6041"
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 7 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1MR101R", "1MR704", "1MR14M", "1MR704F", "1MR705", "1MR101", "1MRSTOP", "1MRNET") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

ElseIf Range("E1") = 1 And Range("G1") = 9 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6, Criteria1:=Array( _
        "1SE106A", "1SE106F", "1SEQ04M", "1SE179C", "1SE101", "1SE811", "1SE106", "1SE179A", "1SE106S") _
        , Operator:=xlFilterValues
    Range("A1:J300").Select
    Selection.Copy
    Sheets("Feuil12").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=6
    Sheets("Feuil12").Select
    Range("A3").Select

End If

If Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 2 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "AUGUSTE, Alexandre"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 1 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "Arnaud DAGNEAU"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 3 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "Bangoura, Kerfalla"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 4 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "BOURDEL Aurélie"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 5 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CASAURANCQ Julien"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 6 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CAZEAUX, GUILLAUME"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 7 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CHEVALIER, Christèle"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 8 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CLARKE, Thomas"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 9 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CONCHESO, Emilien"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 10 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "COUSSY Anne"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 11 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "CROIX, Gaetan"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 12 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "DANFLOUS, Pierrick"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 13 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "DROUARD, Samuel"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 14 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "Eleanor Colliou Cl"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 15 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:=Array( _
        "GAYRAUD, Sebastien", "GAYRAUD, Sébastien") _
        , Operator:=xlFilterValues
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 16 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "GLEYZES, Adrien"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 17 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "GOMEZ, Sandrine"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 18 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "Gonzalez laurent"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 19 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "GORGUES, Sébastien"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 20 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "GUERINAUD Léa"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 21 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "HUC Gregory"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 22 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "LEVASSEUR, Florian"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 23 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "LOUBET, Benoît"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 24 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "MARTINO Pierre"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 25 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "MASSOL, Magalie"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 26 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "MAZEAUD, Jessica"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 27 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "MENAGE Thomas"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 28 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "MOFTAQIR, Ayoub"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 29 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "PUYJALINET, Sophie"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select
ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 30 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "ROGET, Jean-Brice"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 31 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "SANS-CHRESTIA, Fab"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select

ElseIf Range("E1") = 1 And Range("G1") = 11 And Range("J1") = 32 Then
    Range("A3:J300").Select
    Selection.ClearContents
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5, Criteria1:= _
        "SIMON, Elodie"
    Range("A1:J235").Select
   Selection.Copy
    Sheets("Feuil12").Select
   Range("A3").Select
    ActiveSheet.Paste
    Sheets("S2").Select
    ActiveSheet.Range("$A$1:$J$214").AutoFilter Field:=5
    Sheets("Feuil12").Select
    Range("A4").Select
End If

End Sub
Le 11/03/2020 à 00:01

Bonsoir,

As tu tester le fichier que je t'ai envoyé ?

Ton code m'a l'air bien lourd surtout pour 52 feuilles. N'étant pas un spécialiste en VBA je laisse la main à plus compétent.

Cordialement.

Le 11/03/2020 à 16:29

bonjour Zebulon2,

oui j'ai testé ton fichier, le problème c'est qu'avec ton fichier les données ne s'affichent que si les 3 conditions sont complétées.

voici ce que je suis arrivé à faire

4classeur1.xlsm (358.40 Ko)
Le 12/03/2020 à 23:22

bonjour,

j'ai réussi à adapter le fichier de base en modifiant quels trucs dans le code et ça fonctionne parfaitement.

merci pour votre intérêt.

Rechercher des sujets similaires à "selection libre"