Comment afficher une boîte de dialogue lorsqu’une cellule est supérieure ou inférieure à une valeur spécifique dans Excel ?

Si une cellule est supérieure ou inférieure à une autre, j’aimerais qu’Excel affiche automatiquement une boîte de dialogue d’alerte. Comment résoudre ce problème ? Dans cet article, je vous présente quelques codes efficaces pour y parvenir.

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

Afficher une boîte de dialogue si la valeur d’une cellule est supérieure ou inférieure à celle d’une autre cellule

---

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

Supposons que la cellule A1 contienne le nombre spécifique 100. Désormais, chaque fois qu’un nombre saisi dans la colonne D dépassera cette valeur (soit 100, telle que définie en A1), une boîte de dialogue s’affichera automatiquement pour alerter l’utilisateur.

Le code VBA ci-dessous vous permet d’effectuer cette opération. Suivez simplement 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, puis sélectionnez Afficher le code dans le menu contextuel. Une fois la fenêtre Microsoft Visual Basic pour Applications ouverte, copiez et collez le code suivant dans la fenêtre du module vide, comme illustré ci-dessous :

Code VBA : afficher une boîte de dialogue si la valeur d’une cellule dans une colonne est supérieure ou inférieure à celle d’une autre 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 correspond à la feuille de calcul que vous souhaitez utiliser ; A1 est la cellule dont la valeur sert de référence pour la comparaison ; D:D est la colonne à comparer avec la cellule A1.

3. Ensuite, sauvegardez et fermez la fenêtre de code. Désormais, chaque fois que vous saisirez un nombre supérieur à 100 dans la colonne D, une boîte de dialogue s’affichera, comme illustré ci-dessous :

---

---

Afficher une boîte de dialogue si la valeur d’une cellule est supérieure ou inférieure à celle d’une autre cellule

Si vous souhaitez qu’une boîte de dialogue s’affiche dès qu’une valeur de cellule devient supérieure ou inférieure à celle d’une autre cellule, appliquez le code suivant :

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

2. Cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le codedans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour Applicationsqui s’ouvre, copiez et collez le code suivant dans la fenêtre Module vide, comme illustré ci-dessous :

Code VBA : afficher une boîte de dialogue si la valeur d’une cellule est supérieure ou inférieure à celle d’une autre 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, sauvegardez et fermez la fenêtre de code. Lorsque vous saisissez une valeur inférieure à celle de la cellule A1, une boîte de dialogue s’affiche, comme sur la capture d’écran ci-dessous :

---

Plus d’articles connexes sur les boîtes de dialogue contextuelles :