Discussion :

[babybell]

Amis du forum bonjour
Sous Excel 2003, j'avais une procédure qui m'affichait un calendrier suite à la sélection d'une cellule .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
Dim Usf As Object
Sub LancementProcedure()
 
    Dim X As Object
    Dim NomMonthView As String
 
    NomMonthView = "MonthView1"
    'Lance la procédure de création du userform et du contrôle MonthView
    Set X = UserForm_Et_MonthView_Dynamique(NomMonthView)
 
    'Affichage userform
    X.Show
 
    'Suppression du userform après la fermeture
    ThisWorkbook.VBProject.VBComponents.Remove Usf
    Set Usf = Nothing
End Sub
 
Function UserForm_Et_MonthView_Dynamique(NomObjet As String) As Object
 
    Dim Obj As Object
    Dim j As Integer
    'Création UserForm
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Properties("Caption") = "               Calendrier"
        .Properties("Width") = 135
        .Properties("Height") = 140
    End With
 
    'Création du contrôle MonthView
    Set Obj = Usf.Designer.Controls.Add("MSComCtl2.MonthView.2")
 
    With Obj
        .Left = 0: .top = 0: .Width = 150: .Height = 140
        .Name = NomObjet
        .ForeColor = &HC000C0
        .TitleBackColor = &HFFFFFF
    End With
 
 
    'Ajout de la procédure évènementielle DateClick du contrôle MonthView
    With Usf.CodeModule
 
        j = .CountOfLines
        .insertlines j + 1, "Sub " & NomObjet & "_DateClick(ByVal DateClicked As Date)"
        'Insère la date dans la cellule active
        .insertlines j + 2, "   ActiveCell = DateClicked"
        'Option pour refermer l'userform après l'insertion de la date.
        .insertlines j + 3, "   Unload Me"
        .insertlines j + 4, "End Sub"
    End With
 
    VBA.UserForms.Add (Usf.Name)
    Set UserForm_Et_MonthView_Dynamique = UserForms(UserForms.Count - 1)
 
End Function

Sous Excel, cela ne fonctionne pas. Quelqu'un aurait-il une idée à me proposer pour que cela fonctionne ? Je l'en remercie d'avance.

[Daniel.C]

Bonjour,

Est-ce que tu peux créer manuellement un contrôle MonthView sur un userform ?

[Invité]

au début des années 2000, dans le cadre de la loi antitrust, Microsoft c'est vue condamnée pour concurrences déloyale, il fournissait gratuitement des contrôles dit de niveau 2.

depuis des application 2003 ne fonctionne plus.

[Daniel.C]

Bonjour,

Le contrôle MonthView figure toujours dans le fichier mscomct2.ocx.

[Invité]

Ok mais dans le doute, j'ais mis cette solution!

dommage,babybell ,que tu pas mis ta solution histoire de!

[babybell]

Bonsoir à tous

je suis en train de travailler dessus, car la solution proposée ne m'allait pas entièrement, un UserForm qui en appelle un autre, je voudrais l'éviter. j'essaye de faire comme ma solution précédente, à savoir le userform du bon mois qui apparait lorsqu'on sélectionne une cellule.

[samawati]

salut babybel,

je pense qu'il faut juste installer le MSCOMCT2.OCX et le meme code devrait fonctionné! j'avais eu le meme soucis il y a quelques mois.
voici un lien avec explication d'installation.
http://excel.developpez.com/telechar...0-MSCOMCT2-OCX

j'espère que cela va t'aider!
bonne soirée et bonne année

[Invité]

Bonjour, ce n'était que pour l'exemple car le calendrier fonctionne indépendamment d'un UserForm:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Calendard.Chargement

mais tu la bien adapté.

bien sur je ne revendique pas la propriété intellectuelle de ce code et pourtant c'est le cas, un petit merci

Bonsoir à tous

je suis en train de travailler dessus, car la solution proposée ne m'allait pas entièrement, un UserForm qui en appelle un autre, je voudrais l'éviter. j'essaye de faire comme ma solution précédente, à savoir le userform du bon mois qui apparait lorsqu'on sélectionne une cellule.