Voir le flux RSS

patricktoulon

collection boite de dialogue perso episode 6

Noter ce billet
par , 10/02/2019 à 16h43 (165 Affichages)
collection boite de dialogue perso episode 6

un calendrier dans son propre formulaire utilisable sur sheets ou textbox et combobox

et si au click droit sur cellule on avait un calendrier qui s'affiche pour mettre la date choisi dans celles ci

et si au click droit sur un textbox on avait le calendrier qui s'affiche pour choisir une date

et pareil dans une combobox a fin de ne pas etre obligé de derouler des kilometres une combo pour choisir une date

et si on avait la possibilité de choisr sans sub ou fonction suplementaire le format de sortie

et si il semettais en francais ou en US(anglais) en fonction de la region parametrée dans le system

je vous propose cette version de mon calendrier dans un userform

elle peut vous sortir les 3 format application.international(xldateorder )

et un dernier qui se contente de vous sortir la date en fonction de celle du system automatiquement


je rapelle qu'il es question ici d'avoir un calendrier dispo meme pour ceux qui sont en 64 bits
etant donné que je n'utilise toujours pas de control calendart et autre datepicker ,seulement des controls generiques dispos dans toute versions d'excel
methode d'utilisation dans un sheets

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim dat
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Cancel = True
        With Calendrier
            Set .Destination = Target
            .Show
            If .DateResult <> False Then Target = .DateResult
            Unload Calendrier
        End With
    End If
End Sub
Nom : demo2.gif
Affichages : 92
Taille : 366,7 Ko




exemple d'utilisation dans des textbox d'un userform sous divers format


Nom : demo3.gif
Affichages : 89
Taille : 526,3 Ko
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
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
'

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With Calendrier
            Set .Destination = ComboBox1
            .Show

            If .DateResult <> False Then ComboBox1.Value = .DateResult: If ComboBox1.ListIndex = -1 Then ComboBox1.Value = "Nofound!!"
            Unload Calendrier
        End With
    End If
End Sub
'
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyCode = 0: End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With Calendrier
            Set .Destination = TextBox1
            .Show
            If .DateResult <> False Then TextBox1.Value = .DateResult
            Unload Calendrier
        End With
    End If
End Sub
'
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyCode = 0: End Sub
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With Calendrier
            Set .Destination = TextBox2
            .region = 0
            .Show
            If .DateResult <> False Then TextBox2.Value = .regionDate0
            Unload Calendrier
        End With
    End If
End Sub
'
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): KeyCode = 0: End Sub
Private Sub TextBox3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With Calendrier
            Set .Destination = TextBox3
            .separateur = "-"
            .region = 2
            .Show

            If .DateResult <> False Then TextBox3.Value = .regionDate2
            Unload Calendrier
        End With
    End If
End Sub
 
'
Private Sub TextBox4_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With Calendrier
            Set .Destination = TextBox4
            .region = 1
            .separateur = "-"
            .Show

            If .DateResult <> False Then TextBox4.Value = .regionDate1
            Unload Calendrier
        End With
    End If
End Sub
exemple en piece jointe
Miniatures attachées Fichiers attachés

Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Viadeo Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Twitter Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Google Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Facebook Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Digg Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Delicious Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog MySpace Envoyer le billet « collection boite de dialogue perso episode 6 » dans le blog Yahoo

Mis à jour 10/02/2019 à 16h55 par patricktoulon

Catégories
Sans catégorie

Commentaires