Mettre un message d'alerte

team18fr · 28 Avril 2018

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 · 28 Avril 2018

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

team18fr · 28 Avril 2018

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!"

Mettre un message d'alerte

team18fr

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

team18fr

XLDnaute Occasionnel

Discussions similaires

Mettre un message d'alerte

team18fr

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

team18fr

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency