Erreur de combobox

Bonjour à tous !!

Je reviens vers vous pour un autre petit problème :

Voila le code que j'utilise

'COMBOBOX 1 CODE CLIENT

'Changement de couleur en vert (Code client)

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

Private Sub ComboBox1_Change()   ComboBox1 = UCase(ComboBox1) 'Mettre en MAJUSCULE   If ComboBox1.Value = "" Then Me.ComboBox1.BackColor = RGB(250, 250, 250) Else Me.ComboBox1.BackColor = RGB(0, 250, 0) End If End Sub   Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim ok As Boolean, i As Integer For i = 0 To ComboBox1.ListCount - 1 ok = ComboBox1 = ComboBox1.List(i) If ok Then Exit For Next If Trim(ComboBox1) = "" Then Exit Sub If Not ok Then ComboBox1.AddItem ComboBox1 Worksheets("Base de données").Cells(Worksheets("Base de données").Range("I65536").End(xlUp).Row + 1, 1) = ComboBox1 ComboBox1 = "" End If End Sub   Private Sub UserForm1_Activate() Dim cell As Range   For Each cell In Worksheets("Base de données").Range("I2:I" & Worksheets("Base de données").Range("I65536").End(xlUp).Row) If cell <> "" Then ComboBox1.AddItem cell.Value Next End Sub

---

Le problème est que quand je rentre une valeur dans la combobox, il m'affiche une erreur "Erreur d'execution 9 - L'indice n'appatient pas à la selection" et du coup il me surligne la ligne "For Each cell In Worksheets("Base de données").Range("H2:H" & Worksheets("Base de données").Range("H65536").End(xlUp).Row)"

Quelqu'un à une idée de pourquoi ?

Salut,

Pour commencer, tu n'initialises ta combobox qu'avec des valeurs différentes de "". Du coup, ta condition

Code:

---

1 2 3

If ComboBox1.Value = "" Then Me.ComboBox1.BackColor = RGB(250, 250, 250) Else

---

ne sert à rien vu qu'il ne peut y avoir de valeurs égales à "".

Je te conseille donc :

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Change()   ComboBox1 = UCase(ComboBox1) 'Mettre en MAJUSCULE   Me.ComboBox1.BackColor = RGB(0, 250, 0)   End Sub

---

Ensuite, pour l'initialisation du userform, il est préférable de mettre le code dans UserForm_Initialize() plutôt que dans UserForm_Activate().

Tu vas donc avoir :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim cell As Range   For Each cell In Worksheets("Feuil1").Range("A1:A" & Worksheets("Feuil1").Range("A65536").End(xlUp).Row) If cell <> "" Then ComboBox1.AddItem cell.Value Next End Sub

---

J'ai changé le nom de la feuille et la colonne en question pour mes tests et cela fonctionne correctement chez moi.

Tu peux aussi enlever

Code:

---

If Trim(ComboBox1) = "" Then Exit Sub

---

vu que tu n'as jamais de valeur égale à "".

Ensuite que veux-tu faire dans ComboBox1_Exit ? Si tu veux simplement ajouter la valeur sélectionnée lorsque tu quittes la combobox, cela suffit :

Code:

---

1 2 3

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Worksheets("Feuil1").Cells(Worksheets("Feuil1").Range("A65536").End(xlUp).Row + 1, 1) = ComboBox1 End Sub

---

Mais il faudrait en savoir plus sur ce que tu cherches exactement à faire.

Je pense donc que le code peut être très simplifié.

Pour ton erreur, vérifie que tu as bien mis les bons nom de feuilles et les bonnes Range. Dans le code, tu parles de la colonne I et dans ton texte tu parles de H par exemple.

Essaie et dis nous en plus sur ce que tu veux faire. Pour l'instant tu remplis ta combobox avec les valeurs de la colonne A (dans mon cas) jusqu'à la dernière valeur de la colonne. Ta combobox se remplit avec ces valeurs et lorsque tu la sélectionnes elle se met en majuscules. Quand tu quittes la combobox, la valeur se rajoute à la suite de la dernière valeur de la colonne en MAJ. Est-ce ce que tu souhaites ?

En faite je veux une saisie pré automatique dans ma combobox.

L'utilisateur saisie une donnée et si celle-ci a déja été rentrée alors, le mot s'affiche...

En gros, la recherche doit se faire dans un fichier excel:

-classeur nommé : BaseDeDonnées
- Feuille nommée : Base de données

J'avais mis le code suivant

Code:

---

1 2 3

If ComboBox1.Value = "" Then Me.ComboBox1.BackColor = RGB(250, 250, 250) Else

---

Pour que quand il n'y a pas de valeur rentrée dans ma combobox celle-ci est un fond blanc.