Discussion :

[alexandrud]

Bonjour,

Je suis en train de travailler sur un fichier qui, à terme, gèrera les congés de mon groupe.

mon fichier est quasiment terminé. actuellement je souhaiterais griser et interdire (pour modification) des cellules qui correspondent aux jours fériés et aux weekends.

j'ai donc une feuille (appelée "Data") qui contient les jours fériés et les weekends.

j'ai pensé à mettre un x et griser cette case s'il s'agit d'un des ces jours. une autre macro (qui valide les congés) va interdire la modification des ces cases par la suite ...

voici la macro que j'ai fait. pour l'instant c'est juste le mois de janvier qu'elle gère (par contre, à la fin elle ne fait rien ... elle devrait me mettre un x dans la case correspondant à "janvier 1", car dans la feuille "Data" j'ai bien janvier 1 ...):

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub weekend()
 
ActiveSheet.Unprotect Password:="admin"
 
Dim janv, fev, mars, avr, mai, juin, juil, aout, sept, oct, nov, dec As Variant
Dim jour As Integer
Dim i As Integer
Dim j As Integer
 
 
For Each cell In Range("C3:AG3") ' C3:AG3 représente les jours de 1 à 31 (valeurs 1 à 31 dans les cases) 
 
For i = 1 To 33 ' pour les 31 jours du mois
For j = 3 To 33
jour = Cells(3, i).Value 'jour va prendre a chaque fois la valeur de la cellule C3, D3 et ainsi de suite jusqu'au AG3
 
jan = "janvier" & " " & jour 'pour janvier on va avoir des résultats du genre janvier 1, janvier 2 etc
fev = "février" & " " & jour
mars = "mars" & " " & jour
avr = "avril" & " " & jour
mai = "mai" & " " & jour
juin = "juin" & " " & jour
juil = "juillet" & " " & jour
aout = "août" & " " & jour
sept = "septembre" & " " & jour
oct = "octobre" & " " & jour
nov = "novembre" & " " & jour
dec = "décembre" & " " & jour
'sam = "samedi" & " " & jour 'pour l'instant samedi et dimanche pas pris en compte
'dim = "dimanche" & " " & jour
If jan = Worksheets("Data").Cells(i, 1).Value Then Cells(5, j).Value = "x" ' mettre x si weekend/férié
If jan = Worksheets("Data").Cells(i, 1).Value Then Cells(5, j).Interior.ColorIndex = 16 ' mettre du GRI si férié
 
Next j
Next i
Next
 
ActiveSheet.Protect Password:="admin"
 
End Sub

quand je fais du débogage pas à pas , pour i et j excel me dit que les 2 prennent la valeur 34

je ne suis pas un as des macros, j'essai de faire et comprendre par moi même..

Merci par avance

[eric4459]

Bonjour Alexandre,
Il faudrait connaitre quelles sont les données en dur sur ta feuille, hormis celles qui figurent en "C3:AG3" et en "B1:B12", donc jours et mois.
Eric

[Philippe Tulliez]

Bonjour,
Tu te donnes beaucoup de mal en déclarant 12 variables nommées d'un nom de mois alors que l'utilisation d'une variable tableau dimensionnée de 1 à 12 te faciliterait la vie.
De plus il existe une fonction MonthName qui te renvoie le nom du mois (Exemple MonthName(1) te renverra Janvier)
Je te conseille la lecture de ces deux tutoriels Utiliser les variables tableaux en VBA Excel et Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[alexandrud]

Bonjour Alexandre,
Il faudrait connaitre quelles sont les données en dur sur ta feuille, hormis celles qui figurent en "C3:AG3" et en "B1:B12", donc jours et mois.
Eric

Bonjour Eric,

voici un extrait de mon fichier Excel ... en espérant que c'est clair

[alexandrud]

Bonjour,
Tu te donnes beaucoup de mal en déclarant 12 variables nommées d'un nom de mois alors que l'utilisation d'une variable tableau dimensionnée de 1 à 12 te faciliterait la vie.
De plus il existe une fonction MonthName qui te renvoie le nom du mois (Exemple MonthName(1) te renverra Janvier)
Je te conseille la lecture de ces deux tutoriels Utiliser les variables tableaux en VBA Excel et Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Bonjour Philippe,

Je ne connaissais pas cette fonction. je vais regarder.

Merci

[eric4459]

Bonjour Alexandrud, le Forum

Voici un code qui gère les week-ends y compris les années bissextiles. Par contre pour gérer les jours fériés je bloque.

Pour ceux qui n'ouvrent pas les pièces jointes, voici une description:
Dans l'onglet nommé "Data":

• En C2 (les cellules de C2 à AG2 sont fusionnées) j'ai l'année
• De C3 à AG3 les chiffres de 1 à 31
• De B5 à B16 les mois de jan à déc (ici 01/01/2014, 01/02/2014 etc dont le format de cellule n'affiche que le nom du mois)

Le but du code est de griser les cellules lorsque celles-ci correspondent à un week-end.
Idéalement il faudrait également griser les jours fériés.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
 
Sub weekend()
 
Dim jour As Integer
Dim i As Integer
Dim j As Integer
Dim Année As Range
Dim Data As Worksheet
Set Data = ThisWorkbook.Sheets("Data")
Dim DateMois As Variant
Dim DateX As Variant
 
i = 1
j = 5
Range("C5:AG16").Interior.ColorIndex = 40
Do While Data.Cells(3, i + 2) <> "" And Data.Cells(j, i + 1) <> ""
jour = Data.Cells(3, i + 2)
DateMois = Data.Cells(j, i + 2)
For jour = 1 To 31
DateMois = jour & " " & Month(Data.Cells(j, 2)) & " " & Data.Cells(2, 3)
If Month(Data.Cells(j, 2)) = 2 Then
 
    If Data.Cells(2, 3) Mod 4 = 0 Then ' Détermine si l'année est bissextile
        If jour = 29 Then
                   Cells(j, i + 3).Interior.ColorIndex = 2
                   Cells(j, i + 4).Interior.ColorIndex = 2
                   DateX = Weekday(DateMois)
                    If DateX = "1" Or DateX = "7" Then
                    Cells(j, i + 2).Interior.ColorIndex = 16
                    End If
                   GoTo MoisSuivant
        End If
      Else
        If jour = 28 Then
                   Cells(j, i + 3).Interior.ColorIndex = 2
                   Cells(j, i + 4).Interior.ColorIndex = 2
                   Cells(j, i + 5).Interior.ColorIndex = 2
                   DateX = Weekday(DateMois)
                    If DateX = "1" Or DateX = "7" Then
                    Cells(j, i + 2).Interior.ColorIndex = 16
                    End If
                   GoTo MoisSuivant
      End If
     End If
 
End If
 
If Month(Data.Cells(j, 2)) = 4 Or Month(Data.Cells(j, 2)) = 6 Or Month(Data.Cells(j, 2)) = 9 Or Month(Data.Cells(j, 2)) = 11 Then
      If jour = 30 Then
       Cells(j, i + 3).Interior.ColorIndex = 2
       DateX = Weekday(DateMois)
                    If DateX = "1" Or DateX = "7" Then
                    Cells(j, i + 2).Interior.ColorIndex = 16
                    End If
      GoTo MoisSuivant
      End If
End If
DateX = Weekday(DateMois)
    If DateX = "1" Or DateX = "7" Then
    Cells(j, i + 2).Interior.ColorIndex = 16
    End If
i = i + 1
 
Next jour
MoisSuivant: i = 1
             j = j + 1
Loop
End Sub

Vos avis et conseils pour simplifier ou améliorer ce code sont les bienvenus.

Eric


Une idée

[alexandrud]

Bonjour Eric,

Tout d'abord je te remercie pour ta réponse ...
j'ai été très occupé avec mon travail et donc je n'ai pas eu le temps de revenir sur le forum.
Entre temps j'ai réussi à faire une macro (un peu "barbare" peut-être, mais elle fonctionne - le code ci-dessous) :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
Sub weekend() 'en fonction de l'année, griser les fériés et les weekends
 
 
ActiveSheet.Unprotect Password:="admin"
 
'j'ai mis AG27 car, dans mon cas j'ai laissé une ligne entre chaque mois pour fluidifier la feuille (visuellement).
'lors du changement de l'année, ceci efface tous le contenus des cellules
ActiveSheet.Range("C5:AG27").ClearContents    
ActiveSheet.Range("C5:AG27").Interior.ColorIndex = xlNone
 
Dim jour As Variant
Dim i As Integer
Dim x As Integer
 
For i = 1 To 33 ' pour les 31 jours - les 2 premières cellules sont vides
jour = Cells(3, i).Value 'jour va prendre a chaque fois la valeur de la cellule C3, D3 et ainsi de suite jusqu'au AG3
 
For x = 1 To 366 Step 1 'pour les fériés et les weekends
 
If Worksheets("Fériés").Range("A" & x) = "janvier" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "janvier" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "janvier" & " " & jour Then
                        Cells(5, i).Value = "x" ' mettre x si férié/weekend
                        Cells(5, i).Interior.ColorIndex = 16 'mettre du GRI si férié/weekend
End If
If Worksheets("Fériés").Range("A" & x) = "février" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "février" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "février" & " " & jour Then
                        Cells(7, i).Value = "x"
                        Cells(7, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "mars" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "mars" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "mars" & " " & jour Then
                        Cells(9, i).Value = "x"
                        Cells(9, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "avril" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "avril" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "avril" & " " & jour Then
                        Cells(11, i).Value = "x"
                        Cells(11, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "mai" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "mai" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "mai" & " " & jour Then
                        Cells(13, i).Value = "x"
                        Cells(13, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "juin" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "juin" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "juin" & " " & jour Then
                        Cells(15, i).Value = "x"
                        Cells(15, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "juillet" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "juillet" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "juillet" & " " & jour Then
                        Cells(17, i).Value = "x"
                        Cells(17, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "août" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "août" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "août" & " " & jour Then
                        Cells(19, i).Value = "x"
                        Cells(19, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "septembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "septembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "septembre" & " " & jour Then
                        Cells(21, i).Value = "x"
                        Cells(21, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "octobre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "octobre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "octobre" & " " & jour Then
                        Cells(23, i).Value = "x"
                        Cells(23, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "novembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "novembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "novembre" & " " & jour Then
                        Cells(25, i).Value = "x"
                        Cells(25, i).Interior.ColorIndex = 16
End If
If Worksheets("Fériés").Range("A" & x) = "décembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "dimanche" & " " & "décembre" & " " & jour Or Worksheets("weekend").Range("A" & x) = "samedi" & " " & "décembre" & " " & jour Then
                        Cells(27, i).Value = "x"
                        Cells(27, i).Interior.ColorIndex = 16
End If
 
Next x
Next i
 
 
 
ActiveSheet.Protect Password:="admin"
 
End Sub

Je suis en train de la retravailler pour la simplifier ... déjà, je me demande si les fériés et les weekends je ne les mettrais pas sur une même feuille...

Merci