Modification du contenu d'une ComboBox

Bonjour,
J'ai une ComboBox qui contient un certain nombre d'information prédéfinies directement par la fonction MaComboBox.AddItem "coucou", a l'initialisation de ma Form.
Mais parfois, certains cas de figures ne sont pas représentés et l'utilisateur de la Form est obligé de rentrer les données directement lui même. Je voudrais savoir si il ya un moyen pour que les information que l'utilisateur entre puissent être rajouter à ma ComboBox de façon définitive.
Et que à chaque fois que je relancerai ma macro les informations qui ont été rajouées réaparaissent...

Merci par avance ;)

Si le besoin est je peut rajouter un bouton pour les besoins... ou pour une question de simplification...
;)

bonjour

peux tu avoir une liste des éléments de ta combobox dans une feuille masquée par exemple?

Oui cela ne me pose pas de problème mais je ne connais pas le type de fonctionnement d'une feuille caché...
Mais si je suit le raisonnement en fait il me suffit au lieu de rentrer à la main les items dont j'ai besoin, je ferais une liste dans un autre feuille et je ferai un ajout groupé dans ma ComboBox... c'est bougrement intelligent!!!
Si le besoin est je peut faire la même chose avec toutes mes ComboBox, seul le numéro de la colonne va varier...
J'ai 4 ComboBox... ça ne va pas être un peut compliquer à gérer?

pas de soucis
j'ai supposé que tu affichais un userform
il te faut une feuille nommée Feuille masquée
Dans la colonne A la liste du ComboBox1
Dans la colonne B la liste du ComboBox2
etc.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Option Explicit Private Collec1 As New Collection Private Collec2 As New Collection Private derli1 As Long Private derli2 As Long   Private Sub ComboBox1_Change() On Error Resume Next Collec1.Add Item:=ComboBox1.Text, Key:=ComboBox1.Text If Err.Number = 0 Then _ Sheets("Feuille masquée").Range("A" & derli1 + 1) = ComboBox1.Text   End Sub Private Sub ComboBox2_Change() On Error Resume Next Collec2.Add Item:=ComboBox2.Text, Key:=ComboBox2.Text If Err.Number = 0 Then _ Sheets("Feuille masquée").Range("B" & derli2 + 1) = ComboBox2.Text   End Sub   Private Sub UserForm_Initialize() Dim C As Range Dim tabComboBox1 As Variant Dim tabComboBox2 As Variant   derli1 = Sheets("Feuille masquée").Columns(1).Find("*", , , , , xlPrevious).Row derli2 = Sheets("Feuille masquée").Columns(2).Find("*", , , , , xlPrevious).Row   tabComboBox1 = Sheets("Feuille masquée").Range("A1:A" & derli1).Value tabComboBox2 = Sheets("Feuille masquée").Range("B1:B" & derli2).Value   For Each C In Sheets("Feuille masquée").Range("A1:A" & derli1) Collec1.Add C.Value, CStr(C.Value) Next C For Each C In Sheets("Feuille masquée").Range("B1:B" & derli2) Collec2.Add C.Value, CStr(C.Value) Next C   ComboBox1.List() = tabComboBox1 ComboBox2.List() = tabComboBox2   ComboBox1.ListIndex = 0 ComboBox2.ListIndex = 0 End Sub

---

Si c'est ce que tu veux, on optimiseras plus tard.
Tu peux aussi utiliser l'objet Dictionnary plutôt que collection
@+

Cela fonctionne très bien, mais juste deux chose à rajouter...

J'aimerais que mes comboBox restent vide à l'initialisation de la Form.
En gros je voudrai pas que la première valeur n'apparaissent pas par défault! mais que au contraire il n'y en ai aucune!

Seconde chose J'aimerai ne pas être obliger de fermer complètement ma form pour que la valeur réapparaisse dans la ComboBox... peut être un repaint?

re

supprime ces deux lignes

Code:

---

1 2	ComboBox1.ListIndex = 0 ComboBox2.ListIndex = 0

---

Pour la question 2
il vaut mieux remplacer change par exit

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next Collec1.Add Item:=ComboBox1.Text, Key:=ComboBox1.Text If Err.Number = 0 Then Sheets("Feuille masquée").Range("A" & derli1 + 1) = ComboBox1.Text ComboBox1.AddItem ComboBox1.Text End If End Sub

---

Cela est très bien...
J'aimerai pouvoir faire un tri par ordre alphabétique... Juste sur la deuxième colonne de la feuille masquée...
comment on peut faire?

re
utilise l'éditeur de macro
Outils / Macro / Nouvelle macro

Tu te places sur ta feuille "Feuille masquée",
Colonne B
Ensuite Données / Trier etc..
La macro s'écrit toute seule:D
@+

Anciennement je faisait appel à ma Fonction ComboBox1_Change() pour faire une actualisation générale... mais maintenant comment je fait pour faire appel à la fonction ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ?????

pas compris.:cry:

Dsl si je n'ai pas été claire voila le code que j'utilisais avant...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Button_Actualiser_Tout_Click() TextBox1_Change TextBox2_Change TextBox3_Change TextBox4_Change TextBox5_Change TextBox6_Change TextBox7_Change   ComboBox1_Change ComboBox2_Change ComboBox3_Change ComboBox4_Change ComboBox5_Change   UserForm1.Repaint 'Etape obligatoire pour récupérer les valeurs des ComboBox Recup_Nb_Lignes   End Sub

---

Mon problème c'est que je ne sais pas quoi mettre à la place de des ComboBox1_Change et ComboBox3_Change qui sont devenues ComboBox1_Exit(...) et ComboBox3_Exit(...)

tu m'excusera mais je ne comprends pas à quoi sert cette macro sauf la dernière ligne et peut être l'avant dernière.
Personnellement je ne garderai que

Code:

---

1 2 3 4 5

Private Sub Button_Actualiser_Tout_Click() ' UserForm1.Repaint 'Etape obligatoire pour récupérer les valeurs des ComboBox ---> Me semble FAUX Recup_Nb_Lignes   End Sub

---

mais je n'ai pas tout ton code.@+

En gros ce bouton permet à l'utilisateur de ma macro de pouvoir recopier l'ensemble des champs sélectionnées...
Mais dans l'absolu, comment faire pour faire appel à cette fonction :

Code:

---

Private Sub comboBox_Exit(...)

---

???

Dans l'ordre, que fais-tu ? Je vois ça comme ça :
- Tu ajoutes une feuille masquée
- Tu copies tes données dans la feuille masquée
- Tu tries tes données
- Tu renseignes ton combo
- Tu ajoutes manuellement une donnée à ton combo
- Tu utilises Combobox_Exit afin que cette donnée soit ajoutée à ta feuille masquée
- Tu re-tries la feuille masquée selon la colonne concernée
- Tu nettoies ton combo (clear) avant de le renseigner de nouveau avec les données triées
- Enfin, je pense que tu souhaites ajouter l'info saisie à ta base de données, la vraie.

Si c'est ça, où se situe le problème ?
A+