Copie auto d'une liste selon critère

[norskfred]

Bonsoir,
Pas sûr que l'intitulé soit très clair...
En gros il y a une liste globale en page 3 nommée "Elèves"
En page 1 nommée "affichage", il y a un critère dans la cellule G1.
Je souhaiterais que selon ce critère indiqué en G1, la liste correspondante à ce critère s'affiche en page 1.
Merci d'avance😉

 

[phlaurent55]

Re : Copie auto d'une liste selon critère

Bonjour à tous,

voir fichier en pièce jointe

à+
Philippe

 

[norskfred]

Re : Copie auto d'une liste selon critère

Bonjour phlaurent55,

Quel bonheur de voir au réveil que tu as travaillé pour moi toute la nuit.
Franchement merci. C'est exactement ce que je cherchais.
Mais encore une question
Comment on fait?
Bonne journée

 

[phlaurent55]

Re : Copie auto d'une liste selon critère

Re,

Quel bonheur de voir au réveil que tu as travaillé pour moi toute la nuit.

mais non, quelques minutes à peine

C'est exactement ce que je cherchais.
Mais encore une question
Comment on fait?

T'aurais pas une question plus facile et moins vague 😀

bon week-end, à+
Philippe

 

[norskfred]

Re : Copie auto d'une liste selon critère

Ben oui.. Comment tu as fait pour arriver à ce résultat?
J'ai fait un copier-coller du code de la macro pour l'adapter à mon fichier mais ça ne fonctionne pas!!
Pourrais-tu me donner encore un coup de pouce?

 

[norskfred]

Re : Copie auto d'une liste selon critère

bonsoir

en l'absence de phlaurent55 je prend le relais😉

clic droit sur l'onglet de la feuille puis visualiser le code et tu trouve le code que voici

[COLOR=BLUE]Private Sub[/COLOR] Worksheet_Change([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
    debut = 10
    [COLOR=BLUE]If Not[/COLOR] Intersect(Target, Range("G1")) [COLOR=BLUE]Is Nothing Then[/COLOR]
        Range("A10:C" & Range("A65535").End(xlUp).Row).ClearContents
        fin = Sheets("ELEVES").Range("A65535").End(xlUp).Row
        [COLOR=BLUE]For[/COLOR] i = 2 [COLOR=BLUE]To[/COLOR] fin
            [COLOR=BLUE]If[/COLOR] Sheets("ELEVES").Range("A" & i).Value = [G1] [COLOR=BLUE]Then[/COLOR]
                Range("A" & debut).Value = Sheets("ELEVES").Range("A" & i).Value
                Range("B" & debut).Value = Sheets("ELEVES").Range("B" & i).Value
                Range("C" & debut).Value = Sheets("ELEVES").Range("C" & i).Value
                debut = debut + 1
            [COLOR=BLUE]End If[/COLOR]
        [COLOR=BLUE]Next[/COLOR] i
    [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

ps attention , éviter de poster des fichiers avec des noms réels 😉

Ok! j'y manquerais pas
Quand je fais une modif (ex debut = 9), la macro ne fonctionne plus, pourquoi?
Merci beaucoup!

 

[Habitude]

Re : Copie auto d'une liste selon critère

Avec un TCD
évite l'activation des macros

 

[norskfred]

Re : Copie auto d'une liste selon critère

Avec un TCD
évite l'activation des macros

Pas mal... Merci!
Je vais essayer de reproduire la procédure!😉