code VBA sur cellule

J

Jon

Guest

• 24 Mai 2004

• #2

bonjour

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

 

Vote positif 0 Vote négatif

T

titi

Guest

• 24 Mai 2004

• #3

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

 

Vote positif 0 Vote négatif

P

patrice

Guest

• 24 Mai 2004

• #4

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+

 

Vote positif 0 Vote négatif

T

titi

Guest

• 24 Mai 2004

• #5

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

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 24 Mai 2004

• #6

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

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 24 Mai 2004

• #7

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

 

Vote positif 0 Vote négatif

T

titi

Guest

• 24 Mai 2004

• #8

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

 

Vote positif 0 Vote négatif