XL 2013 [Résolu] Souci d'écriture module de classe

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous 👋:)

Je suis entrain de faire un calendrier sur formulaire. Comme il y a 42 labels, j'ai opté pour un module de classe. Mon souci c'est que j'ai aussi 2 textbox's (date debut - date de fin). Je n'arrive pas à faire en sorte, d'avoir une date de début et une date de fin.
VB:
Option Explicit

Public WithEvents Groupe_Lb As MSForms.Label


Private Sub Groupe_Lb_Click()

    If memoire = False Then
        memoire = True

        With Calendrier
            sMois = Month(DateValue("01 " & .CbMois & " " & .CbAnnees))
            mem = CDate(Groupe_Lb.Caption & "." & sMois & "." & .CbAnnees.Value)
            .TbDeb = Format(CDate(mem), "dd.mm.yyyy")
        End With
    ElseIf Calendrier.TbDeb <> vbNullString Then
        memoire = False: Calendrier.TbFin = Format(CDate(mem), "dd.mm.yyyy")
    End If
End Sub
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re,

je viens d'adapter la fonction "pression" de l'exemple de Jacques Boisgontier "Formulaire 2 dates" et j'ai toujours le même problème, seule la date de début est prise en considération.
 

Pièces jointes

  • Calendar.xlsm
    58.9 KB · Affichages: 17

Lone-wolf

XLDnaute Barbatruc
Bonjour @Lone-wolf

Résolu????:rolleyes::eek:🤔
et ben mon amis tu en a beaucoup a faire encore crois moi ;)

tu utilise un format de date (avec "." et tu demande a vba d'identifier la date dans tes codes 🤣
bref ça plantait de tout les cotés
j'ai revu aussi tout les codes un peu par ci un peu par là

ensuite des fonction de couleur et mise a jour et maj sont très lourdes et dans le initialyse ben j'avais une latence (userform blanc)surtout que c'est inutile les samedi et dimanche seront toujours les derniere colonnes
j'ai donc tout mis dans le activate avec un repaint

je t'ai aussi classé tes 42 label intra userform (pas de module classe )
tu a donc maintenant un event click unique pour tout tes label Labelpress_click
bref yen a tellement encore a faire
tu n'a plus qu'a gérer pression dans l'event labelpress dans le quel "x" représente le chiffre du bouton (1,2,3,4,etc......)
si tu joue avec les formats joue y jusque au bout ;) et pas que quand ça te chante 🤣


pour mémoire ou témoins, je ne sais pas ce que c'est donc a toi de faire avec
je suppose que c'est en relation avec la fonction pression

j'ai revu aussi les bouton semaines

j'envoie la pièce jointe avec les codes un remanier

mais sincèrement c'est une très mauvaise conception

et pour finir oserais je te dire que sur ce forum nous somme quelque uns a avoir conçu un dialog calendrier bien plus fini que celui là
Bonjour Patrick,

beiiin.... avant de causer, sache que j'habite en Suisse et le format de date par défaut est bien un point.
Secondo, mon fichier fonctionne parfaitement, après plusieurs tests.
Terzio, il est plus intelligent de fermer sa gueule et passer son chemin, plutôt que de sortir des âneries, surtout quand dans un post il est écrit [Résolu]. 😝😝😝
 

patricktoulon

XLDnaute Barbatruc
Bonjour Mr
1° déjà on dit "se taire " et non "fermer sa ..."
2° ça m’étonnerait fortement que ça fonctionne parfaitement
un truc du genre
sachant que tbDj est un textbox dans la quelle il y a une date
VB:
 debSem = TbDj - 1
    TbDj = Format(CDate(debSem + 7), "dd.mm.yyyy")

a moins que les suisses ont un vba et ou des activX différents🤣

3° il est préférable que au minimum regarder les propositions Résolu ou pas ; ne serait ce que pour l’échange
tu y aurais trouvé certainement des choses intéressantes

:mad:
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Mr
1° déjà on dit "se taire " et non "fermer sa ..."
2° ça m’étonnerait fortement que ça fonctionne parfaitement
un truc du genre
sachant que tbDj est un textbox dans la quelle il y a une date
VB:
 debSem = TbDj - 1
    TbDj = Format(CDate(debSem + 7), "dd.mm.yyyy")

a moins que les suisses ont un vba et ou des activX différents🤣

3° il est préférable que au minimum regarder les propositions Résolu ou pas ; ne serait ce que pour l’échange
tu y aurais trouvé certainement des choses intéressantes

:mad:
Bonjour Mr
1° déjà on dit "se taire " et non "fermer sa ..."
2° ça m’étonnerait fortement que ça fonctionne parfaitement
un truc du genre
sachant que tbDj est un textbox dans la quelle il y a une date
VB:
 debSem = TbDj - 1
    TbDj = Format(CDate(debSem + 7), "dd.mm.yyyy")

a moins que les suisses ont un vba et ou des activX différents🤣

3° il est préférable que au minimum regarder les propositions Résolu ou pas ; ne serait ce que pour l’échange
tu y aurais trouvé certainement des choses intéressantes

:mad:
Est-ce que tu as lu le post #5? ;):p
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG