Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
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 afficher une boîte de message pour l'alerte dans Excel. Comment résoudre ce problème dans Excel? Cet article, je vais parler de certains codes pour y faire face.

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

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


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

En supposant que je possède 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 apparaître pour rappeler l'utilisateur.

Ici, le code VBA ci-dessous peut vous aider à le terminer, procédez comme suit:

1. Allez à 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 menu contextuel Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans la fenêtre vide du module, voir capture d'écran:

Code VBA: affiche 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

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

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


Pop up 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 apparaisse lorsqu'une valeur de cellule est supérieure ou inférieure à une autre cellule, appliquez le code ci-dessous:

1. Allez à 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 menu contextuel Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans la fenêtre vide du module, voir capture d'écran:

Code VBA: affiche une boîte de message si la valeur de la cellule est supérieure ou inférieure à celle d'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

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

3. Ensuite, sauvegardez et fermez la fenêtre de code. Lorsque vous entrez une valeur inférieure à celle de la cellule A1, une boîte de message apparaîtra, comme indiqué ci-dessous:


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 toujours afficher une boîte de message contextuelle 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 le plus important dans votre travail quotidien. Et cet article, je vais parler de la façon de créer une boîte de message pop-up 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 de 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, sinon, arrêtez de l'exécuter. 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 une minuterie de boîte de message pour fermer automatiquement la boîte de message après un certain temps
  • Vous pouvez utiliser le script VBA fréquemment pour résoudre des problèmes lors de l'utilisation du classeur Excel. Et il y aura des boîtes de message apparues pendant le script en cours d'exécution. Dans certains cas, vous souhaitez que certaines boîtes de message spécifiées soient fermées automatiquement après un certain temps au lieu de les fermer manuellement. Dans cet article, nous allons vous montrer la méthode de création d'un temporisateur de boîte de message pour fermer automatiquement la boîte de message après un certain temps dans Excel.


  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes et conservation des données; Contenu des cellules divisées; Combinaison de lignes en double et somme / moyenne... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Favoris et insérer rapidement des formules, Plages, graphiques et images; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • 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 en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Tableau croisé dynamique groupé par numéro de semaine, jour de la semaine et plus ... Afficher les cellules déverrouillées et verrouillées de couleurs différentes; Mettre en surbrillance les cellules de formule / nom...
kte tab 201905
  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.