Macro affiche message si cellule supérieur et inférieur.
Fermé
mimi13580
Messages postés
72
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
9 novembre 2015
-
20 déc. 2014 à 14:50
jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 - 20 déc. 2014 à 15:13
jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 - 20 déc. 2014 à 15:13
A voir également:
- Macro affiche message si cellule supérieur et inférieur.
- Recuperer message whatsapp - Guide
- Message d'absence thunderbird - Guide
- Excel cellule couleur si condition texte - Guide
- Laisser un message vocal et raccrocher - Forum Mobile
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
1 réponse
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
4 650
20 déc. 2014 à 15:13
20 déc. 2014 à 15:13
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
