Mettre un message d'alerte

team18fr

XLDnaute Junior
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.
 

Fichiers joints

phlaurent55

XLDnaute Barbatruc
Bonjour team18,

voir fichier joint
Voici le code adapté à la demande

Code:
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
 

Fichiers joints

team18fr

XLDnaute Junior
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.
Code:
If Range("V11;Z31") = 3 Then: MsgBox "Vous devez remplir S37!"
 

Discussions similaires


Haut Bas