Si samedi ou dimanche

ru-th

21/10/2003 à 21:01

Salut

si tes besoins, pas besoin de proc, mais une validation ou une mise en forme
conditionnelle
la formule est =joursem(a1;2)>5 (de mémoire)

si tu veux du vba
dans une proc évementielle type selectionchange ou change
if target.column<>1 then exit sub
if application.weekday(target,2)>5 then msgbox "T'es fou ! mon gars, on est
le week-end !"

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de news:

Bonjour à toutes et tous
J'ai dans une colonne A3:A100 des jours de semaines, je désire créer une
proc qui puisse prévenir l'utilisateur si celui-ci saisit un samedi ou un
dimanche.
Merci beaucoup
Patrick

Crel

21/10/2003 à 21:18

Ok, je teste et contact.
Merci beaucoup
Patrick

"ru-th" a écrit dans le message de news:

Salut

si tes besoins, pas besoin de proc, mais une validation ou une mise en
forme

conditionnelle
la formule est =joursem(a1;2)>5 (de mémoire)

si tu veux du vba
dans une proc évementielle type selectionchange ou change
if target.column<>1 then exit sub
if application.weekday(target,2)>5 then msgbox "T'es fou ! mon gars, on
est

le week-end !"

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Bonjour à toutes et tous
J'ai dans une colonne A3:A100 des jours de semaines, je désire créer une
proc qui puisse prévenir l'utilisateur si celui-ci saisit un samedi ou
un

dimanche.
Merci beaucoup
Patrick

Crel

21/10/2003 à 21:26

Re,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
If Application.WeekDay(Target, 2) > 5 Then MsgBox "T'es fou ! mon gars, on
est le week-end !"
End Sub

Cela fonctionne, ainsi, mais je souhaite effacer la cellule s'il sagit d'un
week-end
"ru-th" a écrit dans le message de news:

Salut

si tes besoins, pas besoin de proc, mais une validation ou une mise en
forme

conditionnelle
la formule est =joursem(a1;2)>5 (de mémoire)

si tu veux du vba
dans une proc évementielle type selectionchange ou change
if target.column<>1 then exit sub
if application.weekday(target,2)>5 then msgbox "T'es fou ! mon gars, on
est

le week-end !"

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Bonjour à toutes et tous
J'ai dans une colonne A3:A100 des jours de semaines, je désire créer une
proc qui puisse prévenir l'utilisateur si celui-ci saisit un samedi ou
un

dimanche.
Merci beaucoup
Patrick

ru-th

21/10/2003 à 21:30

re-
If Application.WeekDay(Target, 2) > 5 Then target.clearcontents

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de news:
#

Re,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
If Application.WeekDay(Target, 2) > 5 Then MsgBox "T'es fou ! mon gars, on
est le week-end !"
End Sub

Cela fonctionne, ainsi, mais je souhaite effacer la cellule s'il sagit
d'un

week-end
"ru-th" a écrit dans le message de news:

Salut

si tes besoins, pas besoin de proc, mais une validation ou une mise en
forme

conditionnelle
la formule est =joursem(a1;2)>5 (de mémoire)

si tu veux du vba
dans une proc évementielle type selectionchange ou change
if target.column<>1 then exit sub
if application.weekday(target,2)>5 then msgbox "T'es fou ! mon gars, on
est

le week-end !"

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Bonjour à toutes et tous
J'ai dans une colonne A3:A100 des jours de semaines, je désire créer
une

proc qui puisse prévenir l'utilisateur si celui-ci saisit un samedi ou
un

dimanche.
Merci beaucoup
Patrick

Crel

21/10/2003 à 21:33

Merci beaucoup.
Bravo et merci
Patrick

"ru-th" a écrit dans le message de news:
#

re-
If Application.WeekDay(Target, 2) > 5 Then target.clearcontents

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

#
Re,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
If Application.WeekDay(Target, 2) > 5 Then MsgBox "T'es fou ! mon gars,
on

est le week-end !"
End Sub

Cela fonctionne, ainsi, mais je souhaite effacer la cellule s'il sagit
d'un

week-end
"ru-th" a écrit dans le message de news:

Salut

si tes besoins, pas besoin de proc, mais une validation ou une mise en
forme

conditionnelle
la formule est =joursem(a1;2)>5 (de mémoire)

si tu veux du vba
dans une proc évementielle type selectionchange ou change
if target.column<>1 then exit sub
if application.weekday(target,2)>5 then msgbox "T'es fou ! mon gars,
on

est
le week-end !"

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Bonjour à toutes et tous
J'ai dans une colonne A3:A100 des jours de semaines, je désire créer
une

proc qui puisse prévenir l'utilisateur si celui-ci saisit un samedi
ou

un
dimanche.
Merci beaucoup
Patrick

AV

22/10/2003 à 18:09

Pour éviter qques désagréments :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
If Application.Weekday(zz, 2) > 5 And zz <> "" Then
MsgBox "blabla...."
Application.EnableEvents = False
zz = ""
Application.EnableEvents = True
End If
End Sub

AV

Crel

22/10/2003 à 19:02

Merci beaucoup AV
Effectivement
Patrick

"AV" a écrit dans le message de news:
bn6ahq$n9u$

Pour éviter qques désagréments :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
If Application.Weekday(zz, 2) > 5 And zz <> "" Then
MsgBox "blabla...."
Application.EnableEvents = False
zz = ""
Application.EnableEvents = True
End If
End Sub

AV

Si samedi ou dimanche

7 réponses

Veuillez sélectionner un problème