Mettre un message d'alerte

[team18fr]

Bonjour,
Sur mon fichier lorsque je sélectionne une cellule de Q11 à R31 une croix apparait et lorsque je double clique sur les cellules de cette même ligne les heures s'affichent et je voudrais que si je sélectionne une cellule entre T11 et Z31 et qu'il n'y a pas de croix en face de la ligne un message me demande de la mettre.

 

[phlaurent55]

Bonjour team18,

voir fichier joint
Voici le code adapté à la demande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 And Not Intersect([Q11:R31], Target) Is Nothing Then
        If Target.Column = 17 Then
        If Target = "" Then Target = "X": Target.Offset(0, 1) = "" Else Target = "": Target.Offset(0, 1) = "X"
        End If
        If Target.Column = 18 Then
        If Target = "" Then Target = "X": Target.Offset(0, -1) = "" Else Target = "": Target.Offset(0, -1) = "X"
        End If
  End If
 
' ci-dessous le bout de code qui répond à la question posée
If Target.Count = 1 And Not Intersect([T11:Z31], Target) Is Nothing Then
     If Cells(Target.Row, 17) = "" And Cells(Target.Row, 18) = "" Then MsgBox ("Veuillez mettre une croix en colonne JOUR : NUIT")
End If

à+
Philippe

 

[team18fr]

Merci c'est bien ce que je recherché mais j'aurais voulu que lorsque un 3,00 apparaisse entre V11 et Z31 et que S37 est vide il y est un message.

If Range("V11;Z31") = 3 Then: MsgBox "Vous devez remplir S37!"