Select Case en Excel VBA

[InnJoo]

Bonjour à tous !
J’ai joie de retrouver la communauté.
J’en profite pour poser une difficulté à laquelle je suis confronté.
J’essaie de développer une application pour les responsables d’un collège.
Je voudrais a l’aide de la sélection de 2 conditions, un résultat s’affiche présentant le nom d’un professeur. Je voudrais le réaliser avec la fonction ou une procédure Select Case. Je joins mon projet à la présente. Merci d’avance.Déterminer_Noms_d’Enseignant.xlsm (18,7 Ko)

[FFO]

Bonsoir
Ci-joint ton fichier adapté
J’ai rajouté dans la cellule Résultat celui obtenu
Tu peux supprimer ce rajout
Fais des essais

Déterminer-Noms-d-Enseignant-3-.xlsm

[Patrice33740]

Bonjour,

Notes qu’avec Excel, fusionner des cellules est déconseillé, en particulier lorsque c’est pas utile comme dans ton cas.

Pour Select Case :
Option Explicit
Sub Definir_Professeur()
Dim Classe As String
Dim Periode As String
Dim Nom_Prof As String
Classe = ActiveSheet.Range("B2").Value
Periode = ActiveSheet.Range("B5").Value
Select Case Classe
Case "Classe de 6ème A"
Select Case Periode
Case "LUNDI-7H30-8H20"
Nom_Prof = "Mme TSAYEM Joséphine"
Case "LUNDI-8H25-9H10"
Nom_Prof = "M. DJOUBAIROU Honoré"
End Select
End Select
ActiveSheet.Range("B8").Value = Nom_Prof
End Sub