fonction if

[news]

Bonjour à tous du forum,

ne sachant pas quelles procédures d'y mettre afin d'avoir
que dès pour chaque Range figurant dans Range("B28:V28") > 4 est affiché une Msgbox,

et dès que pour chaque range figurant dans Range("B29:V29") > 2 est affiché une Msgbox,

ainsi s'il y a trop de couleurs de fond mis dans la plage de données de B5:V20
est affiché une Msgbox,

voir ci-joint exemple.
c'est un exemple simplifié de fichier remis comme il s'agit qu'un USF est ouvert, des donnéees sont à compléter et un email est envoyé dès que Range("B28:V28") > 4 ou Range("B29:V29") > 2

merci d'avance d'éventuelles astuces,

 

[SergiO]

Re : fonction if

Bonjour news

J'ai complété la macro événementielle de la feuil1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not IsEmpty(celluleAvant) Then
    If Not Intersect(Range(celluleAvant), [A1:I55]) Is Nothing Then Calculate
  End If
  celluleAvant = Target.Address
 If Not Intersect(Target, [B5:V20]) Is Nothing Then
  If Application.WorksheetFunction.Max([B28:V28]) > 4 Then Message1 = _
  MsgBox("Nb de couleurs > 4 !", vbExclamation, "Limite dépassée en ligne 28")
    If Application.WorksheetFunction.Max([B29:V29]) > 2 Then Message2 = _
  MsgBox("Nb de couleurs > 2 !", vbExclamation, "Limite dépassée en ligne 29")
  End If
End Sub

Bon test
@+

 

[news]

Re : fonction if

Bonjour à tous du forum,

merci Sergio pour réponse si vite et de l'ajoute de données dans la procédure,

je vais adapter le fichier afin qu'un email est envoyé dès que Range("B28:V28") > 4 et Range("B29:V29") > 2