re,
Je te propose le code suivant à placer dans la feuille etudiant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell, Plage As Range
If Not Intersect(Target, [A34]) Is Nothing Then
Set Plage = Range("i35:i" & Range("i" & Rows.Count).End(xlUp).Row)
For Each cell In Plage
If cell = 0 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next cell
End If
Set Plage = Nothing
End Sub
J'ai remonté de deux lignes du choix de l'étudiant car en masquant des lignes pour cause 0 tu masquais aussi celle du choix de l'étudiant.
Bon courage pour la suite
Cordialement
Juste une précision.
Je viens de faire un test pour l'étudiant ARTHUR. Comme il n'appartient pas à la liste tu as une erreur dans la colonne I.
Deux possibilités
Pour que tes listes soient toujours à jour je te propose de mettre cette formule dans le gestionnaire de noms pour idetudiant et idinscrits
=DECALER(inscrits!$A$1;;;NBVAL(inscrits!$A:$A))
sinon il faut traiter l'erreur en colonne i
cordialement