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

Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

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
R

richert90

XLDnaute Occasionnel
Bonjour,

J'ai insérer dans un userform un calendrier avec DTPicker. le problème c'est que je viens de voir que sur Excel 2007 ou 2013, on ne voit plus les calendriers....
Je voudrais savoir si vous aviez un code pour avoir un calendrier qui fonctionne quelle que soit la version d'Excel et sans avoir besoin de téléchargez des modules complémentaires.

Merci d'avance,
 
Trier par date Trier par votes
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Re,

Oui je ne dis pas qu'il est pas bien loin de là, mais je pense qu'il est moins adapté dans mon cas étant donné que je cherche à obtenir 2 dates.
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour,

Je n'ai pas Excel Anglais. La fonction langue() permet de détecter la langue (1036 pour Français)

Code: 
Function Langue()
  Langue = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Function

Peut être?

Code: 
Private Sub Bfiltre_Click()
    If Not IsDate(Me.date_début) Or Not IsDate(Me.date_fin) Then Exit Sub
    If Langue = 1036 Then
      [A1].AutoFilter Field:=3, Criteria1:=">=" & Format(CDate(Me.date_début), "mm/dd/yy"), _
         Operator:=xlAnd, Criteria2:="<=" & Format(CDate(Me.date_fin), "mm/dd/yy")
    Else
       [A1].AutoFilter Field:=3, Criteria1:=">=" & Format(CDate(Me.date_début), "dd/mm/yy"), _
         Operator:=xlAnd, Criteria2:="<=" & Format(CDate(Me.date_fin), "dd/mm/yy")
    
    End If
End Sub

Function Langue()
  Langue = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Function

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour richert90;


Pour que la date tienne compte des paramètres régionaux, remplace

Code: 
 Me.date_début = DateSerial(Year(mois_courant), Month(mois_courant), Début - décal)
par
Code: 
Dim dt As Date
        dt = DateSerial(Year(mois_courant), Month(mois_courant), Début - décal)
        Me.date_début = dt

Avec la même technique, remplace aussi
Code: 
Me.date_fin = DateSerial(Year(mois_courant), Month(mois_courant), Fin - décal)
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour BOISGONTIER,

Merci pour la réponse,

Je n'ai pas Excel en Anglais à ma disposition maintenant, j'essayerai ton code dès que je pourrai et je te retiendrai au courant.

Mais à ce que je vois il n'y aurai rien à changer dans le code concernant le calendrier? c'est à dire que la date serait en version Anglaise ou Française selon la langue d'Excel mais lors du filtre elle serait "remise" correctement en version francaise?
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour Docmarti
Comme dit avant, j'essayerai ton code également dès que je peux le refaire sur une version Anglaise.
Ta modification permettra donc d'afficher (sur un Excel en Anglais) dans les TextBox les dates au format associé à la langue du système? C'est à dire JJ/MM/AAAA pour un Excel en Français et MM/DD/AAAA pour un Excel en Anglais?
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

A mon avis elle fonctionnera sur la plupart des versions d'Excel, russe, chinoise, polonaise, etc.

Tu peux le tester en changeant tes paramètres linguistiques et régionaux.
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Re,

En effet, j'ai essayé de changer mes paramètres linguistiques dans "option" --> "Langue" et j'ai mis Anglais comme langue d'édition mais en redémarrant Excel , c'est toujours en Français.

Roland, je vais regarder ton calendrier également 🙂 merci. Concernant les formats de dates selon la langue ce sera bon tu penses?
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

richert90 à dit:
Re,

En effet, j'ai essayé de changer mes paramètres linguistiques dans "option" --> "Langue" et j'ai mis Anglais comme langue d'édition mais en redémarrant Excel , c'est toujours en Français.
Cliquez pour agrandir...

Je ne parlais pas de la langue d'édition sélectionnée dans Exel par Options/Standard/Paramètres linguistiques.

Je parlais des Paramètres régionaux et linguistiques dans le Panneau de Configuration de Windows. Si tu choisis Anglais ou Suisse, tu verras les dates changées instantanément sur les feulles Excel sans avoir besoin de redémarrer Excel.
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour,
En effet en changeant les les paramètres régionaux, les dates ont bien été changés sur les feuilles Excel,

Mais les dates je les récupère d'un fichier, elles sont donc en Français à chaque fois, Excel lui est en Anglais mais les dates en Français.C'est donc juste la langue d'Excel qui est modifié et pas de Windows. Je veux juste que dans le calendrier d'Excel, les champs dates apparaissent bien sous la forme JJ/MM/AAAA pour ensuite pouvoir correctement filtrer.
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonsoir à tous

Une suggestion en passant
les champs dates apparaissent bien sous la forme JJ/MM/AAAA pour ensuite pouvoir correctement filtrer.
Cliquez pour agrandir...
Personnellement, je convertis les Dates en Long ,c'est ainsi plus simple pour utiliser les filtres avec des dates.
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonsoir,

