valeur cellule et msgbox

[peterpanx]

Bonjour le Forum,

Je joint un petit fichier qui vaut mieux que tous les longs discours.. Pour faire simple , je souhaite connaitre le moyen de faire appaitre une Msgbox (hors donnée/validation/personnalisé etc) qui, sur la page active d'un planning(qui peut etre "JAN, "FEB" etc.., affiche qu'il y a trop de RTT prises sur l'année.(décompte annuel des RTT se trouvant sur une feuille dont l onglet est intitulé Bilan).

Pourriez vous m'aider s'il vous plaît.

D avance merci .

Cordailement.

 

[SergiO]

Re : valeur cellule et msgbox

Bonjour,

Voici un essai.

Le code est à mettre dans l'objet ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Valeur = Application.WorksheetFunction.Max(Sheets("BILAN").Range("C6:C9"))
If Valeur > 12 Then
Message = MsgBox("Le quota des RTT a été dépassé!", vbInformation, "ATTENTION !!!")
End If
End Sub

Attention, j'ai constaté les RTT saisis avec 1 espace : Est-ce volontaire?

D'autre part, il faudrait saisir la formule comme ceci :

=NB.SI(B6:O6;"RTT")

@+

 

[peterpanx]

Re : valeur cellule et msgbox

En fait, je souhaite voir apparaître ce Msg box dès que le cotat de RTT est dépassé afin d'alerter la personne qui rédige le planning , et pas à l'ouverture du fichier.
j'ai essayé ce code :
mersi à Sergio.. mais je n'ai pas eu de msgbox lors du dépassement de cotat.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Valeur = Application.WorksheetFunction.Max(Sheets("BILAN").Range("C6:C9"))
If Valeur > 12 Then
Message = MsgBox("Le quota des RTT a été dépassé!", vbInformation, "ATTENTION !!!")
End If
End Sub

 

[SergiO]

Re : valeur cellule et msgbox

Re,

Voici ton fichier modifié pour test.

@+

 

[peterpanx]

Re : valeur cellule et msgbox

Merci pour ta réponse,
C'est tout bon maintenant...
Y a t il un moyen dans le msgbox de faire référence au "nom "
de la colonne A si le quota s'y référant est dépassé ?

D'avance Merci.

 

[SergiO]

Re : valeur cellule et msgbox

Re,

Essaie avec ce code.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Valeur = Application.WorksheetFunction.Max(Sheets("BILAN").Range("C6:C9"))
If Valeur > 12 Then
Nom = Cells(Target.Row, 1)
Message = MsgBox("Le quota des RTT de " & Nom & " a été dépassé!", vbInformation, "ATTENTION !!!")
End If
End Sub

@+

 

[peterpanx]

Re : valeur cellule et msgbox

Merci Sergio,
Cela fonctionne parfaitement...
Bonne fin de journée.

Bien cordialement Phil