XL 2019 VBA - Afficher/Masquer des jours de la semaine

[sami1814]

Bonjour à toutes et tous,

Je suis ultra novice en VBA et j'ai besoin d'aide.

Je suis en train de créer un planning des jours et des semaines en fonction du 1er jour d'un mois (en A1).

Maintenant, ce que je veux faire c'est Afficher ou Masquer une colonne en fonction des valeurs de D4:AH4 ("" ou 1)

Dans la cellule D4, j'ai créé cette formule pour y afficher "" ou 1 :
=SI(OU(D3="Samedi";D3="Dimanche");"";1)

Le code ci-dessous fonctionne uniquement si les cellules D4:AH4 contiennent des valeurs 1 ou rien (pas ""). Etant donné que la formule renvoie "", le code bug vu que "" <> rien.

Sub Afficher()

Dim cel As Range
For Each cel In Range("D4:AH4").SpecialCells(xlCellTypeBlanks)
cel.EntireColumn.Hidden = False
Next

End Sub

Sub Masquer()

Dim cel As Range
For Each cel In Range("D4:AH4").SpecialCells(xlCellTypeBlanks)
cel.EntireColumn.Hidden = True
Next

End Sub

Auriez-vous une solution pour remplacer .SpecialCells(xlCellTypeBlanks) par un autre paramètre ?

Merci d'avance

 

[sylvanu]

Bonjour Sami,
Une possibilité :

Sub Afficher()
Dim cel As Range
    For Each cel In Range("D4:AH4")
        If cel <> 1 Then cel.EntireColumn.Hidden = False
    Next
End Sub
Sub Masquer()
    Dim cel As Range
    For Each cel In Range("D4:AH4")
        If cel <> 1 Then cel.EntireColumn.Hidden = True
    Next
End Sub

Une autre en supprimant la ligne 4 inutile :

Sub Afficher2()
    Application.ScreenUpdating = False
    Range("D:AH").EntireColumn.Hidden = False
End Sub
Sub Masquer2()
    Application.ScreenUpdating = False
    Dim cel As Range
    For Each cel In Range("D3:AH3")
        If cel = "Samedi" Or cel = "Dimanche" Then cel.EntireColumn.Hidden = True
    Next
End Sub

 

[sami1814]

Salut sylvanu !

Merci pour ces 2 solutions ! Exactement ce que je recherchais !

Bon weekend à toi


EDIT: par contre quand je modifie la date (1er jour d'un mois), les jours restent pareils, c'est normal à cause du VBA ?

 

[Efgé]

Bonjour à tous

EDIT: par contre quand je modifie la date (1er jour d'un mois), les jours restent pareils, c'est normal à cause du VBA ?

La formule n'est pas bonne. Il faut utiliser :
=NOMPROPRE(SI($B$1="";"";TEXTE(D6;"jjjj")))

Si tu utilises en $D$3 =TEXTE(JOUR(D6);"jjjj") tu demande à avoir le format texte de la date 1 puis de la date 2.
Tes jours ne changeant jamais (toujours 1 puis 2 etc.) ton texte ne changera jamais. Il faut utiliser la date entière.

Cordialement

 

[patricktoulon]

bonjour
@sylvanu , @sami1814 , @Efgé
hoh! les gars
il faudrait peut être arrêter de fumer la moquette
sur quelle planète le 01/01/2021 est un dimanche
votre tableau est faux des le départ

 

[patricktoulon]

déjà vous me modifie cela
en ca
=NOMPROPRE(SI($B$1="";"";TEXTE(JOURSEM(D6;1);"jjjj")))
et on etends la formule jusqu'au besoins dans la ligne 3

et pour le vba perso je m'attaque direct a la date en ligne 6
pas la peine de faire des pirouiette avec les noms

Sub Afficher()
    Range("D4:AH4").EntireColumn.Hidden = False
End Sub

Sub Masquer()
    Dim cel As Range, joursemaine
    For Each cel In Range("D6:dH6").Cells
        If IsDate(cel) Then
            joursemaine = Weekday(cel, vbUseSystemDayOfWeek)
            If joursemaine = 7 Or joursemaine = 6 Then Columns(cel.Column).Hidden = True
        End If
    Next
End Sub

pour info les vrais jours ca doit donner ceci

 

[ChTi160]

Bonjour sami1814
Bonjour le Fil
Histoire de vous saluer Lol
Pourquoi pas ?

If joursemaine > 5 Then

une question
dans cette formule

=NOMPROPRE(SI($B$1="";"";TEXTE(JOURSEM(D6;1);"jjjj")))

ne devrait il pas dans (JOURSEM(D6;1)) y avoir si le lundi est le premier jour de la semaine un 2 à la place du 1 ?
Lol
Bonne fin de journée
jean marie

 

[patricktoulon]

re
bonjour @ChTi160
non en formule excel c'est 1 en vba c'est 2

 

[ChTi160]

Re
Ah???????
j'ai pourtant fait cela :

=NOMPROPRE(SI($B$1="";"";TEXTE(JOURSEM(D6;1);"jjjj")))
et on étends la formule jusqu'au besoins dans la ligne 3

et j'obtiens Samedi au lieu de Vendredi le 01/01/2021
Excuse y'a un Chimilimblick Lol
jean marie

 

[patricktoulon]

re
bonjour le Windows ou office pipé

 

[patricktoulon]

@ChTi160 tu n'aurais pas une version canadienne toi par hasard?

 

[ChTi160]

Re
tu dis : "une version canadienne" d'office ou Windows ?

j'ai un office 365 (abt) depuis près d'un An (19/05/2021)
et
Windows 10 de mon nouveau PC Acer Aspire A517-52G .
donc je ne crois pas Lol
jean marie

 

[Efgé]

Re à tous

il faudrait peut être arrêter de fumer la moquette
sur quelle planète le 01/01/2021 est un dimanche

Il faudrait peut-être lire les messages précédents avant de donner des leçons…
Après chacun voit midi à sa porte

Ceci étant posé, je propose une version sans VBA
J'attends les formulistes pour simplifier ma pauvre proposition...


Cordialement

 

[patricktoulon]

bizarre
d’aussi loin que je me souvienne sur les versions francaises(french) et non (canadian)
c'est 1 pour lundi et 7 pour dimanche

la fonction vba weekday par contre c'est 2 car vba a été concu en US
peut etre ont il supprimé cette différence sur les office recents comme 365
en tout cas chez moi 2007 ,2013,2016 en 32 bits c'est 1

 

[patricktoulon]

@ChTi160 chez moi avec 2 j'obtiens un jeudi