Copie auto d'une liste selon critère

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

carcharodon-carcharias à dit:

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

Code:

[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 😉

Cliquez pour agrandir...

Habitude à dit:

Avec un TCD
évite l'activation des macros

Cliquez pour agrandir...