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

Lone-wolf · 20 Juillet 2021

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

job75 · 20 Juillet 2021

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 · 20 Juillet 2021

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

Lone-wolf · 21 Juillet 2021

job75 à dit:
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 · 21 Juillet 2021

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 · 21 Juillet 2021

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

Lone-wolf · 23 Juillet 2021

patricktoulon à dit:
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 · 23 Juillet 2021

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

Usine à gaz · 23 Juillet 2021

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

Lone-wolf · 23 Juillet 2021

Usine à gaz à dit:
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 · 23 Juillet 2021

patricktoulon à dit:
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

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

Usine à gaz · 23 Juillet 2021

@+ MP

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

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires