code VBA sur cellule

[titi]

Bonjour le forum.
j'ai une petite demande a formuler.
Dans la collonne B d'un fichier j'ai une liste en B2 avec les jours de la semaine, je rentre des valeurs en B3.B4.B5.B6.B7.B8.B9.B10.B11.
Lorsque je rentre une valeur en B9, si le jour de la semaine est un lundi je voudrais q'un message apparaîsse (vous êtes le lundi 29/04 par exemple)
Pouvez vous m'aider
Titi

 

[Jon]

bonjour

dans une formule, il faut utiliser les fonctions DATE et JOURSEM au sein d'une fonction SI

 

[titi]

Salut Jon, et merci de ta réponse
Je crois m'être mal expliqué la cellule B2 contient une date par exemple (lundi 15/02/04)
je rentre des valeur en B3 B4 B4 B5 B6 B7 B8 B9 et sur la cellule B9 un message apparaît pour me dire que nous sommes le (lundi 15/02/04)
Je reformule si problème de conphrension.
Titi

 

[patrice]

Bonjour titi, Jon et au forum
A mettre dans la feuille consernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Address <> "$B$9" Then Exit Sub
MsgBox ("Nous sommes le " & Range("B2"))
End Sub
A+

 

[titi]

Merci beaucoup Patrice, ça fonctionne plutôt pas mal, mais il faudait que ce message apparaisse que lorsque il y a lundi en b2 mais pas pour le mardi mercredi etc
le message pourrait être "attention nous sommes un lundi".
Si tu as une solution
merci
Titi

 

[Pascal76]

Salut titi et le forum

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$9" Then Exit Sub
If Weekday(Range("B2")) = 2 Then MsgBox ("Nous sommes lundi")
End Sub

Bon courage

Pascal

 

[Pascal76]

re

Si tu veux l'avertissement avant de remplir ta cellule B9 utilise plutôt comme Patrice disait :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$B$9" Then Exit Sub
If Weekday(Range("B2")) = 2 Then MsgBox ("Nous sommes lundi")
End Sub

Pascal

 

[titi]

Bonjour Pascal et merci c'est exactement ce qu'il me faut
Bonne apres midi
Titi