Discussion :

[mulot03]

Bonjour tout le monde,

J'ai un fichier excel avec 1 classeur contenant 2 feuilles. Dans la premiere feuille j'ai mis une liste modifiable que j'ai programmé sous VB.Je veux que à l'ouverture de excel les données ("A","B","C"et"D")soient rentrées dans ma liste modifiable. Pour cela j'ai entré comme code sous VB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize1()
 
ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
ComboBox1.AddItem "D"
 
End Sub
 
Private Sub Worksheet_Activate()
UserForm_Initialize1
End Sub

Le probleme est que à chaque fois que je vais sur la deuxieme feuille et que je reviens sur la premiere il me double mes données dans ma liste modififiable.

Comment résoudre se probleme?

[SfJ5Rpw8]

soi tu appelle ta fonction sur un autre événement ... par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
UserForm_Initialize1
End Sub

ou au début de la procédure tu vide la combobox par un clear

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ComboBox1.Clear

[mulot03]

Merci pour ta deuxieme solution. Elle marche du tonnerre.

Merci encore

[mulot03]

en fait elle me convient pas car à chaque fois que je change de feuille elle m'efface la donnée que j'ai sélectionné dans liste modifiable.

Sinon j'ai pas tres bien saisie ta premiere solution!!!

Est ce qu'il y a une autre solution au tout premier probleme?

merci

[boosty]

en fait elle me convient pas car à chaque fois que je change de feuille elle m'efface la donnée que j'ai sélectionné dans liste modifiable.

Sinon j'ai pas tres bien saisie ta premiere solution!!!

Est ce qu'il y a une autre solution au tout premier probleme?

merci

Si tu mets le .clear dans ton activate, c'est normal qu'il efface à chaque fois !
Met le .clear dans le thisworkbook.open et tu n'auras plus de problèmes

[mulot03]

Jsuis qu'un simple débutant!!

Tu pourrais me donner stp toute la commande à mettre dans le ThisWorkbook car la je galere trop.

merci

[SfJ5Rpw8]

dans l'editeur VBE tu fais affichage, explorateur de projet , un clic du bouton droit de la souris sur ThisWorkbook , puis code ... et tu me le code workbook_open .. que j'ai posté plus haut...

[mulot03]

OK sa marche quand je met 'Private Sub workbook_open() mais cela engendre un autre probleme:
je sélectionne une donné de ma liste modifiable qui est dans ma feuille 1,ma donnée s'affiche.apres je vais sur la feuille 2 et je reviens sur la feuille 1:ma donnée ne s'affiche plus.je suis alors obligé de la re-sélectionner.

Comment résoudre ce nouveau probleme?

[SfJ5Rpw8]

tu as enlevé le code dans
Worksheet_Activate.. ?

[mulot03]

il y a une précision que j'ai oublié de faire; c'est que j'ai une liste modifiable dans ma feuille 1 et une autre dans ma feuille 2. Elles s'appellent toutes les deux combobox1 donc je pense que je ne peux pas les gérer dans thisworbook.

J'ai raison?

Sinon je n'ai pas enlevé le code dans worksheet_activate

[SfJ5Rpw8]

il faut l'enlever le code dans Worksheet_Activate, ce n'est pas la peine de remplir ta liste 2 fois ...

pour l'appel à la fonction de remplissage tu peu faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
 Feuil1.UserForm_Initialize1
End Sub

d'ailleur soit dit en passant tu pourrai changer le nom de cette procédure UserForm_Initialize1.. par par exmple MajListe1 .. enfin un truc plus cohérent...

ou un peu moins structurer, sans procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
With Feuil1.ComboBox1
 .AddItem "A"
 .AddItem "B"
 .AddItem "C"
 .AddItem "D"
End With
End Sub

[mulot03]

Merci beaucoup!!!!

je pense que sa va marcher maintenant.J'ai essayé sur une petite partie de mon fichier et ça à l'air de fonctionner.Je vais refaire tout mon programme comme ta deuxieme solution en mettant tout dans workbook et je te redirai si sa marche.

[mulot03]

C'est bon sa marche impec!!!

Je te remercie, tu m'as donné un sacré coup de main

a+