Accéder au contenu principal

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

Author: Xiaoyang Last Modified: 2025-05-27

Si une cellule est supérieure ou inférieure à une autre cellule, je dois afficher une boîte de message pour avertir dans Excel. Comment résoudre ce problème dans Excel ? Dans cet article, je vais parler de quelques codes pour y remédier.

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

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


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

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

Ici, le code VBA ci-dessous peut vous aider à accomplir cette tâche, veuillez suivre les étapes suivantes :

1. Allez dans la feuille de calcul que vous souhaitez utiliser.

2. Cliquez avec le bouton droit sur l'onglet de la feuille, puis sélectionnez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, copiez et collez le code suivant dans la fenêtre Module vide, voir capture d'écran :

Code VBA : afficher une boîte de message si la valeur d'une 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

Remarque : Dans le code ci-dessus, Feuil1 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.

click View Code from right click menu arrow right paste the vba code into the module

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 :

pop up message box if cell greatern or less than a specific value



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

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

1. Allez dans la feuille de calcul que vous souhaitez utiliser.

2. Cliquez avec le bouton droit sur l'onglet de la feuille, puis sélectionnez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, copiez et collez le code suivant dans la fenêtre Module vide, voir capture d'écran :

Code VBA : afficher une boîte de message si la valeur d'une 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

Remarque : Dans le code ci-dessus, A1 et D1 sont les deux cellules que vous souhaitez comparer.

3. Ensuite, enregistrez et fermez la fenêtre de code. Lorsque vous entrez une valeur qui est inférieure à la valeur dans la cellule A1, une boîte de message apparaîtra comme le montre la capture d'écran ci-dessous :

pop up message box if cell greatern or less than another cell value


Plus d'articles relatifs aux boîtes de message contextuelles :

  • 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 souvenir de faire la chose la plus importante dans votre travail quotidien. Et dans 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 déclencher directement une macro en appuyant sur la touche F5 ou en cliquant sur le bouton Exécuter dans la fenêtre Microsoft Visual Basic for 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, sinon arrêtez l'exécution du code. Dans cet article, je vais parler de la façon de 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 utilisez peut-être fréquemment des scripts VBA pour résoudre des problèmes tout en utilisant un classeur Excel. Et il y aura des boîtes de message qui apparaîtront pendant l'exécution du script. Dans certains cas, vous souhaiteriez que certaines boîtes de message spécifiques se ferment automatiquement après un certain temps plutôt que de les fermer manuellement. Dans cet article, nous vous montrerons la méthode pour créer un minuteur de boîte de message afin de fermer automatiquement la boîte de message après un certain temps dans Excel.

  • Barre de formule avancée (éditez facilement plusieurs lignes de texte et de formules); Mode Lecture (lisez et éditez facilement un grand nombre de cellules); Coller dans une plage filtrée...
  • Fusionner des cellules/lignes/colonnes tout en conservant les données; Diviser le contenu des cellules; Consolider des lignes en double et faire la somme/moyenne... Empêcher les doublons dans les cellules; Comparer des plages...
  • Sélectionner des lignes en double ou uniques; Sélectionner des lignes vides (toutes les cellules sont vides); Super Recherche et recherche floue dans de nombreux classeurs; Sélection aléatoire...
  • Copie exacte de plusieurs cellules sans changer les références de formule; Créer automatiquement des références vers plusieurs feuilles; Insérer des puces, des cases à cocher et plus encore...
  • Ajouter et insérer rapidement des formules, des plages, des graphiques et des images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails...
  • Extraire du texte, ajouter du texte, supprimer par position, supprimer des espaces; Créer et imprimer des statistiques de page; Convertir entre le contenu des cellules et les commentaires...
  • Super Filtre (enregistrer et appliquer des schémas de filtre à d'autres feuilles); Tri avancé par mois/semaine/jour, fréquence et plus; Filtre spécial par gras, italique...
  • Consolider des classeurs et feuilles de calcul; Fusionner des tables basées sur des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots de fichiers xls, xlsx et PDF...
  • Regroupement dans les tableaux croisés dynamiques par numéro de semaine, jour de la semaine et plus... Afficher les cellules verrouillées/déverrouillées avec différentes couleurs; Mettre en évidence les cellules contenant des formules/noms...
kte tab 201905
  • Activer l'édition et la lecture à onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrir et créer 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 !
officetab bottom