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

[Lone-wolf]

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.

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

 

[job75]

Bonjour Lone-wolf, heureux de te revoir,

Tu crées une classe avec Groupe_Lb mais après tu utilises Groupe1_Lb, ce n'est pas cohérent.

A+

 

[Lone-wolf]

Bonjour job75. Je n'ai pas fait attention à ça tout de suite, mais j'ai corrigé dans mon code.

 

[Lone-wolf]

Bonjour Lone-wolf, heureux de te revoir,

Tu crées une classe avec Groupe_Lb mais après tu utilises Groupe1_Lb, ce n'est pas cohérent.

A+

Bonjour job75.

Est-ce que ma demande est possible? Oubien je dois executer les 42 labels, un à un?

 

[Lone-wolf]

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.

 

[Lone-wolf]

Bonsoir à tous. J'ai trouvé d'où provenait l'erreur. Fallait juste initialiser une variable booléenne.
Discussion close.

 

[Lone-wolf]

Bonjour @Lone-wolf

Résolu????🙄😱🤔
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]

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

 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

😡

 

[Usine à gaz]

Bonjour Mon loup préféré, le Forum 🙂
@Lone-wolf : j'espère que tu vas bien depuis tout ce temps
lionel 🙂

 

[Lone-wolf]

Bonjour Mon loup préféré, le Forum 🙂
@Lone-wolf : j'espère que tu vas bien depuis tout ce temps
lionel 🙂

Salut Lionel 👋🙂

Oui, ça va bien, merci. Et toi?

 

[Lone-wolf]

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

 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

😡

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

 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

😡

Est-ce que tu as lu le post #5? 😉😛

 

[Usine à gaz]

@+ MP 🙂