Comment faire apparaître une boîte de message si la cellule est supérieure ou inférieure à une valeur spécifique dans Excel?

Si une cellule est supérieure ou inférieure à une autre cellule, je dois faire apparaître une boîte de message pour alerter dans Excel. Comment résoudre ce problème dans Excel? Cet article, je vais parler de quelques codes pour y faire face.

Afficher une boîte de message si la valeur de la cellule dans une colonne est supérieure ou inférieure à une autre cellule

Afficher une boîte de message si la valeur de la cellule dans une cellule est supérieure ou inférieure à une autre cellule

Afficher une boîte de message si la valeur de la cellule dans une colonne est supérieure ou inférieure à une autre cellule

Supposons que j'ai un numéro spécifique 100 dans la cellule A1, maintenant, lorsque le nombre entré dans la colonne D est supérieur à 100 dans la cellule A1, une boîte de message doit être affichée pour rappeler à l'utilisateur.

Ici, le code VBA ci-dessous peut vous aider à le terminer, veuillez suivre les étapes suivantes:

1. Accédez à la feuille de calcul que vous souhaitez utiliser.

2. Cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications fenêtre, veuillez copier et coller le code suivant dans la fenêtre Module vide, voir capture d'écran:

Code VBA: affiche une boîte de message si la valeur de la cellule dans une colonne est supérieure ou inférieure à une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Notes: Dans le code ci-dessus, Sheet1 est votre feuille de calcul que vous souhaitez utiliser; A1 est la valeur de cellule avec laquelle vous souhaitez comparer; D: D est la colonne que vous souhaitez comparer avec la cellule A1.

3. Ensuite, enregistrez et fermez la fenêtre de code, à partir de maintenant, une boîte de message apparaîtra si vous entrez un nombre dans la colonne D qui est supérieur à 100, voir capture d'écran:

Afficher une boîte de message si la valeur de la cellule dans une cellule est supérieure ou inférieure à une autre cellule

Si vous souhaitez qu'une boîte de message s'affiche lorsqu'une valeur de cellule est supérieure ou inférieure à une autre cellule, veuillez appliquer le code ci-dessous:

1. Accédez à la feuille de calcul que vous souhaitez utiliser.

2. Cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications fenêtre, veuillez copier et coller le code suivant dans la fenêtre Module vide, voir capture d'écran:

Code VBA: affiche une boîte de message si la valeur de la cellule est supérieure ou inférieure à une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Notes: Dans le code ci-dessus, A1 et D1 sont les deux cellules avec lesquelles vous voulez comparer.

3. Ensuite, enregistrez et fermez la fenêtre de code, lors de la saisie d'une valeur inférieure à la valeur de la cellule A1, une boîte de message apparaîtra comme ci-dessous la capture d'écran:

Articles de boîte de message contextuels plus relatifs:

---

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...