Excel - mise en forme de certaines cellules
Résolu
Chris
-
Sloubi76 Messages postés 1366 Date d'inscription Statut Membre Dernière intervention -
Sloubi76 Messages postés 1366 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Après avoir incrémenter une série de dates (format date longue) sur Excel 2003, comment dois-je procéder pour appliquer une couleur de remplissage sur les week-end (samedi et dimanche).
Je connais la sélection des cellules avec la touche Ctrl mais existerait-il une formule pour qu'Excel reconnaissent les cellules contenant les samedi et dimanche afin d'y appliquer rapidement une couleur de remplissage de mon choix.
Merci d'avance.
Après avoir incrémenter une série de dates (format date longue) sur Excel 2003, comment dois-je procéder pour appliquer une couleur de remplissage sur les week-end (samedi et dimanche).
Je connais la sélection des cellules avec la touche Ctrl mais existerait-il une formule pour qu'Excel reconnaissent les cellules contenant les samedi et dimanche afin d'y appliquer rapidement une couleur de remplissage de mon choix.
Merci d'avance.
A voir également:
- Excel - mise en forme de certaines cellules
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
3 réponses
Bonjour,
Mise en forme conditionnelle:
La formule est =OU(JOURSEM(A1;2)=6;JOURSEM(A1;2)=7)
et tu choisis le format à appliquer.
Bonne soirée.
Mise en forme conditionnelle:
La formule est =OU(JOURSEM(A1;2)=6;JOURSEM(A1;2)=7)
et tu choisis le format à appliquer.
Bonne soirée.
Salut Chris,
Ci joint macro à insérer dans ton classeur, les samedis et dimanches apparaitront en bleu
Sub colorationCellules()
Dim Derlig As Long, i As Long, Color As Byte
Dim Fond As Integer, bleu As Integer, Jaune As Integer
bleu = 32
'Jaune = 34
With Sheets("Feuil1")
Derlig = .Range("A2").End(xlDown).Row
Fond = bleu
For i = 1 To Derlig
If Weekday(.Cells(i, 1)) = 6 Then
.Cells(i, 1).Interior.ColorIndex = Fond
ElseIf Weekday(.Cells(i, 1)) = 7 Then
.Cells(i, 1).Interior.ColorIndex = Fond
End If
Next i
End With
End Sub
@ +
Ci joint macro à insérer dans ton classeur, les samedis et dimanches apparaitront en bleu
Sub colorationCellules()
Dim Derlig As Long, i As Long, Color As Byte
Dim Fond As Integer, bleu As Integer, Jaune As Integer
bleu = 32
'Jaune = 34
With Sheets("Feuil1")
Derlig = .Range("A2").End(xlDown).Row
Fond = bleu
For i = 1 To Derlig
If Weekday(.Cells(i, 1)) = 6 Then
.Cells(i, 1).Interior.ColorIndex = Fond
ElseIf Weekday(.Cells(i, 1)) = 7 Then
.Cells(i, 1).Interior.ColorIndex = Fond
End If
Next i
End With
End Sub
@ +