Comment faire apparaître une boîte de message si la valeur de cellule est égale à « X » dans Excel ?

L'apparition d'une boîte de message aide beaucoup lors de la recherche de contenu spécifique dans une plage donnée. Par exemple, vous cherchez une valeur de cellule égale à 50 dans une plage A1:C7, et vous avez besoin qu'une boîte de message s'affiche pour vous dire si cette valeur existe ou non. Les deux méthodes suivantes peuvent vous aider.

Faire apparaître une boîte de message si la valeur de cellule est égale à « X » avec du code VBA
Faire facilement apparaître une boîte de message si la valeur de cellule est égale à « X » avec Kutools pour Excel

Faire apparaître une boîte de message si la valeur de cellule est égale à « X » avec du code VBA

Le code VBA suivant peut aider à créer une boîte de message qui s'affiche lorsque la valeur recherchée existe dans une plage spécifiée. Veuillez procéder comme suit.

1. Dans la feuille de calcul où vous devez vérifier les valeurs dans une plage spécifiée, faites un clic droit sur le nom de l'onglet dans la barre des onglets, puis cliquez sur Affichage Code dans le menu contextuel. Voir capture d'écran :

2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA suivant dans la fenêtre Code.

Code VBA : faire apparaître une boîte de message si la valeur de cellule est égale à « X »

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications et revenir à la feuille de calcul.

Désormais, lorsque les valeurs des cellules sont modifiées dans la plage A1:C7 et qu'il y a une valeur de cellule égale à « 50 », vous obtiendrez une boîte de message comme indiqué dans la capture d'écran ci-dessous.

De plus, vous pouvez simplement sélectionner la plage pour afficher la boîte de message si la valeur de cellule existe.

Remarques :

Faire apparaître une boîte de message si la valeur de cellule est égale à « X » avec Kutools pour Excel

L'utilitaire Sélectionner des cellules spécifiques de Kutools pour Excel peut également vous aider à résoudre ce problème. Veuillez procéder comme suit.

1. Sélectionnez la plage dans laquelle vous souhaitez vérifier si la valeur de cellule existe, puis cliquez sur Kutools > Sélectionner > Sélectionner des cellules spécifiques.

2. Dans la boîte de dialogue Sélectionner des cellules spécifiques, sélectionnez l'option Cellule dans la section Sélectionner le type, puis sélectionnez Égal à dans la première liste déroulante Spécifier le type et tapez la valeur de cellule dans la zone de texte suivante, et enfin cliquez sur le bouton OK.

Si la valeur de cellule existe dans la plage spécifiée, vous obtiendrez la boîte de message suivante, cliquez sur le bouton OK, la cellule sera sélectionnée.

Sinon, vous obtiendrez la boîte de message comme indiqué dans la capture d'écran ci-dessous.

Articles connexes :

• Comment supprimer toute la ligne si la cellule contient zéro dans Excel ?
• Comment compter les cellules avec un texte spécifique dans la sélection dans Excel ?