collection fausse boite de dialogue (Patricktoulon) episode 1 un vrai faux calendrier

collection fausse boite de dialogue (Patricktoulon) episode 1 un vrai faux calendrier 2.0

patricktoulon

XLDnaute Impliqué
patricktoulon a posté une nouvelle ressource :

collection fausse boite de dialogue (Patricktoulon) episode 1 un vrai faux calendrier - un calendrier valable pour tout version excel

Bonjour a tous voici ma dernière version de mon calendrier all excel version
utilisable pour les cells et les controls dans un userform
affichage mode français ou US

elle fait parti de ma collection de pseudo boite de dialog perso avec des userform
En savoir plus sur cette ressource...
 

Fichiers joints

Dernière édition:

patricktoulon

XLDnaute Impliqué
patricktoulon a mis à jour collection fausse boite de dialogue (Patricktoulon) episode 1 un vrai faux calendrier avec une nouvelle version :

modele entièrement repensé

Version.0
bonjour a tous et voila un virement a 190°
- code entièrement repensé
-design un peu différent,New!!!
-méthode utilisée inedites New!!!
-méthode d'apel lineaire New!!!
-utilisation de classe interne (intra userform)(pas de module classe)
-code de positionnement repensé(prise en charge des figé,freezepanes,etc...)New!!!
-auto fermeture sans perte de la donnée
-définition des jours fériés dans les controltiptext
-etc..

2 forme d’appel linéaire
  1. par un object range /...
Lire la suite de cette mise à jour...
 

patricktoulon

XLDnaute Impliqué

Fichiers joints

Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour Patrick

Sans prétention aucune lol
j'ai pensé a cette adaptation
j'ai mis le Min du SpinButton des mois à 0 et le Max à 13
on peut ainsi Faire défiler les mois en avant et en arriéré avec passage a l’année suivante ou précédente, à voir !
VB:
'événement combo et spinbutton(month/year)
Private Sub SpB_Mois_Change()
  Select Case SpB_Mois
         Case SpB_Mois.Min ' 0
SpB_Annees = SpB_Annees - 1 'On enlève une année
SpB_Mois.Value = 12  'On mets le Mois a 12 Décembre
Cbmonth.ListIndex = SpB_Mois - 1 'On ajuste le mois
         Case SpB_Mois.Max '13 après décembre
SpB_Mois.Value = 1 'On mets le Mois a 1 Janvier
Cbmonth.ListIndex = SpB_Mois - 1 'On ajuste le mois
SpB_Annees = SpB_Annees + 1
         Case Else
Cbmonth.ListIndex = SpB_Mois - 1 'On ajuste le mois
  End Select
End Sub
Private Sub SpB_Annees_Change()
    Cbyear.Value = SpB_Annees.Value 'On ajuste l'année
    Cbmonth.ListIndex = IIf(SpB_Annees.Value = Year(Date), Month(Date) - 1, 0) 'On affiche le Mois selon l'année
    SpB_Mois.Value = Cbmonth.ListIndex + 1 'On ajuste au mois
End Sub
As tu vu mon message concernant la Boucle sans module de Classe
jean marie
 
Dernière édition:
Démarré par Discussions similaires Forum Réponses Date
P Ressources 0

Discussions similaires


Haut Bas