D
Dom
Guest
Bonjour à tous,
Pourriez vous m'aider SVP ?
J'utilise un caledrier dans lequel les Samedi et Dimanche sont mis en rouge (cf macro ci-dessous)
Dim cellule As Range
Dim ligne As Range
Range("C1:AF1").Select
For Each cellule In Selection.Cells
If cellule.Value = "S" Or cellule.Value = "D" Then
cellule.Font.ColorIndex = 3
End If
Next cellule
Je désire ensuite mettre un motif ou une couleur (peu importe) en cellules C5:C12 lorsque le prog rencontre en C1 la valeur S ou D et ainsi de suite. En gros sur un mois avec 4 S et 4 D il y aura donc 8 mise en forme de C5:C12 à AF5:AF12
Merci d'avance
Pourriez vous m'aider SVP ?
J'utilise un caledrier dans lequel les Samedi et Dimanche sont mis en rouge (cf macro ci-dessous)
Dim cellule As Range
Dim ligne As Range
Range("C1:AF1").Select
For Each cellule In Selection.Cells
If cellule.Value = "S" Or cellule.Value = "D" Then
cellule.Font.ColorIndex = 3
End If
Next cellule
Je désire ensuite mettre un motif ou une couleur (peu importe) en cellules C5:C12 lorsque le prog rencontre en C1 la valeur S ou D et ainsi de suite. En gros sur un mois avec 4 S et 4 D il y aura donc 8 mise en forme de C5:C12 à AF5:AF12
Merci d'avance