Afficher une msgbox si valeur dans une cellule Résolu

Question

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! :)


Configuration: Windows XP / Chrome 23.0.1271.64

Yoda · Answer

Bonjour,

Essayes comme ça

Sub macro1()
Worksheets("Feuil1").Select
If Cells(1, 2).Value = "1" Then MsgBox ("1 est dans la cellule B1")
Else
MsgBox "1 n'est pas dans la cellule B1"
End If
End Sub

f894009 · Answer

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????

myke59 · Answer

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?

myke59 · Answer

Super ça marche sur cet exemple simple !!

Un grand Merci à vous 3 qui m'avez permis de résoudre ce problème!

:)
je clos le sujet

Afficher une msgbox si valeur dans une cellule

4 réponses

Discussions similaires

Newsletters