Aide macro et mise en forme

[Lone-wolf]

Bonsoir le Forum,

suite au post #5, j'ai essaié tant bien que mal de suivre l'exemple en transposant une autre formule en VBA.

Le code est peut-être mal écrit et en contrôlant avec le calendrier de Windows, le mois d'avril de mon code est différent de celui de Windows(première ligne: du 25 au 31 mars), la mienne commence au 1er avril.

Le code (test2) est pour le calendrier de la feuille2 et dans celle-ci, j'ai mis des formats conditionnels que j'aimerais ajouter à la macro.


Merci.



A+ 😎

 

[JCGL]

Re : Aide macro et mise en forme

Bonjour à tous,

Peux-tu essayer ceci :

Sub Test2()Dim Dat As Date, Dat1 As Date, Dat2 As Date
Dim j&, i&
Application.ScreenUpdating = False
With Feuil2
Range("C4:I9").Font.ThemeColor = xlThemeColorAccent6
Dat = CDate("01" & "/" & .[F2] & "/" & .[H2])
For j = 3 To 9
For i = 4 To 9
Dat1 = (Dat - Weekday(Dat, 2)) + 1
Dat2 = (j - 24) + (i - 1) * 7
.Cells(i, j).Value = Dat1 + Dat2
If Month(.Cells(i, j)) <> Month(Dat) Then .Cells(i, j).Font.ThemeColor = xlThemeColorAccent1
Next i
Next j
End With
End Sub

A+ à tous

 

[Lone-wolf]

Re : Aide macro et mise en forme

Bonsoir JCGL,

merci pour ton aide, le code est impeccable! 😉

Est-ce que tu saurait me dire pourquoi le calendrier Windows de ce mois est différent de mon calendrier?? 😕 Les autres mois sont identiques. Est ce le décalage entre l'Amérique et l'Europe??


A+ 😎

 

[JCGL]

Re : Aide macro et mise en forme

Bonjour à tous,

Je ne sais pas...
Le 29/04/2013 est toujours le 29/04/2013 où que l'on soit...

A+ à tous

 

[Lone-wolf]

Re : Aide macro et mise en forme

RE,

je voulais dire pourquoi le mois d'avril de Windows part du 25 mars au 31 mars et mon calendrier du 1er avril au 7.


A+ 😎