Macro affiche message si cellule supérieur et inférieur.
mimi13580
Messages postés
72
Statut
Membre
-
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, le Forum
Débutant en VBA, je recherche à mettre en place une macro qui permet d'afficher un message "valeur hors fourchettes" si ("B1:L1") inférieur a 10 et superieur a 20.
merci d'avance
Débutant en VBA, je recherche à mettre en place une macro qui permet d'afficher un message "valeur hors fourchettes" si ("B1:L1") inférieur a 10 et superieur a 20.
merci d'avance
1 réponse
-
Bonjour,
Sub test() Dim AuMoinsUneErreur As Integer Dim CoordonnesCellErreur As String Dim maplage As Range Set maplage = Range("B1:L1") CoordonnesCellErreur = "" AuMoinsUneErreur = 0 For Each cell In maplage valeur = cell.Value If valeur < 10 Or valeur > 20 Then AuMoinsUneErreur = AuMoinsUneErreur + 1 CoordonnesCellErreur = CoordonnesCellErreur & ", " & cell.Address End If Next If AuMoinsUneErreur > 0 Then MsgBox "valeur hors fourchettes dans les cellules " & CoordonnesCellErreur End If End Sub
