annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Message du rapport :*
Code de Confirmation*
4 + 6 = ?  
Entrez le résultat de l'expression
Maximum de tentatives que vous pouvez essayer : 10
 

Re : Alimenter automatiquement un ComboBox avec des dates

Objet : Re : Alimenter automatiquement un ComboBox avec des dates
par Jean-Marcel sur 03/08/2014 11:26:06

Bonjour
en attendant mieux la macro
Sub MiseEnGrasDesSamediEtDimancheEtFérié()
Dim Cell As Range
With Sheets("Feuil1")
MsgBox .Range(Cells(4, 5), Cells(4, Range("IV4").End(xlToLeft).Column)).Address
For Each Cell In .Range(Cells(4, 5), Cells(4, Range("IV4").End(xlToLeft).Column))


If Weekday(CDate(Cell)) = 1 Or Weekday(CDate(Cell)) = 7 Then
Cell.Interior.ColorIndex = 15
Else
Cell.Interior.ColorIndex = xlNone
End If
'Jour de l'an
If Cell = CDate("1/1/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Paques
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) Then
Cell.Interior.ColorIndex = 15
'Lundi de paques
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 1 Then
Cell.Interior.ColorIndex = 15
'1 er mai
ElseIf Cell = CDate("1/5/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Fète De La Victoire
ElseIf Cell = CDate("8/5/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Ascension
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 39 Then
Cell.Interior.ColorIndex = 15
'Pentecote
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 49 Then
Cell.Interior.ColorIndex = 15
'Lundi de Pentecote
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 50 Then
Cell.Interior.ColorIndex = 15
'Fète nationnale
ElseIf Cell = CDate("14/7/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Assomption
ElseIf Cell = CDate("15/8/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Toussaint
ElseIf Cell = CDate("01/11/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Armistice
ElseIf Cell = CDate("11/11/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Noel
ElseIf Cell = CDate("25/12/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
End If
Next
End With

End Sub
Copyright 2013 Powered by XOOPS © 2001-2013