colorer les week ends et jour feriés grâçe à vba?

[macpoy]

bonsoir le forum, bonsoir très cher Excelliens,
depuis 15h cet AM, je cherche le moyen de colorer les samedi, dimanche et jours feriés sur la feuille de mon planning, mais autrement que par la mise en forme conditionnelle.
car il arrive parfois que je soi obliger de mettre une couleur ces jours là, et comme tous le monde le sait, c'est la couleur de la MFC qui est "prioritaire"!!!
d'avance un grand merci à qui me trouvera la macro.
bon excel @ +

 

[l0l0tte]

c est bien ce qu il me semblait, que ton code ressemblait a ce que je voulais obtenir
mais alors je comprends pas
j ai crée une feuille 3 avec un bouton et ton code associé a ce bouton
et ca me genere une erreur

 

[Staple1600]

Re

Chez moi pas d'erreur sur un autre classeur que le tien (il est peut-être corrompu)
Essaie à partir d'un classeur vierge (donc vide)
Insères un CommandButton et mets cette nouvelle version
(c'est juste une réécriture)

Private Sub CommandButton1_Click()
Dim AA As Date, BB As Date, ANNEE
ANNEE = InputBox("Choisir l'année du calendrier?", "Calendrier", Year(Date))
AA = CDate("1/12/" & ANNEE - 1): BB = CDate("31/1/" & ANNEE + 1)
With [G16]
    .Value = AA
    .NumberFormat = "dddd dd mmmm yyyy"
    With .Resize(, 1 + BB - AA)
        .DataSeries 1, 3, 1, 1
        .Columns.AutoFit
        .Borders.LineStyle = 1
    End With
End With
End Sub

 

[Efgé]

Bonjour lolotte, Mes respects Staple

Commençons par les remerciements à Staple pour ce .DataSeries 1, 3, 1, 1 que je découvre avec intérêt

Poursuivons par un détail:

j ai crée une feuille 3 avec un bouton et ton code associé a ce bouton et ca me genere une erreur

Ton fichier est un .xls qui comporte 256 colonnes.
Ta liste de date comporte 427 valeurs......
Voila, voila, voila....


Pour finir, une proposition qui repart du code de Staple et qui colore les W.E et Fériés sur 14 lignes (limitons les dégâts me suis-je dis)
Bien entendu un classeur .xlsm

Cordialement

 

[Staple1600]

Bonsoir le fil, le forum

Juste pour le plaisir de croiser Efgé
Salut à toi.

 

[l0l0tte]

bonoir
je viens d essayer le code et ca marche
alelluia
je vous remercie beaucoup de m avoir accordé votre attention

 

[l0l0tte]

Bonjour
Toujours +...…
Je viens d avoir une illumination cette nuit.
J ai oublié de prendre en compte les rtt dans les jours fériés.
Peut on , dans le userform ou l on configure l année , y paramétrer les jours souhaités ( genre 10 )

 

[Efgé]

Re
On change de demande là....
L'année n'est pas saisie par UserForm mais par InputBox.

Si ce sont des dates fixes on peux les ajouter au dictionnaire, sinon on peux mettre une feuille de saisie sur laquelle on iras chercher les dates.

Cordialement

 

[l0l0tte]

bonjour
a tiens je croyais que vous etiez en vacances! On arrive pas a decrocher
et oui j ai bossé un petit peu ces derniers jours et j ai donc appris que c etait une inputbox
je crois que la deuxieme solution est la meilleure puisque les "RTT" sont differents chaque annee

 

[Efgé]

Bonjour

Une proposition.
Il faut une feuille "Saisie" et saisir les dates en colonne A de cette feuille

Cordialement

 

[l0l0tte]

bien joué. super taf
merci enormement