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