valeur cellule et msgbox

SergiO

XLDnaute Accro

• 27 Septembre 2007

• #2

Re : valeur cellule et msgbox

Bonjour,

Voici un essai.

Le code est à mettre dans l'objet ThisWorkbook

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

@+

 

Vote positif 0 Vote négatif

P

peterpanx

XLDnaute Nouveau

• 27 Septembre 2007

• #3

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 27 Septembre 2007

• #4

Re : valeur cellule et msgbox

Re,

Voici ton fichier modifié pour test.

@+

 

Pièces jointes

• Test_msgbox.zip

  8.6 KB · Affichages: 47

Vote positif 0 Vote négatif

P

peterpanx

XLDnaute Nouveau

• 27 Septembre 2007

• #5

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.

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 27 Septembre 2007

• #6

Re : valeur cellule et msgbox

Re,

Essaie avec ce code.

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

@+

 

Vote positif 0 Vote négatif

P

peterpanx

XLDnaute Nouveau

• 27 Septembre 2007

• #7

Re : valeur cellule et msgbox

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

Bien cordialement Phil

 

Vote positif 0 Vote négatif