Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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 à ces émotions et de 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:

  • Créer une boîte de message contextuelle lors de l'ouverture d'un fichier Excel
  • Dans certains cas, vous souhaiterez peut-être qu'une boîte de message s'affiche toujours pour vous rappeler ce que vous devez faire en premier lorsque vous ouvrez un classeur spécifique, cela peut vous aider à vous rappeler de faire la chose la plus importante dans votre travail quotidien. Et cet article, je vais parler de la façon de créer une boîte de message contextuelle lors de l'ouverture d'un fichier Excel.
  • Créer une boîte de message Oui Non avant d'exécuter une macro dans Excel
  • Dans Excel, vous pouvez directement déclencher une macro en appuyant sur la touche F5 ou en cliquant sur le bouton Exécuter dans la fenêtre Microsoft Visual Basic pour Applications. Mais, parfois, vous souhaiterez peut-être créer une boîte de message qui demandera à l'utilisateur s'il souhaite exécuter la macro. Si oui, continuez à exécuter le code, si non, arrêtez d'exécuter le code. Dans cet article, je vais expliquer comment créer une boîte de message oui non avant d'exécuter une macro dans Excel.
  • Créer un minuteur de boîte de message pour fermer automatiquement la boîte de message après un certain temps
  • Vous pouvez utiliser fréquemment le script VBA pour résoudre des problèmes lors de l'utilisation du classeur Excel. Et des boîtes de message apparaîtront pendant l'exécution du script. Dans certains cas, vous souhaitez que certaines boîtes de message spécifiées soient fermées automatiquement après un certain temps plutôt que de les fermer manuellement. Dans cet article, nous allons vous montrer la méthode de création d'un minuteur de boîte de message pour fermer automatiquement la boîte de message après un certain temps dans Excel.


  • 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...
onglet kte 201905
  • 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!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    kalhid · 8 months ago
    Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Trevor · 1 years ago
    In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
  • To post as a guest, your comment is unpublished.
    STUARDO · 1 years ago
    GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100