Je souhaite, qu'une message box "texte XXX" s'affiche si , dans la colonne B1:B100 (par exemple), la valeur de la cellule est supérieure à 12.
Pourriez vous m'aider s'il vous plait.
Merci par avance et bonne soirée.
Cordialement.
Ph
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("B1:B100") Is Nothing And Target > 12 Then
MsgBox "texte XXX"
End If
End Sub
Plus simple
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Target.Row <= 100 And Target > 12 Then
MsgBox "texte XXX"
End If
End Sub
Rebonjour, je profite de ce post pour poser à peu près la même question, a la différence que la condition s'applique sur une ligne (C3:AG3) et que la valeur de la ligne dépend de la ligne sélectionnée (je pense qu'il y a un target quelque part...).
Ainsi si l'on ajoute un "CA" dans une cellule mais que le nombre total de "CA" est supérieur à 27, alors la msgbox m'indique qu'il ne reste plus de congés.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
If WorksheetFunction.CountIf(Range("C3:AG3"), "CA") > 27 Then MsgBox "il ne reste plus de congés"
End If
End Sub
Merci Staple, mais j'ai un souci, en fait j'ai changé ma façon de faire et j'ai donc appliqué la solution que tu as donné dans ton premier post.
mon souci est la msgbox n'apparait pas dès que le nombre est supérieur a 27.
elle apparait que si je clique sur un bouton que j'ai créé et qui m'efface la sélection.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:AG3")) Is Nothing Then
Exit Sub
Else
If WorksheetFunction.CountIf(Range("C3:AG3"), "CA") > 27 Then MsgBox "il ne reste plus de congés"
End If
End Sub
A mettre dans le code de la feuille (Clic-droit sur la feuille -> [Visualiser le code]