Comment faire apparaître une boîte de message lorsque la valeur d’une cellule est égale à « X » dans Excel ?
Afficher une boîte de message s’avère particulièrement utile lorsqu’on recherche un contenu précis dans une plage limitée. Par exemple, vous souhaitez vérifier si la valeur 50 est présente dans la plage A1:C7, et obtenir immédiatement une notification indiquant si cette valeur existe ou non. Les deux méthodes suivantes vous permettront d’y parvenir facilement.
Faire apparaître une boîte de message si la cellule La valeur est égale à « X » avec du code VBA
Faire facilement apparaître une boîte de message si la cellule La valeur est égale à « X » avec Kutools pour Excel
Faire apparaître une boîte de message si la cellule La valeur est égale à « X » avec du code VBA
Le code VBA suivant permet d’afficher automatiquement une boîte de message dès qu’une valeur spécifique est détectée dans la plage définie. Procédez comme suit.
1. Dans la feuille de calcul où vous devez vérifier les valeurs dans la plage limitée, cliquez avec le bouton droit sur le nom de l’onglet en bas de la feuille, dans la barre d’onglets, puis cliquez sur Afficher le code dans le menu contextuel. Voir la capture d’écran :
2. Dans la fenêtre Microsoft Visual Basic pour Applications, copiez et collez le code VBA suivant dans la fenêtre de code.
Code VBA : faire apparaître une boîte de message si la cellule La valeur 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 Sub3. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications et revenir à la feuille de calcul.
Désormais, dès qu’une valeur de cellule est modifiée dans la plage A1:C7 et qu’elle devient égale à « 50 », une boîte de message s’affiche comme illustré ci-dessous.
Par ailleurs, il vous suffit de sélectionner une plage pour faire apparaître la boîte de message si la valeur recherchée est présente.
Remarques:
Faire apparaître une boîte de message si la cellule La valeur 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. Procédez comme suit.
1. Sélectionnez la plage dans laquelle vous souhaitez rechercher l’existence d’une valeur, 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 choisissez Égal à dans la première liste déroulante Spécifier le type, saisissez la valeur recherchée dans la zone de texte suivante, puis cliquez sur le bouton OK.
Si la valeur recherchée est présente dans la plage limitée, la boîte de message suivante s’affiche : cliquez sur le bouton OK pour que la cellule correspondante soit automatiquement sélectionnée.
Sinon, vous obtiendrez la boîte de message illustrée ci-dessous.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Articles associés :
- Comment supprimer une ligne entière si la cellule contient zéro dans Excel ?
- Comment compter les cellules contenant un texte spécifique dans une sélection sous Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels