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 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 20 déc. 2014 à 15:13
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 20 déc. 2014 à 15:13
A voir également:
- Macro affiche message si cellule supérieur et inférieur.
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Arrondi 0.5 supérieur ou inférieur ✓ - Forum Excel
- Macro logiciel - Télécharger - Organisation
- Signe supérieur et inférieur clavier azerty ✓ - Forum Windows 8 / 8.1
- Recuperer message whatsapp - Guide
1 réponse
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
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