[vba] jour férié

**lou87** · 11/07/2006, 15h05

Bonjour !

Je me suis fait beaucoup aider par un collègue pour ce code...

Il me semble tout juste, mais quand je le lance, il ne me met pas les cellules des jours fériés en couleur, je voudrais savoir où il y aurait une erreur possible.

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
Function JourFerie(datetraitement As Date) As Boolean
 
Dim Paques As String
Dim Pentecote As String
Dim Ascension As String
Dim an As Integer
Dim Mois As Integer
Dim jour As Integer
Dim i As Integer
Dim j As Integer
 
    'partie pour retrouver paques, ascension et pentecote (jours feries non fixes)
    an = CInt(Mid(datetraitement, 7, 4))
    Mois = 3
    jour = 23 + modulo(19 * modulo(an, 19) + 24, 30) + modulo(2 * modulo(an, 4) + 4 * modulo(an, 7) + 6 * modulo(19 * modulo(an, 19) + 24, 30) + 5, 7)
    If jour / 31 > 1 Then
        Mois = Mois + 1
        jour = jour - 31
    End If
    Paques = Format(jour & "/" & Mois & "/" & an, "dd/mm/yyyy")
    jour = jour + 8
    Mois = Mois + 1
    If jour / 31 > 1 Then
        Mois = Mois + 1
        jour = jour - 31
    End If
    Ascension = Format(jour & "/" & Mois & "/" & an, "dd/mm/yyyy")
    jour = jour + 10
    If jour / 31 > 1 Then
        Mois = Mois + 1
        jour = jour - 31
    End If
    Pentecote = Format(jour & "/" & Mois & "/" & an, "dd/mm/yyyy")
 
    'comparaison avec les jours fériés français connus
    If CStr(datetraitement) = Paques Or CStr(datetraitement) = Ascension Or CStr(datetraitement) = Pentecote _
        Or CStr(Mid(datetraitement, 1, 5)) = "01/01" Or CStr(Mid(datetraitement, 1, 5)) = "01/05" Or CStr(Mid(datetraitement, 1, 5)) = "08/05" _
        Or CStr(Mid(datetraitement, 1, 5)) = "14/07" Or CStr(Mid(datetraitement, 1, 5)) = "15/08" Or CStr(Mid(datetraitement, 1, 5)) = "01/11" _
        Or CStr(Mid(datetraitement, 1, 5)) = "11/11" Or CStr(Mid(datetraitement, 1, 5)) = "25/12" Then
        JourFerie = True
 
        For i = 7 To i = 96
        For j = 1 To j = 23
        DocXL.Parent.Sheets.Cells(i, j).Font.Color = RGB(255, 0, 0)
 
        For j = DocXL.Parent.Cells(i, 1) To DocXL.Parent.Cells(i, 96) = ""
        Next
    Else
        JourFerie = False
    End If
 
    'je converti en date
    ferie = CDate(JourFerie) 
 
End Function

Merci d'avance ^^

**xblond** · 11/07/2006, 15h10

If CStr(datetraitement) = Paques Or CStr(datetraitement) = Ascension Or CStr(datetraitement) = Pentecote _
Or CStr(Mid(datetraitement, 1, 5)) = "01/01" Or CStr(Mid(datetraitement, 1, 5)) = "01/05" Or CStr(Mid(datetraitement, 1, 5)) = "08/05" _
Or CStr(Mid(datetraitement, 1, 5)) = "14/07" Or CStr(Mid(datetraitement, 1, 5)) = "15/08" Or CStr(Mid(datetraitement, 1, 5)) = "01/11" _
Or CStr(Mid(datetraitement, 1, 5)) = "11/11" Or CStr(Mid(datetraitement, 1, 5)) = "25/12" Then
JourFerie = True

For i = 7 To i = 96
For j = 1 To j = 23
DocXL.Parent.Sheets.Cells(i, j).Font.Color = RGB(255, 0, 0)

For j = DocXL.Parent.Cells(i, 1) To DocXL.Parent.Cells(i, 96) = ""
Next Else

Il ne manquerait pas quelques NEXT pour tes boucles for ici ?
et le dernier FOr j'ai du mal avec le = "" à la fin

**lou87** · 11/07/2006, 15h23

Et bien disons que ce dont tu as du mal, c'est ma ligne de code afin de la vider de ses valeurs, mais c'est vrai que l'on peut utiliser autre chose....

C'est mieux ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 For i = 7 To i = 96
        For j = 1 To j = 23
        DocXL.Parent.Sheets.Cells(i, j).Font.Color = RGB(255, 0, 0)
 
        Range DocXL.Parent.Cells(i, j).Value = .SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
 
    Else
        JourFerie = False
    End If
    Next
    Next
 
    ferie = CDate(JourFerie)

**xblond** · 11/07/2006, 15h25

ca me plait plus mais tes 2 Next devraient être avant le Else

**jmfmarques** · 11/07/2006, 15h29

Font.Color

Moi, c'est celà qui m'interpelle !
Sous VB, l'objet Font n'a pas de propriété Color
On utiliserait ici la propriété ForeColor, tout simplement...
Quel est l'équivalent sous VBA ? c'est là qu'il faut regarder.

**xblond** · 11/07/2006, 15h31

Envoyé par jmfmarques

Moi, c'est celà qui m'interpelle !
Sous VB, l'objet Font n'a pas de propriété Color
On utiliserait ici la propriété ForeColor, tout simplement...
Quel est l'équivalent sous VBA ? c'est là qu'il faut regarder.

docXL pour moi veut dire qu'il travaille sur une feuille Excel et là Font.Color existe selon moi

**lou87** · 12/07/2006, 10h06

Merci xblond, j'ai modifié.

**xblond** · 12/07/2006, 10h30

Tous tes problèmes sont réglés maintenant ?

**lou87** · 12/07/2006, 10h49

Non, il marche toujours pas le code des jours fériés, et mes autres problèmes ne sont toujours pas résolus...

**lou87** · 01/08/2006, 10h46

Un petit mot pour faire remonté ce topic, afin de peut être avoir une réponse, enfin si vous avez compris mon problème...

**biggione** · 01/08/2006, 12h48

essaye pluto ca pour mettre une cellule en couleur:

Code :

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

1
2
3
4
With (DocXL.Parent.Sheets.Cells(i, j).Interior)
                .ColorIndex = 39
                .Pattern = xlSolid
            End With

en espérant que ca te dépannera!!

[vba] jour férié

VBA

Discussions similaires

Partager

Partager