Discussion :

[buhrne]

Salut les gars,

Voilà j'ai un usf avec un combobox.
A l'ouverture du usf je rempli ce combo avec

Code :

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

1
2
3
4
5
6
 
Private Sub UserForm_Activate()
UVitOuiNon.AddItem "Oui"
UVitOuiNon.AddItem "Non"
SpecDebit.AddItem "Non Spécifié"
End Sub

Par contre, histoire que le combo ne se remplisse pas indéfiniment à chaque réouverture du usf, je voulais décharger le combo. Ce que j'ai fais avec ce code:

Code :

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

1
2
3
4
5
6
 
Private Sub UserForm_deactivate()
UVitOuiNon.RemoveItem "Oui"
UVitOuiNon.RemoveItem "Non"
SpecDebit.RemoveItem "Non Spécifié"
End Sub

Ce qui marche très bien si on le ferme avec la croix. Seulement j'ai un bouton "ANNULER" et je voulais aussi décharger le combo avec cette commande, donc j'ai copié le code dans mon événement clic du bouton :

Code :

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

1
2
3
4
5
6
 
Private Sub annuler_Click()
UVitOuiNon.RemoveItem "Oui"
UVitOuiNon.RemoveItem "Non"
SpecDebit.RemoveItem "Non Spécifié"
End Sub

Et là j'ai une erreur d'éxécution '-2147024809 (80070057)' : argument non valide avec

Code :

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

1
2
 
UVitOuiNon.RemoveItem "Oui"

en surbrillance.

???????????????!!!!

[pgz]

Bonjour.

Et si tu sélectionnes l'item "non" avant de cliquer "Annuler"?

PGZ