Incrémentation Combobox

Question

Bonjour à tous, 

Pardon de reposer cette question qui doit avoir déjà sa réponse à coup sûr sur l'un des forums. Mais désolé, j'ai pas vraiment le temps de chercher. Quelqu'un aurait-il la gentillesse de me dire pourquoi après un clic sur mon combobox, ce dernier s'incrémente des items déjà existents? En clair, j'ai dans un combobox les items "Trim 1", "Trim 2", "Trim 3", "Trim 4" représentant comme vous l'aurez compris les 4 trimestres de l'année. Mais, je constate qu'après un clic sur mon combobox placé sur la feuille de calcul Excel, les mêmes items se reproduisent dans la liste déroulante. Il y a certainement quelque chose que je dois ajouter dans l'évènement ComboBox1_Change. Je ne sais quoi. Merci beaucoup d'avance.

Voici le code que j'ai mis dans Private Sub Worksheet_Activate.

ComboBox1.AddItem "Trim 1"
ComboBox1.AddItem "Trim 2"
ComboBox1.AddItem "Trim 3"
ComboBox1.AddItem "Trim 4"
ComboBox1.ListIndex = 0

Encore une fois merci.

lolokun · Answer

Salut,

Avant de les ajouter il faut supprimer les items existants dans ta combo..
Combobox1.clear

clemodoun · Answer

Bonjour, 


 


Merci de t'intéresser à ma question. Je suis débutant et j'aimerais savoir dans quel évènement  je dois mettre ton instruction Combobox1.clear. En la mettant  dans Private Sub Worksheet_Activate et en réouvrant le classeur après l'avoir enregistré, je constate que je perds mes items sauf le premier "Trim 1". Et en la mettant, dans l'évènement ComboBox1_Change, ça n'a rien résolu. L'incrémentation persiste.

Merci.

econs · Answer

Salut,

Il faudrait mettre tes AddItem dans un autre evénement que WorkSheet_Activate. Car celui-ci est appelé un peu tout le temps.
Pour t'en convaincre, place une MsgBox "coucou" dedans.
Dans WorkBook_Open, çà pourrait être pas mal.

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

clemodoun · Answer

Oh la la!!! Message d'erreur. Je n'imaginais pas la chose si compliquée. C'est pire avec WorkBook_Open

cs_MPi · Answer

Je fais ce test et ça fonctionne très bien

Private Sub Workbook_Open()
    Dim I As Integer
    
    Sheets("Feuil1").ComboBox1.Clear
    For I = 1 To 4
        Sheets("Feuil1").ComboBox1.AddItem "Trim " & I
    Next
End Sub

MPi

Incrémentation Combobox

5 réponses

Votre réponse

Discussions similaires