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 pour afficher la boîte de message si la valeur de la cellule change dans une plage dans Excel?

Parfois, vous devez vous rappeler les changements dans une plage dans une certaine feuille de calcul. Donc, une boîte de message pop-up vous fera une faveur si la valeur de la cellule a changé dans une certaine fourchette. Vous pouvez le réaliser avec une méthode VBA dans cet article.

Fenêtre contextuelle si la valeur de la cellule change dans une plage avec le code VBA


flèche bleue droite bulle Fenêtre contextuelle si la valeur de la cellule change dans une plage avec le code VBA


Le code VBA suivant affichera une boîte de message si la valeur de la cellule change dans une plage spécifiée d'une certaine feuille de calcul. S'il vous plaît faire comme suit.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez sur le nom de la feuille (la plage spécifiée existe dans) dans la barre de gauche pour ouvrir son Code fenêtre, puis copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA: afficher une boîte de message si la valeur de la cellule change dans une plage

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Note: vous pouvez modifier la plage spécifiée A1: E19 dans le code à la plage dont vous avez besoin.

3. presse autre + Q touches en même temps pour fermer le Microsoft Visual Basic pour applications fenêtre.

Pour l'instant, lorsque les valeurs des cellules de la plage A1: E19 ont changé, une boîte de message apparaîtra automatiquement. Voir la capture d'écran:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

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.
  • To post as a guest, your comment is unpublished.
    Ioannis Palierakis · 1 years ago
    Hi everyone & thanks for help!!!!

    How could I modify the VBA and say that if the Range B1:B50 is less than or equal to Range A1:B50 then MsgBox......?????
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Do you mean the total sum of range b1:b50?
  • To post as a guest, your comment is unpublished.
    igp · 1 years ago
    Hi everyone & thanks for the VBA.

    I was just wondering how to modify the VBA in case that I want the MsgBox only if for example the cell value B1 is <= than A1


    Thanks for your assistance!!!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Please try below VBA code:

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo ExitSub
      Dim One As Long
      Dim Two As Long
      One = Range("A1").Value
      Two = Range("B1").Value
      If Not (Application.Intersect(Range("A1:B1"), Target) Is Nothing) Then
      If (One > Two) Then
      MsgBox "Range(""A1"") > Range(""B1"")", vbInformation, "Kutools for Excel"
      End If
      End If
      ExitSub:
      End Sub
  • To post as a guest, your comment is unpublished.
    Naveen Ruppa · 1 years ago
    Considering the above example.(VBA code: pop up message box if cell value changes within a range)

    when the value of D14 has changed we get a pop up, in the similar way how to get the ID of that (column A of the same row (A14)).
    Thanks in advance, any response is appreciable.
  • To post as a guest, your comment is unpublished.
    Naveen · 1 years ago
    considering the above output there is a question.
    we got a pop message when the D14 has changed, in the similar can way can we get the ID (data of the same row of the column A) in the pop up message??