Afficher une msgbox si valeur dans une cellule [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
lundi 12 novembre 2012
Statut
Membre
Dernière intervention
12 novembre 2012
-
myke59
Messages postés
3
Date d'inscription
lundi 12 novembre 2012
Statut
Membre
Dernière intervention
12 novembre 2012
-
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! :)


4 réponses

Messages postés
15135
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
30 mars 2020
1 243
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????
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 71250 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
lundi 12 novembre 2012
Statut
Membre
Dernière intervention
12 novembre 2012
1
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?
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 71250 internautes nous ont dit merci ce mois-ci

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
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
Messages postés
3
Date d'inscription
lundi 12 novembre 2012
Statut
Membre
Dernière intervention
12 novembre 2012
1
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