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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
20A5A436-ABC7-4903-A0B8-14C637490859@microsoft.com...
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
20A5A436-ABC7-4903-A0B8-14C637490859@microsoft.com...
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
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
MichDenis
Tu devrais publier ton application sur cjoint.com.
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" a écrit dans le message de news:
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
Tu devrais publier ton application sur cjoint.com.
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" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
CD6C2782-1529-4C18-B03A-9C0A77E6F9FC@microsoft.com...
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
20A5A436-ABC7-4903-A0B8-14C637490859@microsoft.com...
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
Tu devrais publier ton application sur cjoint.com.
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" a écrit dans le message de news:
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
cousinhub
Re, 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
Tu devrais publier ton application sur cjoint.com.
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" a écrit dans le message de news:
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
Re,
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
Tu devrais publier ton application sur cjoint.com.
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" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
CD6C2782-1529-4C18-B03A-9C0A77E6F9FC@microsoft.com...
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" <cousinhub@discussions.microsoft.com> a écrit dans le message de news:
20A5A436-ABC7-4903-A0B8-14C637490859@microsoft.com...
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
Re, 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
Tu devrais publier ton application sur cjoint.com.
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" a écrit dans le message de news:
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
Tu pourrais d'abord expliquer c'est quoi ton problème ?
Où est-il ce calendrier ?
Es-tu vraiment sûr qu'un module de classe est la solution ?
"cousinhub" a écrit dans le message de news:
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
