Mettre un message d'alerte

team18fr

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

Pièces jointes

  • exemple.xls
    91 KB · Affichages: 26

phlaurent55

Nous a quittés en 2020
Repose en paix
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
 

Pièces jointes

  • 111.xls
    95 KB · Affichages: 28

Discussions similaires

Réponses
3
Affichages
335
Réponses
4
Affichages
248