Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : 1ere et dernière date du mois (ouvrés) [RESOLU]

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Imer2007

XLDnaute Occasionnel
Bonjour à tous,

Je sèche actuellement sur un truc.
Dans un classeur, j'ai une colonne dans laquelle j'ai inscrit tous les jours de l'année 2012 (uniquement les jours ouvrés donc sans les samedi/dimanche et jours fériés).

Je viens de créer un userform dans lequel une combobox (liste déroulante qui s'appelle select_jour) récupère tous ces jours (via rowsource).

Je souhaiterais pouvoir activer deux cases à cocher sur ce userform :
1- première case à cocher si la date sélectionnée est le 1er jour ouvré du mois
2- deuxième case à cocher si la date sélectionnée correspond au dernier lundi du mois.

J'ai besoin de vos lumières parce que là, je sèche totalement !

J'ai déjà une partie plus 'facile', ou des sauvegardes sont actives le lundi et le jeudi :

Code: 
Private Sub select_jour_Change()
' conversion pour afficher sous la forme jour date mois année, ex : lundi 2 janvier 2012
select_jour.Value = Format(select_jour.Value, "dddd d mmmm yyyy")

' splitte la variable pour n'avoir que le jour, ex : lundi
decoupe = Split(select_jour.Value, " ")
' récupération du nom du jour
jour = decoupe(0)
If jour = "lundi" Then
' sauvegardes activées le lundi
    coche_sauvegarde_hebdo.Enabled = True
    coche_sauvegarde_mensuelle.Enabled = True
    coche_rniam.Enabled = True
Else
    coche_sauvegarde_hebdo.Enabled = False
    coche_sauvegarde_mensuelle.Enabled = False
    coche_rniam.Enabled = False
End If
If jour = "jeudi" Then
' sauvegarde intranet active le jeudi uniquement
    coche_intranet.Enabled = True
Else
    coche_intranet.Enabled = False
End If
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : VBA : 1ere et dernière date du mois (ouvrés)

Bonjour Imer,

Dans mon code rien...🙂 Par contre tu peux ajouter
Code: 
Private Sub UserForm_Initialize()
    select_jour = Format(Date, "dddd d mmmm yyyy")
End Sub

Cordialement

KD
 
Vote positif 0 Vote négatif
Re : VBA : 1ere et dernière date du mois (ouvrés)

Je viens de tilter... La date du jour c'est maintenant (27 juillet 2011).
Mon calendrier démarre au 1er janvier 2012.

La date ne faisant pas partie de ce calendrier, l'erreur ne viendrait-elle pas de là finalement ? 😉
 
Vote positif 0 Vote négatif
Re : VBA : 1ere et dernière date du mois (ouvrés)

Re,

Non, ça passe chez moi... Tu as omis de préciser que tu as modifié ton userform et que le combobox sel_jour n'existe plus... 🙄Tous les codes précédents sont à reprendre.... Cordialement

KD
 
Vote positif 0 Vote négatif
Re : VBA : 1ere et dernière date du mois (ouvrés)

Bon je dois avoir de la merde dans les yeux lol parce que ma date de jour s'affiche dans un textbox appelé sel_jour (j'ai fais la modif), mais non ca me met toujours le message d'erreur VB.
 
Vote positif 0 Vote négatif
Re : VBA : 1ere et dernière date du mois (ouvrés)

J'ai fais une modification et là ca marche (en tout cas pour aujourd'hui ^^)

Code: 
Private Sub sel_jour_Change()
Dim Ligne As Long

' splitte la variable pour n'avoir que le jour
decoupe = Split(sel_jour.Value, " ")
' récupération du nom du jour
jour = decoupe(0)
If jour = "lundi" Then
' RNIAM et sauvegardes activées le lundi
    coche_sauvegarde_hebdo.Enabled = True
    coche_sauvegarde_mensuelle.Enabled = True
    coche_rniam.Enabled = True
Else
    coche_sauvegarde_hebdo.Enabled = False
    coche_sauvegarde_mensuelle.Enabled = False
    coche_rniam.Enabled = False
End If

If jour = "jeudi" Then
' sauvegarde intranet active le jeudi uniquement
    coche_intranet.Enabled = True
Else
    coche_intranet.Enabled = False
End If

