Test avant traitement

Hello le Forum

Je rencontre un souci de tests avant de lancer un traitement. et je n'en sors pas....

J'ai deux listBox
l'utilisateur doit séléctionner un item dans chacune des deux LB (1 Eleve, 1 Mois)
Ces deux selections s'affichent dans deux TextBox.
Ces deux valeurs doivent permettrent d'aller chercher les infos de l'item Eleve en fonction de l'item mois

Et là ou je coince c'est pour tester que mes deux TExtBox soient bien remplies avant de lancer le traitement

J'ai écris cette procédure mais cela ne fonctionne pas

Private Sub TBEleve_Change()
Dim Rep As Integer
Dim Cell As Range

If TBMois.Value = "" Then
Rep = MsgBox("Sélectionnez au préalable un mois!", vbCritical, _
"Attention")
LBEleves.ListIndex = -1
Exit Sub
End If
With Sheets(TBMois.Value)
For Each Cell In .Range("A3:A" & .Range("A65536").End(xlUp).Row)
If Cell.Value = TBEleve.Value Then
TBMatin.Value = Cell.Offset(0, 2).Value
TBAvantMidi.Value = Cell.Offset(0, 3).Value
TBApresMidi.Value = Cell.Offset(0, 4).Value
TBSoir.Value = Cell.Offset(0, 5).Value
Exit For
End If
Next Cell
End With
End Sub

De plus j'ai un autre souci : Si je selectionne un éléve et pas le mois, je sors de ma proc pour aller sélectionner un mois. Mais alors je ne peux plus revenir selectionner l'elève initial sans etre obligé d'en selectionner un autre... (Oui bon, la c'est pas clair 😕 )

Bref c'est la galère.... et je rame. 🙂

Merci à vous si vous pouviez éclairer un peu ma lanterne
Bonne journée

Gianluca