Note: The other languages of the website are Google-translated. Back to English

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:

  • 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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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 nomplus
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
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
Ce commentaire a été minimisé par le modérateur sur le site
Dans votre exemple VB ci-dessus, une boîte de message contextuelle se produit si la cellule A1 est inférieure à D1, ce qui fonctionne bien, mais comment puis-je créer également un message contextuel pour la cellule A2 est inférieure à D2, A3 est inférieure à D3 et ainsi de suite.
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cela, cela a très bien fonctionné ! Mais je veux savoir comment puis-je faire fonctionner cela si la cellule que je surveille dépend d'une cellule sur une autre feuille. Par exemple, A1 dans la feuille 1 change les valeurs si la cellule A3 dans la feuille 2 change. J'ai quelque chose comme ça et le message contextuel n'est pas apparu, uniquement lors de la modification manuelle de l'A1 sur la feuille 1.

Merci !
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL