Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème. Ce code ci-dessous me permet dans une application de ne saisir que dans les zones vides et qui ne sont pas un jour de week-end.
Par contre, je n'arrive pas à coder le fait que si la cellule correspond à un jour férié, saisie impossible. Les jours fériés sont indiqués dans une feuille nommée "Don" et une zone nommée "fériés".
Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long
Dim Lig As Long
Dim A As Long
    If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub
    If IsEmpty(ActiveCell.Value) Then
Lig = 5
Col = ActiveCell.Column
A = Cells(Lig, Col).Value
    If A = 0 Then Col = Col - 1
    If Weekday(Cells(Lig, Col).Value) <> 1 And Weekday(Cells(Lig, Col).Value) <> 7 Then
Load FrmAbs
FrmAbs.Show
    End If
 End If
End Sub

J'ai également une autre question : Comment peut-on insérer la date du jour dans la barre de titre d'un UserForm ?
Merci pour votre aide

[fred65200]

bonjour,
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long
Dim Lig As Long
Dim A As Long
If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub
If IsNumeric(Application.Match(Target, Sheets("Don").Range("fériés"), 0)) Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
  Lig = 5
  Col = ActiveCell.Column
  A = Cells(Lig, Col).Value
      If A = 0 Then Col = Col - 1
  '    If Weekday(Cells(Lig, Col).Value) <> 1 And Weekday(Cells(Lig, Col).Value) <> 7 Then
      If Weekday(Cells(Lig, Col).Value, 2) < 6 Then
        Load FrmAbs
        FrmAbs.Show
      End If
 End If
End Sub

cordialement

[fred65200]

re

je n'avais pas lu la 2ème question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
Me.Caption = Date
End Sub

[NEC14]

Bonjour fred65200,

J'ai essayé le code mais cela ne fonctionne pas.
Par contre le 2ème, insérer date dans une UserForm ça fonctionne.
Mais est-ce que l'on peut mettre un titre + la date ?

Quelqu'un a-t-il une idée ?

[fred65200]

rebonjour

Point n°1 : Remplace Target par Cells(Lig, Col).Value
Si ça ne fonctionne toujours pas, le mieux serait que tu nous mettes un classeur au format .ZIP sans donnée personnelle.

Point n°2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim monTitre as String
monTitre = "Un titre quelconque"
Me.Caption = monTitre & " - " & Date
End Sub

cordialement

[NEC14]

Bonjour fred65200

Pour le point n°2 c'est ok.
Pour le point n°1 c'est ok également, par contre j'ai modifié un peu le code que tu m'as donné car cela ne fonctionnait pas.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long
Dim Lig As Long
Dim A As Long
    If Intersect(Range("ZO1"), ActiveCell) Is Nothing Then Exit Sub
    If IsEmpty(ActiveCell.Value) Then
Lig = 5
Col = ActiveCell.Column
A = Cells(Lig, Col).Value
    If A = 0 Then Col = Col - 1
    If Weekday(Cells(Lig, Col).Value) <> 1 And Weekday(Cells(Lig, Col).Value) <> 7 Then
    If IsNumeric(Application.Match(Cells(Lig, Col), Sheets("Don").Range("fériés"), 0)) Then Exit Sub
Load FrmAbs
FrmAbs.Show
        End If
    End If
End Sub

Merci beaucoup pour ton aide, j'apprécie le sérieux avec lequel chacun prend soin de répondre et ce n'est pas toujours le cas sur d'autres sites d'entraide.

[fred65200]

bonjour

Effectivement col et lig n'étaient pas initialisée avant la ligne de code.

tu peux tout de même remplacer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Weekday(Cells(Lig, Col).Value) <> 1 And Weekday(Cells(Lig, Col).Value) <> 7 Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Weekday(Cells(Lig, Col).Value, 2) < 6 Then

une seule condition.

cordialement

[NEC14]

Je n'avais pu vu cette modification
Merci du rappel