' partie 1er jour du mois
' par défaut Omnivista et imprimantes sont décochés
coche_omnivista.Enabled = False
coche_imprimantes.Enabled = False
Sheets("Calendrier").Activate
If sel_jour.Value <> 0 Then
    Ligne = Recherche(sel_jour.Text, 1)
    'si le jour précédent le jour sélectionné est inférieur à celui-ci
    'et si le jour suivant le jour sélectionné est supérieur à celui-ci
    ' c'est qu'on est en début de mois
    If Val(decoupe(1)) < Day(Worksheets("Calendrier").Cells(Ligne + 1, 1)) And Val(decoupe(1)) < Day(Worksheets("Calendrier").Cells(Ligne - 1, 1)) Then
        coche_omnivista.Enabled = True
        coche_imprimantes.Enabled = True
    End If
Else
    coche_omnivista.Enabled = True
    coche_imprimantes.Enabled = True
End If
' fin partie 1er jour du mois

' partie dernier lundi du mois
Set rg = Worksheets("Calendrier").Cells(Ligne + 2, 1)
coche_sauvegarde_mensuelle.Enabled = False
If WorksheetFunction.Weekday(rg) = 2 Then
    Select Case Month(rg)
        Case 1, 3, 5, 7, 8, 10, 12
            If Day(rg) > 24 Then
                coche_sauvegarde_mensuelle.Enabled = True
            End If
        Case 4, 6, 9, 11
            If Day(rg) > 23 Then
                coche_sauvegarde_mensuelle.Enabled = True
            End If
        Case 2
            If Year(rg) Mod 4 = 0 Then
                If Day(rg) > 22 Then
                    coche_sauvegarde_mensuelle.Enabled = True
                End If
            Else
                If Day(rg) > 21 Then
                    coche_sauvegarde_mensuelle.Enabled = True
                End If
            End If
    End Select
End If
End Sub
 
Vote positif 0 Vote négatif
Re : VBA : 1ere et dernière date du mois (ouvrés)

Bonjour,

Je viens de tester aujourd'hui mon code et ca a l'air de fonctionner. 🙂

Bon, c'est pas forcément terrible mais ca a le mérite de marcher ! ^^

Merci encore pour vos aides !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
430
Staple1600
  • Résolu(e)
XL 2013 (RESOLU) Simplifier un code fonctionnel
Réponses
2
Affichages
570
chaelie2015
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
R
  • Résolu(e)
Microsoft 365 Nombre valeurs saisie entre le 1er du mois et aujourd'hui
Réponses
5
Affichages
764
raf26
R
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
  • Question Question
XL 2016 Optimisation code agenda
Réponses
0
Affichages
1 K
Nicolas JACQUIN
M
  • Question Question
determiner une serie de jours ouvrés avant et après un weekend ou un jour ferié à partir d'une date
2
Réponses
18
Affichages
2 K
Monhtc
M
U
  • Question Question
XL 2016 Besoin d'aide - Problème VBA pour planning perpétuel
Réponses
9
Affichages
2 K
xUpsilon
  • Question Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
2 K
Magic_Doctor
U
  • Question Question
[RÉSOLU] La dernière ligne du mois reste en couleur alors que...
Réponses
6
Affichages
1 K
Paritec
N
  • Question Question
XL 2016 [Résolu] Macro pour positionner un tableau à la date du jour et à la semaine en cours
Réponses
13
Affichages
6 K
nours955i
N
  • Question Question
une fonction qui renvoie parfois une date erronée
2 3
Réponses
33
Affichages
4 K
Magic_Doctor
R
  • Question Question
mettre le mois du jour en VBA, et non la date du jour (RESOLU)
Réponses
6
Affichages
13 K
reitre
R
  • Question Question
Planning multi-rôle et mono-feuille ( « time-line » unique de 13 mois)
Réponses
8
Affichages
11 K
zorglubxp
  • Question Question
VBA ajouter n jours ouvrés à la date du jour
3 4 5
Réponses
66
Affichages
27 K
C@thy
D
  • Question Question
[RESOLU] Pb VBA date
Réponses
6
Affichages
17 K
CHALET53
C
A
  • Question Question
Créer des tâches planifiers avec VBA et le planificateur Windows
Réponses
8
Affichages
10 K
tototiti2008
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…