Aide pour ComboBox

Bonsoir !

Je commence par me présenter simplement : newbie dans le domaine du VBA, étudiant en Genie Mécanique, on nous apprend quelques rudiments du VBA en cour, ce qui explique ma présence sur ce forum, qui m'as déjà beaucoup aidé jusqu'ici !
Je travail sur un petit projet de "bibliothèque", qui pour l'instant se limite à un userform rechercher qui permet d'aller chercher les livres qui m'interesse dans la feuille de base et de les renvoyer dans une autre feuille. Enfin bref, passons plutôt au problème.

Alors je cherche a créer ce qui se présente dans le menu déroulant de ma combobox de manière automatique. Pour la première, aucun problème (plutôt simple), mais la deuxième me pose un peu plus de problèmes...

Je m'explique : il me faut récupérer dans la colonne "C" tout les genres de documents auxquels je peut etre confronté (Roman, BD, Manga...)
Le problème cest que cela m'affiche donc 30 000 fois la meme chose avec ce code :

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

Private Sub UserForm_Initialize() 'Initialisation du menu déroulant de la ComboBox1 Dim VarDerColonne, i As Integer CategorieBox.Clear VarDerColonne = Worksheets("params").Range("Z1").End(xlToLeft).Column   'On ajoute la possibilité de pouvoir rechercher dans toutes les categories CategorieBox.AddItem ("TOUT")   For i = 1 To (VarDerColonne - 1) CategorieBox.AddItem (Cells(1, i).Value) Next i     CategorieBox.ListIndex = 0   Dim VarDerLigne As Integer GenreBox.AddItem ("TOUT") MsgBox "b" VarDerLigne = Worksheets("params").Range("C65536").End(xlUp).Row 'VarPlage = Sheets("params").Range("C2:C" & VarDerLigne).Address GenreBox.RowSource = "params!" & VarPlage GenreBox.ColumnHeads = False GenreBox.ListIndex = 0     End Sub

---

C'est une réutilisation du code que notre professeur nous avais donné.

J'ai donc tenté quelque chose : (pour la seconde combobox, sois GenreBox, la première étant CategorieBox)

Code:

---

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

Dim VarDerLigne, new_cat As Integer GenreBox.AddItem ("TOUT") MsgBox "b" VarDerLigne = Worksheets("params").Range("C65536").End(xlUp).Row new_cat = Worksheets("params").Range("C1").Value   GenreBox.AddItem (new_cat)   For i = 1 To VarDerLigne If Worksheets("params").Range("C" & i).Value <> new_cat Then new_cat = Range("C" & i).Value GenreBox.AddItem (new_cat) End If Next i   End Sub

---

Mais cela ne fonctionne malheureusement pas "erreur de type"... je suppose que c'est du au "new_cat" mais je ne vois vraiment pas comment faire autrement !
En espérant avoir été assez clair :) (et ne pas avoir fait trop de fautes)
Merci d'avance !!

Shady

Bonjour,


tu ne nous as pas dit sur qu'elle ligne était située l'erreur ..

de plus il ne faut jamais utiliser un objet Range sans préciser son parent .. , ce que tu as fait en ligne 13 (alors que partout ailleurs tu as préciser la feuille parente..)

Re-bonsoir,

Autant pour moi, je n'avais pas vu pour le range... C'est corrigé merci !

Et l'erreur ne m'amène à aucune ligne, voila ce que cela m'affiche :
Pièce jointe 195856

Si j'essaye de voir d'ou viens la faute a l'aide de MsgBox, je vois que ça bloque sur la ligne en rouge ci-dessous (le "c" ne s'affiche pas, le message d'erreur arrive juste après le "b")
Pourtant new_cat est bien un string donc je ne comprend pas d'ou cela peut venir
A tout les coups c'est tout bête mais cela fait des heures que je bloque donc j'ai décidé de poster un message pour voir si un regard exterieur pourrait voir la faute.

En tout cas, merci beaucoup pour ta réponse ! :)
S'il le faut je peut attacher le fichier dans mon prochain post, mais je sais pas si tu t'y retrouverais, c'est un peu "rangé" n'importe comment :mrgreen:

Shady

Code:

---

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

Dim VarDerLigne, new_cat As Integer GenreBox.AddItem ("TOUT") MsgBox "a" VarDerLigne = Worksheets("params").Range("C65536").End(xlUp).Row MsgBox "b" new_cat = Worksheets("params").Range("C2").Value MsgBox "c" 'celui ci ne s'affiche pas GenreBox.AddItem (new_cat) MsgBox "d" For i = 1 To VarDerLigne If Worksheets("params").Range("C" & i).Value <> new_cat Then new_cat = Worksheets("params").Range("C" & i).Value GenreBox.AddItem (new_cat) End If Next i

---

La valeur que j'ai à prendre est bien une chaîne de caractère :
Pièce jointe 195857

Re,

tu déclare new_cat en entier (integer) et tu essai de lui affecter une chaîne ...

Et voilà j'en étais sur... :oops:
J’étais tellement persuadé de l'avoir déclaré en tant que string !!

Merci beaucoup d'avoir répondu en tout cas...
Ça risque de ne pas être mon dernier post (mais les prochains seront plus coriace promis)

Cordialement,
Shady