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

XL 2010 Problème de date en changeant de mois

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ClemG
  • Date de début Date de début

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
C

ClemG

XLDnaute Nouveau
Bonjour à tous, j'ai un petit problème dans un code VBA mais je n'arrive pas à savoir où il se trouve.
Pour faire court, j'ai créé un fichier de suivi pour le CA de mon entreprise sous forme de plusieurs userforms. Ce fichier lance directement un userform "de base" servant de console générale et regroupant des infos et des accès autres userforms.
Dans le code d'initialisation de cette "console" j'ai des remplissages de labels qui se font en fonction de la date du jour en allant piocher dans des classeurs en d'après le mois en cours (fonction month(date))
Tout fonctionnait très bien lors de la création du fichier (en novembre, fonctionnait tous les jours) mais aujourd'hui, passage en décembre, le fichier me renvoie:

Voici un extrait de mon code:

Me.LabelDateJour = Date
Me.LabelMoisDate = Val(Month(Date))

Dim moisencours
moisencours = Me.LabelMoisDate.Caption
Dim pagemois


If moisencours = "1" Then
pagemois = "JourJanvier"
End If
If moisencours = "2" Then
pagemois = "JourFevrier"
End If
If moisencours = "3" Then
pagemois = "JourMars"
End If
If moisencours = "4" Then
pagemois = "JourAvril"
End If
If moisencours = "5" Then
pagemois = "JourMai"
End If
If moisencours = "6" Then
pagemois = "JourJuin"
End If
If moisencours = "7" Then
pagemois = "JourJuillet"
End If
If moisencours = "8" Then
pagemois = "JourAout"
End If
If moisencours = "9" Then
pagemois = "JourSeptembre"
End If
If moisencours = "10" Then
pagemois = "JourOctobre"
End If
If moisencours = "11" Then
pagemois = "JourNovembre"
End If
If moisencours = "12" Then
pagemois = "JourDecembre"
End If

Me.LabelEstCA.Caption = Format(Sheets(pagemois).Range("N4"), "# ##0")
Me.LabelAvN.Caption = Round(Sheets(pagemois).Range("N5"), 2)
Me.LabelAvObj.Caption = Round(Sheets(pagemois).Range("N7"), 2)
Me.LabelMgeCum.Caption = Round(Sheets(pagemois).Range("J24"), 2)

J'espère que vous pourrez m'aider, c'est un fichier ultra pratique mais s'il ne fonctionne pas c'est du temps perdu. J'ai pas mal cherché sur les forums mais sans succès pour ce sujet bien spécifique...

Merci

Clément
 
Solution
L
Bonjour à tous.
Je rejoins JM27 sur sa remarque. Peut être Décembre à-t-il été orthographié avec un accent ???
Cependant, j'ai juste modifié ton code car à mon sens plus lisible que tous ces IF ENDIF
VB: 
..........
    Me.LabelDateJour = Date
    Me.LabelMoisDate = Val(Month(Date))
    
    Dim MoisEnCours
    Dim PageMois

    MoisEnCours = Me.LabelMoisDate.Caption
    Select Case MoisEnCours
        Case Is = 1:            PageMois = "JourJanvier"
        Case Is = 2:            PageMois = "JourFevrier"
        Case Is = 3:            PageMois = "JourMars"
        Case Is = 4:            PageMois = "JourAvril"
        Case Is = 5:            PageMois = "JourMai"
        Case Is = 6:            PageMois = "JourJuin"
        Case Is =...
Trier par date Trier par votes
Bonjour à tous.
Je rejoins JM27 sur sa remarque. Peut être Décembre à-t-il été orthographié avec un accent ???
Cependant, j'ai juste modifié ton code car à mon sens plus lisible que tous ces IF ENDIF
VB: 
..........
    Me.LabelDateJour = Date
    Me.LabelMoisDate = Val(Month(Date))
    
    Dim MoisEnCours
    Dim PageMois

    MoisEnCours = Me.LabelMoisDate.Caption
    Select Case MoisEnCours
        Case Is = 1:            PageMois = "JourJanvier"
        Case Is = 2:            PageMois = "JourFevrier"
        Case Is = 3:            PageMois = "JourMars"
        Case Is = 4:            PageMois = "JourAvril"
        Case Is = 5:            PageMois = "JourMai"
        Case Is = 6:            PageMois = "JourJuin"
        Case Is = 7:            PageMois = "JourJuillet"
        Case Is = 8:            PageMois = "JourAout"
        Case Is = 9:            PageMois = "JourSeptembre"
        Case Is = 10:            PageMois = "JourOctobre"
        Case Is = 11:            PageMois = "JourNovembre"
        Case Is = 12:            PageMois = "JourDecembre"
    End Select
..............
@+ Lolote83
 
Vote positif 0 Vote négatif
Solution
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

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
AtTheOne
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
446
Casim
C
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
480
clausen
C
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
611
Pimpon974
P
  • Résolu(e)
Microsoft 365 VBA : Calculer la date de fin de trimestre
2 3
Réponses
30
Affichages
3 K
eCHO
E
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
704
un internaute
U
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
  • Résolu(e)
XL 2016 Récupérer les données de nom et de date VBA
2 3
Réponses
35
Affichages
3 K
Oneida
Z
  • Question Question
Microsoft 365 Supprimer un doublon en fonction d'une date et d'un numéro
Réponses
0
Affichages
497
Zifox
Z
G
  • Question Question
XL 2016 modifier virgule en point
Réponses
1
Affichages
685
Grouchet
G
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
S
  • Question Question
Autres Comment traiter filtre imbriqué en formule VBA ? (filtres sur plusieurs colonnes) sur TCD (avec segment) et sur simple base de données
Réponses
2
Affichages
1 K
merinos-BernardEtang
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
E
  • Question Question
Microsoft 365 Problème format date dans tableau
Réponses
3
Affichages
1 K
etpisculrien
E
E
  • Question Question
Microsoft 365 Ecrire une date en fonction d'une recherche (vba)
Réponses
2
Affichages
1 K
Eisu
E
S
  • Question Question
XL 2019 VBA Copier/coller données en fonction de la date
Réponses
2
Affichages
1 K
SimpsonHomer
S
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
C
  • Question Question
XL 2016 Recopier lien hypertexte en fonction d'une récupération de texte
Réponses
6
Affichages
1 K
christ77000
C
S
  • Résolu(e)
XL 2016 Fusionner les doublons de date
Réponses
6
Affichages
1 K
scrib
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…