Créer une alerte dans Excel [Résolu]

Salut,

Avec une mise en forme conditionnelle peut être !

Mise en forme conditionnel/Nouvelle régle/Utiliser une formule pour déterminer pour quelle cellule le format s'applique
saisir cette formule =A1<5
et choisi une format de police ou de remplissage

ou encore
exemple sélectionne la plage A1 = B20
Mise en forme conditionnelle/Régles de mise en surbrillance des cellules/Inférieur à
saisir 5
et choisis une couleur

Bonjour, vous deux.

Autre type de solution, la Validation de données :

1) Sélectionner les cellules.
2) Dans l'onglet Données, lancer l'assistant Validation des données.
3) Autoriser Décimal
4) Données Supérieure ou égale à
5) Minimum : 5
6) Dans l'onglet Alerte d'erreur de cette fenêtre, choisir le Style Informations et dans la zone Titre mettre un message du genre "Valeur inférieure à 5 !".

Cordialement.

Super merci !

Mais est-ce que cela fonctionne aussi si la valeur provient d'une formule ??

Car aucune alerte ne se produit.

Ou alors quand est-ce qu'elle se produit ??

Merci !

Ah ! Voila une information que tu n'avais pas donnée au départ ...

C'est nettement plus compliqué, et il faut nécessairement que j'aie ton fichier pour examiner toutes les cellules qui interviennent dans le calcul.

Bonjour Mike, Raymond, cocoviet,

Tout d'abord, j'en profite pour te présenter, Raymond, mes meilleurs voeux pour toi et tes proches. Une très bonne année 2012. Je renouvele ces voeux auprès de Mike, tant qu'à faire.

@cocoviet : très bonne année également.
Si tu tiens vraiment à obtenir un message lorsqu'une cellule (valeur issue de formules) est inférieure à 5, il te faut passer par une macro événementielle.
Essaye ce code qui t'envoie un message Si E39 < 5 :
1- depuis la feuille concernée : Clic droit sur l'onglet/Visualiser le code
2- dans le module de la feuille qui vient de s'ouvrir, copier/coller ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E39") < 5 Then
    MsgBox "Oulalalala"
End If
End Sub

3- fermer la fenêtre de l'éditeur visual basic et tester...

J'ai cru comprendre que plusieurs cellules étaient concernées. Pour ça tu peux adapter le code en :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, maPlage As Range
Set maPlage = Union(Range("A1"), Range("B2"), Range("C3"), Range("E3"))
For Each Cel In maPlage
    If Cel < 5 Then
        MsgBox "Oulalalala, en : " & Cel.Address
        Exit For
    End If
Next
End Sub

!!!!! Le problème de ce genre de code est que tant que la valeur ne changera pas, tu recevra ce message!!! Et c'est pas cool.
Si tu souhaites être averti une fois et après plus rien, on peux.
Tu dis.