Option Explicit
'NomProf : Nom d'un Prof (exemple : 91, 93, ou 113)
' NS : numéro salle : 1 à 20 ; pas plus, car en Feuil1,
' de A3 à A22, ça va de 01 à 20 ; dessous, il manque
' 21 à 25, et y'a pas de place sous la ligne 22 !
' JR : jour = 1 à 5 pour lundi à vendredi ; c'est en J2
' MS : matin ou soir (c'est la donnée qui est en J3)
' NP : n° du prof ou surveillant (1 à 3)
Function NomProf(NS As Byte, JR As Byte, MS$, NP As Byte) As String
Dim lig As Byte, col As Byte: lig = NS + 2
col = (JR - 1) * 6 - 3 * (MS = "soir") + NP + 1
NomProf = Cells(Worksheets("Feuil1").Cells(lig, col) + 2, 11)
End Function
'NomRemp : Nom d'un Remplaçant (exemple : 65, 80, ou 87)
' NS : numéro salle : 1 à 10
' JR : jour = 1 à 5 pour lundi à vendredi ; c'est en J2
' MS : matin ou soir (c'est la donnée qui est en J3)
' NR : n° du remplaçant (1 à 3)
Function NomRemp(NS As Byte, JR As Byte, MS$, NR As Byte) As String
Dim lig As Byte, col As Byte: lig = NS + 23
col = (JR - 1) * 6 - 3 * (MS = "soir") + NR + 1
NomRemp = Cells(Worksheets("Feuil1").Cells(lig, col) + 2, 12)
End Function