Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2016Vérifier si la valeur d'une cellule est plus grande que 1
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour,
Comment peut on exprimer en VBA dans une boucle la condition suivante :
Si la valeur d'une cellule dans la la plage suivante est plus grande que 1
Si vrai afficher le message suivant ....
Sinon rien faire
Merci pour votre aide.
Bonjour job75
je n'arrive pas à adapter ce code. je joins un exemple, c'est plus simple
le but est de parcourir la plage en permanence et afficher un msgbox "xxxxxxxxxxxxxxx" si la valeur >1
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
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 Job75
voici votre code final et qui fonctionne cette fois ci
VB:
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
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.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD