VBA Message Box selon valeur d'une cellule
Bonsoir à tous,
mon niveau en VBA n'est pas top, je viens donc vous demander un petit coup de main.
J'ai un tableau de suivi des temps par mois.
La dernière ligne du tableau totalise le nombre de demi-journées (0.5) travaillées sur un projet chaque jour : le maximum est donc 1. Le temps passé par projet peut donc être 0;0.5 ou 1, les valeurs sont saisies à travers une liste déroulante.
Je voudrais que si le total de la colonne dépasse 1 un MsgBox s'ouvre en disant que le total est trop élevé.
Cela fonctionne avec une cellule:
Sub contrôle_total_jour()
If Range("I38").Value > "1" Then
MsgBox ("Le total pour cette journée est trop élevé (max 1 soit 2 demi-journées)")
End If
End Sub
Mais je n'arrive pas à l'appliquer à une plage de cellule (E38 à AI38)
Pour que ce soit plus claire je vous joins mon document. La feuille concernée est Janv2016.
Merci d'avance.
Bonsoir,
merci beaucoup cela fonctionne parfaitement
Rebonsoir,
dans la même idée je souhaiterais que lorsque dans la colonne A, "Absences" est sélectionné dans la liste déroulante, un MsgBox s'ouvre avec ce message "Saisir absence dans feuille RH".
J'ai tenté ce code qui fonctionne sur une cellule en particulier mais pas dans l'ensemble de la plage souhaitée:
Sub SaisieAbsences()
Worksheets("Janv2016").Select
If Cells(39, 1).Value = "Absences" Then MsgBox ("Saisir absence dans feuille RH")
End Sub
Merci d'avance
ça fonctionne super bien merci beaucoup