Bonjour job75Bonsoir dindin,
Dim c As Range
If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Bonsoir"
A+
Bonjour JHABonjour à tous,
Peut-être plus simple avec une validation des données
JHA
Vous n'avez pas fait beaucoup d'effort !Je n'arrive pas à adapter ce code.
Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Valeur " & c & " en " & c.Address(0, 0), , "Valeur > 1"
Next
End Sub
Merci Job75Bonjour dindin, JHA,
Vous n'avez pas fait beaucoup d'effort !
A+VB:Sub Test() Dim c As Range For Each c In ActiveSheet.UsedRange If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Valeur " & c & " en " & c.Address(0, 0), , "Valeur > 1" Next End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In ActiveSheet.Range("M15:o2300")
If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Le vacataire : " & ActiveCell & " est sélectionné plus d'une fois, voir " & c.Address(0, 0), , "Attention remplacement non autorisé"
Next
End Sub
je l'ai déjà fait avec la MFC, j'ai voulu rajouté encore un petit message de rappel.Bonjour à tous,
Il n'y a aucune formule dans le fichier d'origine.
Tu as aussi les MFC
JHA
le fichier gère un planning de vacation, dons si un nom est sélectionné depuis une liste déroulante plus d'une fois par jour, le msgbox récupéré le dernier nom sélectionné pour alerter que tel personne est sélectionnée par erreur.Bonjour dindin, le forum,
Au post #8 le message avec ActiveCell me paraît bizarre.
A+