Discussion :

[mounabouyahyaoui]

Bonjour,

Voila, je suis une débutante avec Excel et j’essai de réaliser un planning pour la gestion de congé de salariés.
Mon problème est que j’essai de masquer les weekends et que je n’y arrive pas.
Pour afficher les jours de la semaine j’ai procédé de la manière suivante :
J’ai récupéré les dates situées dans la ligne 4 et j’ai copié cette formule sur toute la longueur de mon tableau (la ligne 5). Puis, pour afficher le jour de la semaine, j’ai sélectionné cette seconde ligne puis menuFormat, Cellules, onglet Nombres puis Dates et la catégorie personnalisée. Et dans la zone Type, j’ai tapé « jjj » pour obtenir l'affichage abrégé des jours de la semaine.

Puis j’ai créé un formulaire avec le bouton masquer weekend dont le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub btnmasquer_Click()
    Dim d As Integer
    Dim F As Worksheet
 
    Set F = Application.ActiveWorkbook.Worksheets(1)
    For d = 2 To 254
        If F.Cells(d, 5).Value = "sam" Then
        F.Cells(d, 5).EntireColumn.Hidden = True
        End If
    Next
End Sub

ici je n'ai essayé de masquer que samedi en premier lieu (car dans une autre feuille concernant un autre pays le weekend c'est vendredi et samedi et non dim et sam ^^)

voila .. est ce que quelqu'un pourrai m'aider SVP?? (et merci !)

Mouna.

[mnarchi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For d= 2 To 254
 
    JourSem = Application.WorksheetFunction.Weekday(Cells(d, 5).Value)
    If JourSem = 7 Or JourSem = 1 Then
        Columns(i).EntireColumn.Hidden = True
    End If
 
Next

[Michel_M]

Bonjour,

sans utiliser VBA, essaies peut-^tre cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SERIE.JOUR.OUVRE(date depart,nb_jours, férié)

à installer par outils-macros complémentaires-cocher utilitaire d'analyse

en mettant nb_jours à 1 et avec un tableau des jours fériés et des ponts éventuels, tu auras les jours ouvrés dans la boite en "tirant" sur la cellule avec la formule.

Ci joint petite démo.

[EmmanuelleC]

pour aider a comprendre le probleme de base, le format de cellule ne change pas le contenu de la cellule, c'est uniquement cosmétique

Donc meme si tu vois "sam", le contenu de la cellule est de la forme 40425 (pour le 04/09/2010 par exemple), c'est a dire un nombre de jour depuis 01/01/1900

La fonction WEEKDAY(date;type de semaine) retourne un nbre en fonction du jour de la semaine
si type de semaine = 1 le dimanche vaut 1, le lundi 2,... et le samedi 7
si type de semaine = 2 le lundi vaut 1, le mardi 2,... et le dimanche 7
si type de semaine = 3 le lundi vaut 0, le mardi 1,... et le dimanche 6

et tu peux donc l'utiliser comme critere pour savoir a partir d'une date quel jour du est