Discussion :

[denatelo9]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$5" Then
    Application.EnableEvents = False
    If Target = "" Then Target.Value = "zzzz"
    Target.Value = Target.Value & "*"
    Application.EnableEvents = True
    Sheets("Base").Range("A1:M10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A4:A5"), CopyToRange:=Range("A7:M7"), Unique:=False
  End If
End Sub

j’ai 1400 élèves quand je fais l’essai ça ne marche pas
J’ai modifié le tableau
Et j'aimerais si c'est possible ne pas avoir zzzz* affiché pour faire simple
je suis vraiment nul quelqu'un a-t-il une idée pour la suite ça donne rien
amicalement