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

L

l0l0tte

XLDnaute Junior

• 9 Novembre 2017

• #16

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

 

Pièces jointes

• generation calandrier.xls

  200.5 KB · Affichages: 28

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Novembre 2017

• #17

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)

VB:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Novembre 2017

• #18

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:

l0l0tte à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• annee.xlsm

  24.2 KB · Affichages: 93

Dernière édition: 10 Novembre 2017

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Novembre 2017

• #19

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

L

l0l0tte

XLDnaute Junior

• 12 Novembre 2017

• #20

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

 

Vote positif 0 Vote négatif

L

l0l0tte

XLDnaute Junior

• 13 Novembre 2017

• #21

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 )

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Novembre 2017

• #22

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

 

Vote positif 0 Vote négatif

L

l0l0tte

XLDnaute Junior

• 15 Novembre 2017

• #23

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Novembre 2017

• #24

Bonjour

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

Cordialement

 

Pièces jointes

• annee_RTT.xlsm

  26.8 KB · Affichages: 38

Vote positif 0 Vote négatif

L

l0l0tte

XLDnaute Junior

• 15 Novembre 2017

• #25

bien joué. super taf
merci enormement

 

Vote positif 0 Vote négatif