Bonjour Judoka et à tous
J’ai effectué plusieurs manips.
Tout d’abord pour la compréhension, les définitions ne sont pas claires.
Je suppose :
M = matin
N = nuit
A = après-midi
J = journée
R = repos (ça c’est moi qui l’ajoute)
Vide = rien
Mon constat : pour une équipe, c’est une ligne entière et une seule.
Donc il suffit de regarder l’état de la cellule précédente pour valider une réponse.
Dans ces conditions :
N = choix rien ou repos
M =
A =
J =
A la suite de ceci :
‘==============
Sub Nuit_Matin_3
Dim Adr$, Etat$
Dim Col%, Lg%
Adr = ActiveCell.Address
Col = Range(Adr).Column
Lg = Range(Adr).Row
'-----------------
Etat = Cells(Lg, Col - 1).Value 'cellule précédente
Select Case Etat
Case "": MsgBox "Choix --> M, N, A, J"
Case "M": MsgBox "Choix --> N, A, J"
Case "N": MsgBox "Choix --> R"
Case "A": MsgBox "Choix --> M"
Case "J": MsgBox "Choix --> M, N, A"
End Select
'-----------------
End Sub
‘=============
D’autre part je ne vois pas l’intérêt de la première ligne,
Sinon d'y mettre une date.
A+ Jean-Paul