Calendrier des vacances dans ce menu joint. Salut. http://cjoint.com/?fEspZWmW8p
sur le site de vediorbis planning vacances
"dominique" a écrit dans le message de news:
ou trouver un calendrier de planification des vacances
Fredo P
A ce propos changer les lignes 411 à 416 de "Sub Addconges" par ce code répond en partie à tu quest du 30 05 06 7H10 '.ColorIndex = col '.Pattern = pat If col > 0 Then cd = Switch(col = 2, "RTT", col = 6, "CS", col = 3, "CA") ElseIf pat > 0 Then cd = Switch(pat = 9, "ML", pat = 14, "EF", pat = 15, "F") End If Worksheets(strMaFeuille).Cells(ligne, i).Value = cd Worksheets(strMaFeuille).Cells(ligne, i).Font.Name "Arial" Worksheets(strMaFeuille).Cells(ligne, i).Font.Size = 8 End With "rdt83" a écrit dans le message de news:
sur le site de vediorbis planning vacances
"dominique" a écrit dans le message de
news:
ou trouver un calendrier de planification des vacances
A ce propos
changer les lignes 411 à 416 de "Sub Addconges" par ce code répond en partie
à tu quest du 30 05 06 7H10
'.ColorIndex = col
'.Pattern = pat
If col > 0 Then
cd = Switch(col = 2, "RTT", col = 6, "CS", col = 3,
"CA")
ElseIf pat > 0 Then
cd = Switch(pat = 9, "ML", pat = 14, "EF", pat = 15,
"F")
End If
Worksheets(strMaFeuille).Cells(ligne, i).Value = cd
Worksheets(strMaFeuille).Cells(ligne, i).Font.Name "Arial"
Worksheets(strMaFeuille).Cells(ligne, i).Font.Size = 8
End With
"rdt83" <rdt83@wanadoo.fr> a écrit dans le message de news:
eTz8oOAhGHA.4044@TK2MSFTNGP03.phx.gbl...
sur le site de vediorbis planning vacances
"dominique" <dominique@discussions.microsoft.com> a écrit dans le message
de
A ce propos changer les lignes 411 à 416 de "Sub Addconges" par ce code répond en partie à tu quest du 30 05 06 7H10 '.ColorIndex = col '.Pattern = pat If col > 0 Then cd = Switch(col = 2, "RTT", col = 6, "CS", col = 3, "CA") ElseIf pat > 0 Then cd = Switch(pat = 9, "ML", pat = 14, "EF", pat = 15, "F") End If Worksheets(strMaFeuille).Cells(ligne, i).Value = cd Worksheets(strMaFeuille).Cells(ligne, i).Font.Name "Arial" Worksheets(strMaFeuille).Cells(ligne, i).Font.Size = 8 End With "rdt83" a écrit dans le message de news:
sur le site de vediorbis planning vacances
"dominique" a écrit dans le message de
news:
ou trouver un calendrier de planification des vacances