Afficher une msgbox si valeur dans une cellule

Résolu/Fermé

Valeur
Vba

myke59 Messages postés 3 Date d'inscription lundi 12 novembre 2012 Statut Membre Dernière intervention 12 novembre 2012 - 12 nov. 2012 à 09:50
myke59 Messages postés 3 Date d'inscription lundi 12 novembre 2012 Statut Membre Dernière intervention 12 novembre 2012 - 12 nov. 2012 à 14:12

Bonjour,
Je suis débutant en vba
Je suis plutot une personne qui me débrouiller mais je commence à perdre patience sur un sujet qui me semble simplissime
Avant de passer le PC par la fenetre, je viens vous demander de l'aide.

Sub macro1()

Worksheets("Feuil1").Select
If Cells(1, 2).Value = "1" Then
MsgBox ("1 est dans la cellule B1")

End Sub

Je précise que la validation de données ne semble pas pouvoir s'appliquer étant donné que ce qui est dans la case B1 est le résultat d'une formule.

Si l'un d'entre vous s'est en déjà sorti, je serai ravi de savoir comment...

un grand merci d'avance! :)

A voir également:

Excel afficher message si valeur
Diff message ✓ - Forum Mobile
Liste déroulante excel - Guide
Formule excel si contient texte alors valeur ✓ - Forum Excel
Si et excel - Guide
Recuperer message whatsapp - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 nov. 2012 à 10:23

Bonjour,

pour votre macro manque le end if

Sub macro1()
  If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then
    MsgBox ("1 est dans la cellule B1")
  End If
End Sub

Vous ne dites pas comment cette macro se lance????

Réponse 2 / 4

myke59 Messages postés 3 Date d'inscription lundi 12 novembre 2012 Statut Membre Dernière intervention 12 novembre 2012 1
12 nov. 2012 à 10:32

Merci pour ce bon début de réponse,

Cette macro doit s'appliquer de manière permanente (genre en arrière plan).
des que le resultat de la formule en cellule B1.
Or la elle ne s'applique que lorsqu'on l'execute. avez vous la solution?

G_33
12 nov. 2012 à 11:10

placez le code dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then
MsgBox ("1 est dans la cellule B1")
End If

End Sub

cordialement

Discussions similaires

Donner la valeur d'une cellule à une variable

Excel si cellule contient texte alors...

VBA cellule egale a une autre

VBA : Copier valeur de cellules dans une autre feuilles

Compter dans VBA le nombre de cellule non vide dans une colonne

Copier des valeurs sans formules [VB]

Discussions similaires

Newsletters