Bonjour,
J'ai une macro qui s'éxécute mais pas comme je voudrais alors j'explique le contexte En colonne A j'ai les jours de la semaine L, M, Mer,J ,V, s, D en fonctiion de la colonne B où il y a les dates pour un mois (sous la forme 01-mai par exemple).
POur les jours férié je voudrais que la ligne soit en couleur y compris le jour en colonne A.
Sub jourférié()
'met la ligne en couleur si le jour est férié
Range("B1").Select
For i = 1 To 40
If (ActiveCell.Text = "01-janv" Or ActiveCell.Text = "1-janv" Or ActiveCell.Text = "01-mai" Or ActiveCell.Text = "1-mai" Or ActiveCell.Text = "08-mai" Or ActiveCell.Text = "8-mai" Or ActiveCell.Text = "14-juil" Or ActiveCell.Text = "15-août" Or ActiveCell.Text = "1-nov" Or ActiveCell.Text = "01-nov" Or ActiveCell.Text = "11-nov" Or ActiveCell.Text = "25-déc") Then
Range(Selection, ActiveCell.Offset(0, 30)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Cette macro fonctionne mais ne met pas la couleur dans la colonne A pour le jour férié correspond. Merci à l'avance pour votre aide
For Each Cel In Plage If Dico.exists(Cel.Value) Then With Cel.EntireRow.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If Next Cel
Set Cel = Nothing Set Plage = Nothing Set Dico = Nothing
End Sub
Hervé.
"mattparisien59" a écrit dans le message de news:
Bonjour, J'ai une macro qui s'éxécute mais pas comme je voudrais alors j'explique le contexte En colonne A j'ai les jours de la semaine L, M, Mer,J ,V, s, D en fonctiion de la colonne B où il y a les dates pour un mois (sous la forme 01-mai par exemple). POur les jours férié je voudrais que la ligne soit en couleur y compris le jour en colonne A.
Sub jourférié() 'met la ligne en couleur si le jour est férié
Range("B1").Select
For i = 1 To 40
If (ActiveCell.Text = "01-janv" Or ActiveCell.Text = "1-janv" Or ActiveCell.Text = "01-mai" Or ActiveCell.Text = "1-mai" Or ActiveCell.Text > "08-mai" Or ActiveCell.Text = "8-mai" Or ActiveCell.Text = "14-juil" Or ActiveCell.Text = "15-août" Or ActiveCell.Text = "1-nov" Or ActiveCell.Text > "01-nov" Or ActiveCell.Text = "11-nov" Or ActiveCell.Text = "25-déc") Then
Range(Selection, ActiveCell.Offset(0, 30)).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Cette macro fonctionne mais ne met pas la couleur dans la colonne A pour le jour férié correspond. Merci à l'avance pour votre aide
Bonsoir,
Une possibilité parmis tant d'autres (j'ai un peu modifié ta macro) :
Sub jourférié()
Dim Dico As Object
Dim Plage As Range
Dim Cel As Range
'met la ligne en couleur si le jour est férié
Set Dico = CreateObject("Scripting.Dictionary")
For Each Cel In Plage
If Dico.exists(Cel.Value) Then
With Cel.EntireRow.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next Cel
Set Cel = Nothing
Set Plage = Nothing
Set Dico = Nothing
End Sub
Hervé.
"mattparisien59" <nospam_mattparisien@hotmail.com> a écrit dans le message
de news:OrmdnVKtkubGDVnWRVn_vwA@giganews.com...
Bonjour,
J'ai une macro qui s'éxécute mais pas comme je voudrais alors j'explique
le
contexte En colonne A j'ai les jours de la semaine L, M, Mer,J ,V, s, D en
fonctiion de la colonne B où il y a les dates pour un mois (sous la forme
01-mai
par exemple).
POur les jours férié je voudrais que la ligne soit en couleur y compris le
jour
en colonne A.
Sub jourférié()
'met la ligne en couleur si le jour est férié
Range("B1").Select
For i = 1 To 40
If (ActiveCell.Text = "01-janv" Or ActiveCell.Text = "1-janv"
Or
ActiveCell.Text = "01-mai" Or ActiveCell.Text = "1-mai" Or ActiveCell.Text
> "08-mai" Or ActiveCell.Text = "8-mai" Or ActiveCell.Text = "14-juil" Or
ActiveCell.Text = "15-août" Or ActiveCell.Text = "1-nov" Or
ActiveCell.Text > "01-nov" Or ActiveCell.Text = "11-nov" Or ActiveCell.Text = "25-déc") Then
Range(Selection, ActiveCell.Offset(0, 30)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Cette macro fonctionne mais ne met pas la couleur dans la colonne A pour
le
jour férié correspond. Merci à l'avance pour votre aide
For Each Cel In Plage If Dico.exists(Cel.Value) Then With Cel.EntireRow.Interior .ColorIndex = 15 .Pattern = xlSolid End With End If Next Cel
Set Cel = Nothing Set Plage = Nothing Set Dico = Nothing
End Sub
Hervé.
"mattparisien59" a écrit dans le message de news:
Bonjour, J'ai une macro qui s'éxécute mais pas comme je voudrais alors j'explique le contexte En colonne A j'ai les jours de la semaine L, M, Mer,J ,V, s, D en fonctiion de la colonne B où il y a les dates pour un mois (sous la forme 01-mai par exemple). POur les jours férié je voudrais que la ligne soit en couleur y compris le jour en colonne A.
Sub jourférié() 'met la ligne en couleur si le jour est férié
Range("B1").Select
For i = 1 To 40
If (ActiveCell.Text = "01-janv" Or ActiveCell.Text = "1-janv" Or ActiveCell.Text = "01-mai" Or ActiveCell.Text = "1-mai" Or ActiveCell.Text > "08-mai" Or ActiveCell.Text = "8-mai" Or ActiveCell.Text = "14-juil" Or ActiveCell.Text = "15-août" Or ActiveCell.Text = "1-nov" Or ActiveCell.Text > "01-nov" Or ActiveCell.Text = "11-nov" Or ActiveCell.Text = "25-déc") Then
Range(Selection, ActiveCell.Offset(0, 30)).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With
End If
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Cette macro fonctionne mais ne met pas la couleur dans la colonne A pour le jour férié correspond. Merci à l'avance pour votre aide