Bjr
Ce code placé dans un UserForm fonctionne. Il initialise les Combobox.
Private Sub UserForm_Initialize()
Dim mois
Dim beneficiaire
Dim Nature
Dim Motif
For mois = 1 To 12
ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1)
Next
For beneficiaire = 1 To 6
ComboBoxBeneficiaire.AddItem Sheets("Listes
Diverses").Cells(beneficiaire, 3)
Next
For Nature = 1 To 10
ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5)
Next
For Motif = 1 To 10
ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7)
Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes
ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où
dois-je placer le code (je pense à Thisworkbook)
Merci à vous
Jak
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
JB
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
Bjr Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. Private Sub UserForm_Initialize() Dim mois Dim beneficiaire Dim Nature Dim Motif For mois = 1 To 12 ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois , 1) Next For beneficiaire = 1 To 6 ComboBoxBeneficiaire.AddItem Sheets("Listes Diverses").Cells(beneficiaire, 3) Next For Nature = 1 To 10 ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Na ture, 5) Next For Motif = 1 To 10 ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Mot if, 7) Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où dois-je placer le code (je pense à Thisworkbook) Merci à vous Jak
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize()
Me.ComboBoxMois.List = [mois].Value
Me.ComboBoxNature.List = [Nature].Value
...
End Sub
JB
On 12 mar, 19:30, "jaloulou" <BI...@bidon.fr> wrote:
Bjr
Ce code placé dans un UserForm fonctionne. Il initialise les Combobox.
Private Sub UserForm_Initialize()
Dim mois
Dim beneficiaire
Dim Nature
Dim Motif
For mois = 1 To 12
ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois , 1)
Next
For beneficiaire = 1 To 6
ComboBoxBeneficiaire.AddItem Sheets("Listes
Diverses").Cells(beneficiaire, 3)
Next
For Nature = 1 To 10
ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Na ture, 5)
Next
For Motif = 1 To 10
ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Mot if, 7)
Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes
ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où
dois-je placer le code (je pense à Thisworkbook)
Merci à vous
Jak
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
Bjr Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. Private Sub UserForm_Initialize() Dim mois Dim beneficiaire Dim Nature Dim Motif For mois = 1 To 12 ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois , 1) Next For beneficiaire = 1 To 6 ComboBoxBeneficiaire.AddItem Sheets("Listes Diverses").Cells(beneficiaire, 3) Next For Nature = 1 To 10 ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Na ture, 5) Next For Motif = 1 To 10 ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Mot if, 7) Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où dois-je placer le code (je pense à Thisworkbook) Merci à vous Jak
jaloulou
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
Bjr Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. Private Sub UserForm_Initialize() Dim mois Dim beneficiaire Dim Nature Dim Motif For mois = 1 To 12 ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) Next For beneficiaire = 1 To 6 ComboBoxBeneficiaire.AddItem Sheets("Listes Diverses").Cells(beneficiaire, 3) Next For Nature = 1 To 10 ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) Next For Motif = 1 To 10 ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où dois-je placer le code (je pense à Thisworkbook) Merci à vous Jak
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les
mêmes combobox. Existe t'il un moyen de les remplir en même temps ?
USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
Merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
fd1bc3eb-adca-451e-b3e5-6c602ac59104@d19g2000yqb.googlegroups.com...
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize()
Me.ComboBoxMois.List = [mois].Value
Me.ComboBoxNature.List = [Nature].Value
...
End Sub
JB
On 12 mar, 19:30, "jaloulou" <BI...@bidon.fr> wrote:
Bjr
Ce code placé dans un UserForm fonctionne. Il initialise les Combobox.
Private Sub UserForm_Initialize()
Dim mois
Dim beneficiaire
Dim Nature
Dim Motif
For mois = 1 To 12
ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1)
Next
For beneficiaire = 1 To 6
ComboBoxBeneficiaire.AddItem Sheets("Listes
Diverses").Cells(beneficiaire, 3)
Next
For Nature = 1 To 10
ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5)
Next
For Motif = 1 To 10
ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7)
Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes
ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où
dois-je placer le code (je pense à Thisworkbook)
Merci à vous
Jak
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
Bjr Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. Private Sub UserForm_Initialize() Dim mois Dim beneficiaire Dim Nature Dim Motif For mois = 1 To 12 ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) Next For beneficiaire = 1 To 6 ComboBoxBeneficiaire.AddItem Sheets("Listes Diverses").Cells(beneficiaire, 3) Next For Nature = 1 To 10 ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) Next For Motif = 1 To 10 ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) Next
End Sub
Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où dois-je placer le code (je pense à Thisworkbook) Merci à vous Jak
JB
Bonjour,
On peut initialiser les userforms à partir d'un module:
Sub essai() UserForm1.ComboBox1.List = [Mois].Value UserForm2.ComboBox1.List = [Mois].Value UserForm3.ComboBox1.List = [Mois].Value UserForm2.Show End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/ import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
> Bjr > Ce code placé dans un UserForm fonctionne. Il initialise les Combobox . > Private Sub UserForm_Initialize() > Dim mois > Dim beneficiaire > Dim Nature > Dim Motif > For mois = 1 To 12 > ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) > Next > For beneficiaire = 1 To 6 > ComboBoxBeneficiaire.AddItem Sheets("Listes > Diverses").Cells(beneficiaire, 3) > Next > For Nature = 1 To 10 > ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) > Next > For Motif = 1 To 10 > ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) > Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes > ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où > dois-je placer le code (je pense à Thisworkbook) > Merci à vous > Jak- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
On peut initialiser les userforms à partir d'un module:
Sub essai()
UserForm1.ComboBox1.List = [Mois].Value
UserForm2.ComboBox1.List = [Mois].Value
UserForm3.ComboBox1.List = [Mois].Value
UserForm2.Show
End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/
import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" <BI...@bidon.fr> wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les
mêmes combobox. Existe t'il un moyen de les remplir en même temps ?
USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
fd1bc3eb-adca-451e-b3e5-6c602ac59...@d19g2000yqb.googlegroups.com...
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize()
Me.ComboBoxMois.List = [mois].Value
Me.ComboBoxNature.List = [Nature].Value
...
End Sub
JB
On 12 mar, 19:30, "jaloulou" <BI...@bidon.fr> wrote:
> Bjr
> Ce code placé dans un UserForm fonctionne. Il initialise les Combobox .
> Private Sub UserForm_Initialize()
> Dim mois
> Dim beneficiaire
> Dim Nature
> Dim Motif
> For mois = 1 To 12
> ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1)
> Next
> For beneficiaire = 1 To 6
> ComboBoxBeneficiaire.AddItem Sheets("Listes
> Diverses").Cells(beneficiaire, 3)
> Next
> For Nature = 1 To 10
> ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5)
> Next
> For Motif = 1 To 10
> ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7)
> Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes
> ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où
> dois-je placer le code (je pense à Thisworkbook)
> Merci à vous
> Jak- Masquer le texte des messages précédents -
On peut initialiser les userforms à partir d'un module:
Sub essai() UserForm1.ComboBox1.List = [Mois].Value UserForm2.ComboBox1.List = [Mois].Value UserForm3.ComboBox1.List = [Mois].Value UserForm2.Show End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/ import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
> Bjr > Ce code placé dans un UserForm fonctionne. Il initialise les Combobox . > Private Sub UserForm_Initialize() > Dim mois > Dim beneficiaire > Dim Nature > Dim Motif > For mois = 1 To 12 > ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) > Next > For beneficiaire = 1 To 6 > ComboBoxBeneficiaire.AddItem Sheets("Listes > Diverses").Cells(beneficiaire, 3) > Next > For Nature = 1 To 10 > ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) > Next > For Motif = 1 To 10 > ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) > Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes > ComboBox. Existe t'il un moyen de les initialiser tous en même temps et Où > dois-je placer le code (je pense à Thisworkbook) > Merci à vous > Jak- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
jaloulou
Pourquoi cela ? "Mois" est le nom donné à une plage, cette plage fait partie du document et le document sera exporté dans son intégralité ! Que veux tu dire par "on perd la portabilité des formulaires par export/import puisque le code n'apartient plus au formulaire". Pour moi qui suis débutant le code est incrit dans le fichier, donc dans le formulaire ! Jak (débutant)
"JB" a écrit dans le message de news:
Bonjour,
On peut initialiser les userforms à partir d'un module:
Sub essai() UserForm1.ComboBox1.List = [Mois].Value UserForm2.ComboBox1.List = [Mois].Value UserForm3.ComboBox1.List = [Mois].Value UserForm2.Show End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/ import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
> Bjr > Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. > Private Sub UserForm_Initialize() > Dim mois > Dim beneficiaire > Dim Nature > Dim Motif > For mois = 1 To 12 > ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) > Next > For beneficiaire = 1 To 6 > ComboBoxBeneficiaire.AddItem Sheets("Listes > Diverses").Cells(beneficiaire, 3) > Next > For Nature = 1 To 10 > ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) > Next > For Motif = 1 To 10 > ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) > Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes > ComboBox. Existe t'il un moyen de les initialiser tous en même temps et > Où > dois-je placer le code (je pense à Thisworkbook) > Merci à vous > Jak- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Pourquoi cela ?
"Mois" est le nom donné à une plage, cette plage fait partie du document et
le document sera exporté dans son intégralité !
Que veux tu dire par "on perd la portabilité des formulaires par
export/import puisque le code n'apartient plus au formulaire".
Pour moi qui suis débutant le code est incrit dans le fichier, donc dans le
formulaire !
Jak (débutant)
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
c24e063e-2013-46e4-bbe5-419fb7c56e59@o11g2000yql.googlegroups.com...
Bonjour,
On peut initialiser les userforms à partir d'un module:
Sub essai()
UserForm1.ComboBox1.List = [Mois].Value
UserForm2.ComboBox1.List = [Mois].Value
UserForm3.ComboBox1.List = [Mois].Value
UserForm2.Show
End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/
import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" <BI...@bidon.fr> wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les
mêmes combobox. Existe t'il un moyen de les remplir en même temps ?
USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres...
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
fd1bc3eb-adca-451e-b3e5-6c602ac59...@d19g2000yqb.googlegroups.com...
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize()
Me.ComboBoxMois.List = [mois].Value
Me.ComboBoxNature.List = [Nature].Value
...
End Sub
JB
On 12 mar, 19:30, "jaloulou" <BI...@bidon.fr> wrote:
> Bjr
> Ce code placé dans un UserForm fonctionne. Il initialise les Combobox.
> Private Sub UserForm_Initialize()
> Dim mois
> Dim beneficiaire
> Dim Nature
> Dim Motif
> For mois = 1 To 12
> ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1)
> Next
> For beneficiaire = 1 To 6
> ComboBoxBeneficiaire.AddItem Sheets("Listes
> Diverses").Cells(beneficiaire, 3)
> Next
> For Nature = 1 To 10
> ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5)
> Next
> For Motif = 1 To 10
> ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7)
> Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes
> ComboBox. Existe t'il un moyen de les initialiser tous en même temps et
> Où
> dois-je placer le code (je pense à Thisworkbook)
> Merci à vous
> Jak- Masquer le texte des messages précédents -
Pourquoi cela ? "Mois" est le nom donné à une plage, cette plage fait partie du document et le document sera exporté dans son intégralité ! Que veux tu dire par "on perd la portabilité des formulaires par export/import puisque le code n'apartient plus au formulaire". Pour moi qui suis débutant le code est incrit dans le fichier, donc dans le formulaire ! Jak (débutant)
"JB" a écrit dans le message de news:
Bonjour,
On peut initialiser les userforms à partir d'un module:
Sub essai() UserForm1.ComboBox1.List = [Mois].Value UserForm2.ComboBox1.List = [Mois].Value UserForm3.ComboBox1.List = [Mois].Value UserForm2.Show End Sub
Mais dans ce cas, on perd la portabilité des formulaires par export/ import puisque le code n'apartient plus au formulaire.
JB
On 13 mar, 13:08, "jaloulou" wrote:
Merci JB pour la simplification
Mais je me suis mal exprimé, je pense, J'ai 3 userform qui possèdent les mêmes combobox. Existe t'il un moyen de les remplir en même temps ? USF1 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF2 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... USF3 : CBBx"mois" + CCBx"nature" + CCBx"Beneficiaire" + autres... Merci "JB" a écrit dans le message de news:
Bonsoir,
On peut simplifier:
Private Sub UserForm_Initialize() Me.ComboBoxMois.List = [mois].Value Me.ComboBoxNature.List = [Nature].Value ... End Sub
JB
On 12 mar, 19:30, "jaloulou" wrote:
> Bjr > Ce code placé dans un UserForm fonctionne. Il initialise les Combobox. > Private Sub UserForm_Initialize() > Dim mois > Dim beneficiaire > Dim Nature > Dim Motif > For mois = 1 To 12 > ComboBoxMois.AddItem Sheets("Listes Diverses").Cells(mois, 1) > Next > For beneficiaire = 1 To 6 > ComboBoxBeneficiaire.AddItem Sheets("Listes > Diverses").Cells(beneficiaire, 3) > Next > For Nature = 1 To 10 > ComboBoxNature.AddItem Sheets("Listes Diverses").Cells(Nature, 5) > Next > For Motif = 1 To 10 > ComboBoxMotif.AddItem Sheets("Listes Diverses").Cells(Motif, 7) > Next
> End Sub
> Je viens de me rendre compte que j'ai 3 UserForm comportant les mêmes > ComboBox. Existe t'il un moyen de les initialiser tous en même temps et > Où > dois-je placer le code (je pense à Thisworkbook) > Merci à vous > Jak- Masquer le texte des messages précédents -