modif pour un calendrier

[yvon07]

bonsoir tous le monde

j'ai realiser un calendrier servant a gerer des jours de congé.
pour calculer les jour travaillés je met un "1",comment en debut d'année,en effacant tous les resultats ,je peu avoir un "1" dans toutes les cellules sauf les week end et jour ferié,tout en conservant la possibilité de ma liste deroulante.
en esperant mettre suffisament comprendre.
je ne peu mettre le fichier car meme zipper il fait 111k
peu vous le faire passer par mail

merci d'avance a tous

 

[kiki29]

Re : modif pour un calendrier

Salut, passer par Accueil de Cjoint.com ou Cijoint.fr - Service gratuit de dépôt de fichiers

 

[yvon07]

Re : modif pour un calendrier

bonsoir,voici pour le fichier
merci je ne conaisser pas


http://cjoint.com/?dfwxpwbTnp

 

[jeanpierre]

Re : modif pour un calendrier

Bonsoir yvon07, kiki29,

Impossible d'ouvrir ton fichier, il m'est dit "Protéger par une mot de passe avec un méthose non disponible dans ce pays" ????

Je suis sous Excel 2000... tu dois être sous 2003 mais cela ne justifie en rien la chose car je communique souvent avec des fichiers 2003 et sans problème... Comprends pas...

Bonne soirée.

Jean-Pierre

 

[yvon07]

Re : modif pour un calendrier

http://cjoint.com/?dfwPxEDyO1

fichier excel 2007,remis sous 97/2003

 

[jeanpierre]

Re : modif pour un calendrier

Re,

Même motif.... ???

Quand ça veut pas, ça veut pas.

 

[phlaurent55]

Re : modif pour un calendrier

Bonjour à tous,

remplacer le code existant par:

Sub efface()
'
' efface Macro
'
'
    Range( _
        "BJ14,E4:E34,J4:J34,O4:O34,T4:T34,Y4:Y34,AD4:AD35,AI4:AI34,AN4:AN34,AS4:AS34,AX4:AX34,BC4:BC34,BH4:BH34" _
        ).Select
    Selection.ClearContents
Range("BD1").Select
For i = 5 To 60 Step 5
For j = 4 To 34
    If Cells(j, i - 2).Value = 6 Or Cells(j, i - 2).Value = 7 Then
    Cells(j, i).Value = 1
    End If
Next j
Next i
 
End Sub

les jours fériés ne sont pas pris en compte

à+
Philippe

 

[BBdoc]

Re : modif pour un calendrier

c'est bizarre ta réponse, car cela ne met que des 1 pour les samedis et les dimanches.

 

[BBdoc]

Re : modif pour un calendrier

c'est bizarre ta réponse, car cela ne met que des 1 pour les samedis et les dimanches.

Sub efface()
'
' efface Macro
'
'
Range( _
"BJ14,E4:E34,J4:J34,O4:O34,T4:T34,Y4:Y34,AD4:AD35,AI4:AI34,AN4:AN34,AS4:AS34,AX4:AX34,BC4:BC34,BH4:BH34" _
).Select
Selection.ClearContents
Range("BD1").Select
For i = 5 To 60 Step 5
For j = 4 To 34
If Cells(j, i - 2).Value = 1 Or Cells(j, i - 2).Value = 2 Or Cells(j, i - 2).Value = 3 Or Cells(j, i - 2).Value = 4 Or Cells(j, i - 2).Value = 5 Then
Cells(j, i).Value = 1
End If
Next j
Next i

End Sub

là, ça marchera mieux

 

[Mytå]

Re : modif pour un calendrier

Salut le forum

Pas besoin d'effacer les cellules au début de la macro

Sub efface()
Dim i As Byte
Dim j As Byte

Application.ScreenUpdating = False

For i = 5 To 60 Step 5
For j = 4 To 34
    If Not (Cells(j, i - 2).Value = 6 Or Cells(j, i - 2).Value = 7) _
        And Cells(j, i).Interior.ColorIndex = xlNone Then
            Cells(j, i).Value = 1
    Else
            Cells(j, i).Value = ""
    End If
Next j
Next i
 
Application.ScreenUpdating = True

End Sub

Mytå

 

[Mytå]

Re : modif pour un calendrier

Re le forum

Une autre approche

Sub efface()
Dim i As Byte
Dim j As Byte

Application.ScreenUpdating = False

For i = 5 To 60 Step 5
For j = 4 To 34

With Cells(j, i)
    If .Offset(0, -2) < 6 And .Interior.ColorIndex = xlNone Then
        .Value = 1
    Else
        .Value = ""
    End If
End With

Next j
Next i
 
Application.ScreenUpdating = True

End Sub

 

[yvon07]

Re : modif pour un calendrier

bonsoir,c'est bien ce que je veut faire
sauf que pour le mois de fevrier et les moi de 30 jours cela met des 1 partout

 

[yvon07]

Re : modif pour un calendrier

merci Mytå

j'ai resolu le pb toutes les cellule non utiliser sont maintenant mis en noir,ca marche tres bien
encore merci a tous