Me revoila
Je ne suis vraiment pas familier avec les mises en formes conditionnelles…
Je me suis fait l'explication suivante pour le code que je souhaite obtenir.
La voici :
Avoir le contour de la semaine actuel coloré --> OK
Si passage à la semaine suivante détecter en actionnant le bouton : contour cellule "vide"
Alors nettoyer tout les contour du document (normalement pas de souci avec cette étape)
Et colorier le contour de la nouvelle cellule.
Sub Allerà()
a = Sheets("Fiche Unique").Cells(12, 6)
Sheets("Fiche Unique").Cells(11, a).Activate
Selection.Borders.Weight = 4
Selection.Borders.Color = RGB(255, 0, 0)
If Sheets("Fiche Unique").Cells(11, a).Activate Then
Borders.Linetyle <> xlNone
[B3:G10].Borders.LineStyle = xlNone
Sheets("Fiche Unique").Cells(11, a).Activate
Selection.Borders.Weight = 4
Selection.Borders.Color = RGB(255, 0, 0)
End If
End Sub
Merci de votre aide !