Discussion :

[flo1411]

Bonjour à tous,

Tout d'abord, voici mon 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
 
    For i = 4 To 8 Step 1
        Cells(k, i).Value = Cells(j, 8) + i - 1
        ''Affichage des jours fériés
        Dim cpt, ferie As Integer
        ferie = k + 1
        For cpt = 8 To 20 Step 1
            If Cells(k, i).Value = Worksheets("Fériés").Cells(cpt, 3).Value Then
                While Cells(ferie, i).Borders.LineStyle = xlContinuous And Cells(ferie, i).Borders.Weight = xlMedium
                    Cells(ferie, i).Value = "Férié"
                    Cells(ferie, i).Interior.Color = vbGreen
                    ferie = ferie + 1
                Wend
            End If
        Next
    Next

En gros, en appuyant sur un bouton, je veux afficher une semaine avec ses jours fériés dans un planning. La variable k correspond à l'indice de la ligne contenant la date du jour. Dès que cette date correspond à un jour férié, je veux colorier les cellules encadrées dessous en vert et écrire Férié à l'intérieur. Or, seul la première cellule se remplit. J'ai l'impression que la variable ferie ne s'incrémente pas... Mais pourtant je l'incrémente bien dans le code et je l'ai bien mise dans le while donc je sèche...
Aidez moi please !!!

[flo1411]

Non c'est bon j'ai fini par trouver le problème que je ne comprends toujours pas d'ailleurs. Les cellules encadrées en noir avec le trait moyen n'étaient pas considérées comme ayant les propriétés xlcontinuous et xlmedium. J'ai donc dû les sélectionner manuellement, aller dans format de cellule et cliquer sur contour dans l'onglet bordures.