USF calendrier !?!?

[WEIDER]

Bonjour à toutes et tous,

Je bloque sur un problème de calendrier sous forme d'USF, je suis à mon travail et n'ai pas trop le temps de chercher par moi même... pourriez vous m'aider à le résoudre s'il vous plait !?

Merci beaucoup d'avance pour votre aide.

Tout est dit dans mon fichier joint.

Amicalement

Weider.

 

[Roland_M]

Re : USF calendrier !?!?

Bonjour à tous,

@Dranreb, j'ai trouvé dans ton calendrier ceci que je ne connaissais pas !
c'a m'a l'air pas mal pour remplacer toutes les lignes pour chaque contrôle ou par un module de classe !

alors je me suis amusé à le reproduire dans mon classeur pour faire un essai
tout ce passe bien mais la boucle ne réagit pas ?
avec ok elle sort bien mais au clic sur les toggle aucune réaction !?

j'ai mis des msgbox pour voir, rien, alors qu'avec le tiens le msgbox s'affiche !?
If Not TBnJour Is Me.ActiveControl Then
If TypeOf Me.ActiveControl Is MSForms.ToggleButton Then
MsgBox "ok clic"

ce n'est pas une affaire de var true ou false là c'est l'événement qui ne fonctionne pas !
pourtant je n'ai rien besoin d'autre !?

Private WithEvents TBnJour As MSForms.ToggleButton


Private Sub TBnJour_Click(): If ChgInterne Then Exit Sub
Jour = TBnJour.Caption: MontrerJMA
End Sub


ÇaTourne = True
Do While ÇaTourne: DoEvents
   If Not TBnJour Is Me.ActiveControl Then
      If TypeOf Me.ActiveControl Is MSForms.ToggleButton Then
         Set TBnJour = Me.ActiveControl
      Else
         Set TBnJour = Nothing: End If: End If: Loop
If ÀDécharger Then Unload Me Else Me.Hide

 

[Dranreb]

Re : USF calendrier !?!?

Bonjour.

Joins le classeur, que je voie tout le contexte.
As tu bien compris que la boucle doit impérativement tourner tant que l'UserForm est actif, pour veiller à ce que si un ToggleButton devient actif (du fait d'un KeyDown qui ne pourrait éventuellement pas être détecte) il devienne du même coup aussi TBnJour dont l'évènement Click sera détecté lors du KeyUp.

 

[Roland_M]

Re : USF calendrier !?!?

Bonjour,

RESOLU par Dranreb (merci)

 

[Dranreb]

Re : USF calendrier !?!?

Remplace Me.ActiveControl par CadreJours.ActiveControl
Perso j'utilise peu les Frame. Je trouve que c'est une source d'emmerdes.
Me.ActiveControl c'est la Frame.

 

[Roland_M]

Re : USF calendrier !?!?

ok je vais essayer !

effectivement il y a la frame !!! j'ai pas percuté nom de d... !
mais si je l'utilise c'est simplement parce que ça me permet de boucler tout ctrls dans cette frame sans aucun test !

bon j'y regarde de suite !

 

[Roland_M]

Re : USF calendrier !?!?

re

Ok c'était bien ça, et en plus c'était logique !
mais en ce moment je suis très fatigué, en retraite mais surmené c'est un comble !

enfin merci à toi, une bonne journée et au plaisir !