Couleur de cellule si elle correspond à Samedi ou Dimanche
3 réponses
Denys
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate()
For Each C In Range("Jour")
If CDate(C) = vbSaturday Then
Range(C.Address).Interior.ColorIndex = 3
End If
Next
End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si
la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que
cette cellule devienne rouge...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut Denys,
CDate revoit la date complète de la cellule. Il faut en prendre le jour de la semaine : If Weekday(CDate(C)) = vbSaturday Then '...
A+ Nicolas B.
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que cette cellule devienne rouge...
Ou se truve mon erreur?
Merci pour votre temps...
Denys
Salut Denys,
CDate revoit la date complète de la cellule. Il faut en prendre le jour
de la semaine :
If Weekday(CDate(C)) = vbSaturday Then
'...
A+
Nicolas B.
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate()
For Each C In Range("Jour")
If CDate(C) = vbSaturday Then
Range(C.Address).Interior.ColorIndex = 3
End If
Next
End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si
la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que
cette cellule devienne rouge...
CDate revoit la date complète de la cellule. Il faut en prendre le jour de la semaine : If Weekday(CDate(C)) = vbSaturday Then '...
A+ Nicolas B.
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que cette cellule devienne rouge...
Ou se truve mon erreur?
Merci pour votre temps...
Denys
Youky
Private Sub Worksheet_Activate() For Each C In Range("Jour") If Weekday(CDate(C)) = 7 Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub Youky "Denys" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que
cette cellule devienne rouge...
Ou se truve mon erreur?
Merci pour votre temps...
Denys
Private Sub Worksheet_Activate()
For Each C In Range("Jour")
If Weekday(CDate(C)) = 7 Then
Range(C.Address).Interior.ColorIndex = 3
End If
Next
End Sub
Youky
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news:
EABEEEFD-35F0-4C53-9BF1-E5E541256683@microsoft.com...
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate()
For Each C In Range("Jour")
If CDate(C) = vbSaturday Then
Range(C.Address).Interior.ColorIndex = 3
End If
Next
End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si
la date inscrite dans la cellule correspond à un samedi ou à un dimanche,
que
Private Sub Worksheet_Activate() For Each C In Range("Jour") If Weekday(CDate(C)) = 7 Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub Youky "Denys" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que
cette cellule devienne rouge...
Ou se truve mon erreur?
Merci pour votre temps...
Denys
Denys
Bonjour Youki et Nicolas,
Merci beaucoup... Ça éclaire ma lanterne.....
Sauf que je me sens vieillir..... J'avais posé la même question en décembre 2003 et je ne m'en souvenais plus du tout !!!!! Au moins ce n'était pas en VBA
Pas drôle.... surtout que j'ai l'impression de polluer le site.... Enfin..
Merci infiniment
Denys
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que cette cellule devienne rouge...
Ou se truve mon erreur?
Merci pour votre temps...
Denys
Bonjour Youki et Nicolas,
Merci beaucoup... Ça éclaire ma lanterne.....
Sauf que je me sens vieillir..... J'avais posé la même question en décembre
2003 et je ne m'en souvenais plus du tout !!!!! Au moins ce n'était pas en VBA
Pas drôle.... surtout que j'ai l'impression de polluer le site.... Enfin..
Merci infiniment
Denys
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate()
For Each C In Range("Jour")
If CDate(C) = vbSaturday Then
Range(C.Address).Interior.ColorIndex = 3
End If
Next
End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si
la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que
cette cellule devienne rouge...
Sauf que je me sens vieillir..... J'avais posé la même question en décembre 2003 et je ne m'en souvenais plus du tout !!!!! Au moins ce n'était pas en VBA
Pas drôle.... surtout que j'ai l'impression de polluer le site.... Enfin..
Merci infiniment
Denys
Bonjour à tous,
Quelqu'un pourrait me dire quel est le problème dans la macro suivante?
Private Sub Worksheet_Activate() For Each C In Range("Jour") If CDate(C) = vbSaturday Then Range(C.Address).Interior.ColorIndex = 3 End If Next End Sub
Le Range correspond à la plage D5:AH5 soit 31 colonnes..... Je veux que si la date inscrite dans la cellule correspond à un samedi ou à un dimanche, que cette cellule devienne rouge...
