Discussion :

[xdoreau]

Bonjour,

Je réalise avec Excel 2010 la gestion d'un planning des congés, j'ai mis au point une procédure "automatisé" pour le décompte des jours celle-ci fonctionne très bien j'ai juste un soucis que je n'arrive pas à résoudre (ou je n'ai pas bien réfléchi peut-être) c'est pourquoi je solicite votre aide.
Voici se qui me pose problème :
Dans ce planning il est important pour assurer un bon décompte de jours, de prendre en charge les jours fériés et notamment les samedis fériés. Je boucle sur la période sélectionnée, dans ma boucle je repers les jours de la semaine les dimanche les samedis et les jour fériés (samedi ou autres) ce que je cherche à trouver c'est sur les samedis, s'il y a un samedi fériés quel est sa position dans ma sélection, est-ce le premier samedi ou le second ou autre...
Je cherche celà car dans notre société le premier samedi n'est pas décompté mais les autres le sont sauf s'ils sont fériés.

Existe t-il un moyen en VBA pour trouver celà ? je ne cherche pas forcément le code fini mais au moins un début de raisonnement après je finirai bien par trouver, enfin j'espère.

Je vous remercie d'avance pour votre aide.

[pgz]

Bonjour.

Je boucle sur la période sélectionnée, dans ma boucle je repers les jours de la semaine les dimanche les samedis et les jour fériés (samedi ou autres) ce que je cherche à trouver c'est sur les samedis, s'il y a un samedi fériés quel est sa position dans ma sélection, est-ce le premier samedi ou le second ou autre...

Si tu repères les samedis et les jours fériés et que tu sais où tu en es dans ta boucle, je ne comprends pas bien ton pb.

Peut-être en voyant cette partie du code déjà écrit...

Cordialement,

PGZ

[xdoreau]

Bonsoir,

Voici la boucle en question

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
 
                   If typeCongés = "CP" Then
                    For i = 0 To Compteur
                        ' compte le nombre de samedi non fériés
                        If Weekday(Plan.Cells(2, LaColonne), vbMonday) = 6 And Not Ctrlferies(Plan.Cells(2, LaColonne).Value) = 2 Then
                            comptes = comptes + 1
                        End If
                        'compte le nombre de samedi fériés
                        If Weekday(Plan.Cells(2, LaColonne), vbMonday) = 6 And Ctrlferies(Plan.Cells(2, LaColonne)) = 2 Then
                            comptesf = comptesf + 1
                        End If
                        'compte le nombre jour fériés dans la semaine hors samedi et dimanche
                        If Weekday(Plan.Cells(2, LaColonne), vbMonday) < 6 And Ctrlferies(Plan.Cells(2, LaColonne)) = 2 Then
                            comptejf = comptejf + 1
                        End If
                        ' compte le nombre de jour de la semaine non fériés
                        If Weekday(Plan.Cells(2, LaColonne), vbMonday) <= 5 And Ctrlferies(Plan.Cells(2, LaColonne)) <> 2 Then
                            comptejn = comptejn + 1
                        End If
                        ' compte le nombre de dimanche
                        If Weekday(Plan.Cells(2, LaColonne), vbMonday) = 7 Then
                            compted = compted + 1
                        End If
                        'avance d'une colonne
                        LaColonne = LaColonne + 1
                    Next i

[pgz]

Bonsoir.

Quand tu trouves un samedi férié, tu veux savoir si c'est le premier de la période. Si c'est bien cela, il suffit de regarder la valeur des variables comptes et comptesf, car si ce n'est pas le premier samedi alors comptes+comptesf > 0.

Remarque : le compteur de boucle est i mais tu ne l'utilises pas, tu en construis un deuxième LaColonne. C'est curieux, mais c'est tout.

Cordialement,

PGZ

[carden752]

Bonjour,

Ton code n'est pas réellement homogène non plus ce qui le rend plus difficile à lire. Notamment au niveau du contrôle des jours fériés et des jours de la semaine

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
'compte le nombre de samedi non fériés
If Weekday(Plan.Cells(2, LaColonne), vbMonday) = 6 And Not Ctrlferies(Plan.Cells(2, LaColonne).Value) = 2 Then
         comptes = comptes + 1
End If

'compte le nombre de samedi fériés
If Weekday(Plan.Cells(2, LaColonne), vbMonday) = 6 And Ctrlferies(Plan.Cells(2, LaColonne)) = 2 Then
         comptesf = comptesf + 1
End If

'compte le nombre jour fériés dans la semaine hors samedi et dimanche
If Weekday(Plan.Cells(2, LaColonne), vbMonday) < 6 And Ctrlferies(Plan.Cells(2, LaColonne)) = 2 Then
         comptejf = comptejf + 1
End If

'compte le nombre de jour de la semaine non fériés
If Weekday(Plan.Cells(2, LaColonne), vbMonday) <= 5 And Ctrlferies(Plan.Cells(2, LaColonne)) <> 2 Then
         comptejn = comptejn + 1
End If

Comment est initialisé la valeur de la variable LaColonne?

[mercatog]

Bonsoir
à défaut de code explicite, une restructuration des tests s'avère nécessaire pour la visibilité:

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
Dim TypeConges As String
Dim i As Integer, Compteur As Integer, LaColonne As Integer, Rj As Integer
Dim CompteS As Integer, CompteSF As Integer, CompteJF As Integer, CompteJN As Integer, CompteD As Integer
 
With Sheets("Plan")
    If TypeConges = "CP" Then
        For i = 0 To Compteur
            Rj = Weekday(.Cells(2, LaColonne), vbMonday)             'N° du jour dans la semaine
            If Rj = 7 Then                                           'Si dimanche
                CompteD = CompteD + 1                                'Compte le nombre de dimanche
            Else                                                     'Si non dimanche
                If Ctrlferies(.Cells(2, LaColonne).Value) = 2 Then   'Si férié
                    If Rj = 6 Then                                   'Si samedi
                        CompteSF = CompteSF + 1                      'Compte le nombre de samedi fériés
                    Else                                             'Si avant samedi
                        CompteJF = CompteJF + 1                      'Compte le nombre jour fériés dans la semaine hors samedi et dimanche
                    End If
                Else                                                 'Si non férié
                    If Rj = 6 Then                                   'Si samedi
                        CompteS = CompteS + 1                        'Compte le nombre de samedi non fériés
                    Else                                             'Si avant samedi
                        CompteJN = CompteJN + 1                      'Compte le nombre de jour de la semaine non fériés
                    End If
                End If
            End If
            LaColonne = LaColonne + 1                                'Avance d'une colonne
        Next i
    End If
End With
'Ici on ne prends pas en compte le premier samedi férié
If CompteSF >= 1 Then
    CompteSF = CompteSF - 1
    CompteS = CompteS + 1
End If