module de classe
Le
cousinhub
Rebonjour tout le monde,
j'ai une petite question concernant un module de classe.
j'ai plusieurs userforms contenant des listboxs et autres comboboxs, mais
pour tous ces usf, un calendrier (le même pour tous)
ce calendrier est mis à jour par l'intermédiaire d'un module de classe, mais
il n'autorise qu'un seul usf
est-ce possible de mettre à jour ce calendrier quelque soit l'usf concerné?
code de mon module de classe :
Private Sub DayGroup_Click()
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
userform1.DP_UpDate
End Select
End Sub
par exemple (j'ai essayé, mais ça ne marche pas)
Private Sub DayGroup_Click()
Dim UserForm
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
Select Case UserForm.Run (ou je ne sais quelle action!)
Case UserForm1: UserForm1.DP_UpDate
Case UserForm2: UserForm2.DP_UpDate
End Select
End Sub
j'ai une petite question concernant un module de classe.
j'ai plusieurs userforms contenant des listboxs et autres comboboxs, mais
pour tous ces usf, un calendrier (le même pour tous)
ce calendrier est mis à jour par l'intermédiaire d'un module de classe, mais
il n'autorise qu'un seul usf
est-ce possible de mettre à jour ce calendrier quelque soit l'usf concerné?
code de mon module de classe :
Private Sub DayGroup_Click()
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
userform1.DP_UpDate
End Select
End Sub
par exemple (j'ai essayé, mais ça ne marche pas)
Private Sub DayGroup_Click()
Dim UserForm
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
Select Case UserForm.Run (ou je ne sais quelle action!)
Case UserForm1: UserForm1.DP_UpDate
Case UserForm2: UserForm2.DP_UpDate
End Select
End Sub
Poser une question
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub"
Rebonjour tout le monde,
j'ai une petite question concernant un module de classe.
j'ai plusieurs userforms contenant des listboxs et autres comboboxs, mais
pour tous ces usf, un calendrier (le même pour tous)
ce calendrier est mis à jour par l'intermédiaire d'un module de classe, mais
il n'autorise qu'un seul usf
est-ce possible de mettre à jour ce calendrier quelque soit l'usf concerné?
code de mon module de classe :
Private Sub DayGroup_Click()
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
userform1.DP_UpDate
End Select
End Sub
par exemple (j'ai essayé, mais ça ne marche pas)
Private Sub DayGroup_Click()
Dim UserForm
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
Select Case UserForm.Run (ou je ne sais quelle action!)
Case UserForm1: UserForm1.DP_UpDate
Case UserForm2: UserForm2.DP_UpDate
End Select
End Sub
j'ai récupéré ce calendrier dans un des nombreux téléchargements sur excelabo.
je l'utilise donc pour plusieurs userforms, issus d'un choix à partir de
l'usf "ouverture".
cependant, la mise à jour et l'utilisation de ce calendrier n'est possible
que dans l'usf spécidié dans le module de classe (par exemple UserForm1,
comme indiqué dans ma demande initiale)
je voudrais donc pouvoir utiliser ce calendrier quelque soit l'userform
ouvert (instruction UserForm(x).show après le choix de l'utilisateur)
Merci
le classeur n'a pas besoin d'être complet... tu gardes les formulaires
et quelques données seulement si ces dernières sont essentielles
pour l'ouverture des formulaires. Autrement, pas facile d'imaginer
de quoi a l'air ton application...
"cousinhub"
bonjour,
j'ai récupéré ce calendrier dans un des nombreux téléchargements sur excelabo.
je l'utilise donc pour plusieurs userforms, issus d'un choix à partir de
l'usf "ouverture".
cependant, la mise à jour et l'utilisation de ce calendrier n'est possible
que dans l'usf spécidié dans le module de classe (par exemple UserForm1,
comme indiqué dans ma demande initiale)
je voudrais donc pouvoir utiliser ce calendrier quelque soit l'userform
ouvert (instruction UserForm(x).show après le choix de l'utilisateur)
Merci
je ne peux malheureusement pas expédier mon classeur sur cjoint
j'ai trouvé une "solution", en ajoutant à la suite dans le module de classe :
Private Sub DayGroup_Click()
iDate = DateSerial(iYear, iMonth, DayGroup.Caption)
UserForm1.DP_UpDate
UserForm2.DP_UpDate
UserForm3.DP_UpDate
End Sub
cependant, si je sélectionne l'userform3, cela m'oblige à cliquer trois fois
sur la date voulue dans mon calendrier afin d'obtenir la bonne date
je vais continuer à chercher une solution et merci beaucoup quand même