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

Calendrier dans plage de cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion RW02
  • 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
R

RW02

XLDnaute Nouveau
Bonjour,
Je cherche à mettre un calendrier dans un champ afin de pouvoir sélectionner la date. J'ai vu plusieurs tutoriels sur le net mais je n'arrive pas à mes fins !!! Suis pas très doué. 🙁
Je mets un petit fichier en pj.
Merci d'avance pour votre aide...
Bonne journée
 

Pièces jointes

Trier par date Trier par votes
inserer dans la feuille un controle activex : Monthview


Ajouter ce code dans le module de feuille
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D4:D33")) Is Nothing Then
        If Target.Count = 1 Then
                Me.MonthView1.Value = IIf(Target.Value < Now, Now, Target.Value)
                Me.MonthView1.Visible = True
                Me.MonthView1.Left = Target.Offset(0, 1).Left
                Me.MonthView1.Top = Target.Offset(0, 1).Top
                DoEvents
        End If
End If
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
ActiveCell.Value = DateClicked
Me.MonthView1.Visible = False
End Sub
en cas de probleme d'installation :
https://support.microsoft.com/fr-fr/kb/2676583
 
Vote positif 0 Vote négatif
Merci Philippe et Modeste
Modeste, j'ai testé ta solution mais j'ai un message Visual Basic et ça ne fonctionne pas !!!
J'ai dû commettre un erreur en copiant le code. 😕
Je mets mon fichier en pj.
 
Vote positif 0 Vote négatif

Merci Modeste pour votre aide
Je n'arrive pas à mes fins lorsque j'utilise votre procédure.
Pouvez-vous vérifier dans le fichier joint si j'ai commis une erreur dans la mise en oeuvre? 😕
Merci pour votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
riton00 à dit:
Bonsoir

Ici greffé sur ton fichier un calendrier de notre cher ami, Roland que je salut au passage
Fonctionne par double clic en colonne D

Cordialement
Cliquez pour agrandir...

Génial, ça répond tout à fait à mes attentes. Je vais essayer de comprendre le fonctionnement et de l'adapter à d'autres projets.
Merci Riton et merci également aux autres contributeurs Philippe et Modeste
Bonne soirée à tous
 
Vote positif 0 Vote négatif

PS: juste une petite question !!! Que dois-je changer à ce qui suit pour appliquer ce calendrier à d'autres cellules de la même feuille (exemple : R3:R100)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D3😀1000")) Is Nothing Then
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
Cancel = True
End If
End Sub
 
Vote positif 0 Vote négatif
Re

Code: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D3:D100,R3:R100")) Is Nothing Then
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
Cancel = True
End If
End Sub

Slts
 
Vote positif 0 Vote négatif
Bonsoir à tous,

Salut Riton !

et si tu veux sélectionner dans d'autres feuilles des range() différents exemple:
Code: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
F$ = LCase(Sh.Name) ' test en minuscule!
If F$ = "commandes" Then '< ici nom de ta feuille avec date en D3:D100
   If Not Application.Intersect(Target, Range("D3:D100,R3:R100")) Is Nothing Then
      fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date):  Cancel = True
    End If
ElseIf F$ = "nom de ta feuille1" Then '< ici nom d'une autre feuille avec date en R3:R100
   If Not Application.Intersect(Target, Range("R3:R100")) Is Nothing Then
      fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date): Cancel = True
    End If
ElseIf F$ = "nom de ta feuille2" Then '< ici nom d'une autre feuille ........
   If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
      fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date): Cancel = True
   End If
End If
End Sub
 
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

S
  • Résolu(e)
Microsoft 365 Fond coloré pour certaines dates de calendrier
Réponses
6
Affichages
182
Sblm
S
L
  • Question Question
XL 2021 Sélecteur de date
2
Réponses
24
Affichages
2 K
LuckyLuciano
L
B
  • Question Question
XL 2016 tableau suivi (planificateur)
Réponses
0
Affichages
97
berto
B
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
697
SAMUAL_2023
S
J
  • Question Question
XL 2021 Remonter de cellule dans un calendrier pour planification automatique
Réponses
12
Affichages
457
jo657
J
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
209
TooFatBoy
V
  • Résolu(e)
Microsoft 365 Excel: repérer un changement de nombre dans une plage de cellules
Réponses
5
Affichages
183
sylvanu
  • Question Question
XL 2019 Saisir automatiquement des dates au moyen d'un calendrier
2 3 4
Réponses
46
Affichages
1 K
patricktoulon
B
  • Question Question
XL 2019 sauvegarde de donnée dans un calendrier automatique
Réponses
5
Affichages
354
fanfan38
R
  • Question Question
Microsoft 365 Synchronisation calendrier et tableau excell avec calendrier outlook
Réponses
2
Affichages
491
romain2905
R
P
  • Question Question
XL 2021 recherche périodicité
Réponses
7
Affichages
428
djidji59430
C
  • Résolu(e)
Power Query Transposer plusieurs Tables avec Power Query
Réponses
4
Affichages
193
chermiti
C
S
  • Question Question
XL 2016 Colorier dans un planning selon des dates
Réponses
2
Affichages
286
sousou
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
356
job75
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
384
juju91
J
K
  • Question Question
Microsoft 365 Réservation salle de réunion
Réponses
5
Affichages
624
Deleted member 453598
D
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
624
TooFatBoy
A
  • Question Question
XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL
3 4 5
Réponses
63
Affichages
1 K
TooFatBoy
P
  • Question Question
XL 2013 Calendrier
Réponses
8
Affichages
646
AR MOR
A
O
  • Question Question
XL 2016 Identification et mise en forme des jours fériés dans un calendrier
Réponses
7
Affichages
632
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…