procédure événementielle

5 réponses

patrick

14/09/2006 à 09:40

bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

5 réponses

Daniel

14/09/2006 à 10:20

Bonjour.

Private Sub Worksheet_Calculate()
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"patrick" a écrit dans le message de
news:

bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

patrick

15/09/2006 à 21:49

merci daniel pour ta réponse mais toujours rien, comment faire ????

Bonjour.

Private Sub Worksheet_Calculate()
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"patrick" a écrit dans le message de
news:
bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

Daniel

15/09/2006 à 22:36

Zut, ça fonctionne quand la date en A5 résulte d'une formule.
Daniel
"patrick" a écrit dans le message de
news:

merci daniel pour ta réponse mais toujours rien, comment faire ????

Bonjour.

Private Sub Worksheet_Calculate()
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"patrick" a écrit dans le message de
news:
bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma
procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

Daniel

16/09/2006 à 10:02

Bonjour.
Si tu saisis la date en A5 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.address <> "$A$5" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"Daniel" a écrit dans le message de news:

Zut, ça fonctionne quand la date en A5 résulte d'une formule.
Daniel
"patrick" a écrit dans le message de
news:
merci daniel pour ta réponse mais toujours rien, comment faire ????

Bonjour.

Private Sub Worksheet_Calculate()
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"patrick" a écrit dans le message de
news:
bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma
procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

patrick

18/09/2006 à 22:10

bonjour daniel et toutes mes excuses
ta formule marche tres bien
c'etait une grosse erreur de ma part en recopiant la formule
encore merci et pardon
patrick

Bonjour.
Si tu saisis la date en A5 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.address <> "$A$5" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"Daniel" a écrit dans le message de news:

Zut, ça fonctionne quand la date en A5 résulte d'une formule.
Daniel
"patrick" a écrit dans le message de
news:
merci daniel pour ta réponse mais toujours rien, comment faire ????

Bonjour.

Private Sub Worksheet_Calculate()
If WorksheetFunction.Weekday([A5]) = 3 Then
[E15] = "XXX"
Else
[E15] = ""
End If
End Sub

Cordialement.
Daniel
"patrick" a écrit dans le message de
news:
bonjour à tous
pourriez-vous m'aider.. je n'arrive pas à faire fonctionner ma
procédure à
chaque
changement de date

exemple: si (joursem)=2 (mardi) en (A5) = "XXXXX" en (E15).
merci de votre aide
patrick

procédure événementielle

5 réponses

Veuillez sélectionner un problème