Macro affiche message si cellule supérieur et inférieur.
mimi13580
Messages postés
72
Date d'inscription
Statut
Membre
Dernière intervention
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 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
A voir également:
- Macro affiche message si cellule supérieur et inférieur.
- Excel cellule couleur si condition texte - Guide
- Recuperer message whatsapp supprimé - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
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