C'est à dire, une fois récupérées les dates, tu les modifie en Long puis t'appliques ton filtre comme cela ?
Pourquoi c'est plus simple?
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour à tous

richert90:
Lances ce code VBA d'illustration de mes propos précédents dans un classeur vierge.
Copies le code dans un module standard et exécutes la macro a
L’avantage (à mon sens) c'est que de cette façon tu ne soucis pas de savoir si tes dates sont au format
dd/mm/yyyy ou mm/dd/yyyy.
Ne pas oublier ce que nous dit l'aide d'Excel à propos des dates
Code: 
Private Sub crea_sample()
[A1] = "DATES": [A2:A30].FormulaLocal = "=AUJOURDHUI()+MOD(LIGNE();5)"
End Sub
Sub a()
critD = CDate(InputBox("Date de début", "Critères de filtre", Date))
critF = CDate(InputBox("Date de fin", "Critère de filtre", Date + 2))
crea_sample
MsgBox "Application d'un filtre automatique avec des dates converties en Long", vbInformation
[A1].CurrentRegion.AutoFilter 1, ">=" & CLng(critD), xlAnd, "<=" & CLng(critF)
End Sub
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

Bonjour à tous,

Alors j'ai essayer la solution de Docmarti mais malheuresement ça ne marche pas: dans le userForm calendrier avec une version Anglaise si je choisis le 20/04/2012 j'ai, dans le textbox "date_début" : 04/20/2012....

Je me suis penché vers le calendrier de Roland_M :mais en lisant el code j'ai une question: la date récupérée est toujours au format JJ/MM/AAAA?

Merci d'avance, ces formats de dates me posent soucis depuis bien longtemps..........
 
Vote positif 0 Vote négatif
Re : Calendrier Excel VBA (qui marche sur toutes les versions d'Excel)

bonjour à tous,

les formats sont au format date ! donc système !
mais si tu essais mon classeur tu dois bien voir le résultat ?

perso je n'ai jamais eu l'occasion de voir l'autre format !?
 
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

  • Résolu(e)
XL 2021 ouvrir un fichier vba excel 2021 dans les versions ulterieires
Réponses
4
Affichages
429
eriiic
L
  • Résolu(e)
XL 2021 Agenda récurrence excel
2
Réponses
27
Affichages
2 K
leoooooooooooooooooo
L
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
633
ali591
A
B
  • Question Question
XL 2019 remplacer DTpicker par calendrier
Réponses
7
Affichages
3 K
Dranreb
S
  • Question Question
Autres Basculer l'affichage d'un calendrier Excel en mode miniature, sur bureau 'PC'
Réponses
3
Affichages
498
Slavko.R
S
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
9 K
TooFatBoy
C
  • Question Question
XL 2019 Formule pour Compter ou identifier tous les doublons d'une colonne
Réponses
4
Affichages
1 K
Hasco
M
  • Résolu(e)
Microsoft 365 Copier/coller - Ajout/suppression lignes automatiques
Réponses
6
Affichages
928
M.Ben
M
P
  • Résolu(e)
XL 2013 VBA problème de tri entre versions d'Excel
Réponses
2
Affichages
1 K
Ptrs32
P
B
  • Résolu(e)
XL 2019 Fiche de calcul - KM - Trajet
2
Réponses
22
Affichages
3 K
BEKA89
B
T
  • Question Question
XL 2013 Fermeture d'excel lorsque l'on clique sur un label
Réponses
14
Affichages
1 K
Tony 87
T
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
A
  • Question Question
Microsoft 365 lié les valeurs d'un tableau excel à un USERFORM
Réponses
0
Affichages
753
Arch974
A
N
  • Question Question
Microsoft 365 omment transformer un fichier Excel avec VBA et macros en application Web ou bien comment utiliser les macros sur excel online ?
Réponses
3
Affichages
4 K
dysorthographie
S
  • Question Question
XL 2016 Besoin d'aide pour l'affichage de ma page d'intro sur mon fichier excel
Réponses
1
Affichages
348
soan
S
E
  • Résolu(e)
XL 2013 Graphique actualisable sans utiliser DECALER()
Réponses
4
Affichages
2 K
chris
C
  • Question Question
Microsoft 365 Appliquer un calcul à la formule VBA qui recherche la dernière valeur d'un tableau en fonction d'un critère
Réponses
11
Affichages
2 K
CaptainSalt31
C
F
  • Question Question
XL 2016 Synchroniser calendrier outlook avec Excel
Réponses
1
Affichages
3 K
Staple1600
R
  • Résolu(e)
XL 2013 Help j'ai changé de Version excel et VBA n'aime pas ;)
Réponses
3
Affichages
2 K
soan
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…