Probleme de remplissage combobox

Bonjour à tous,

J'ai un petit souci avec une combobox, car la propiété Rowsource n'est pas fixe dans mon fichier.
Je suis obligé de chercher le début des valeurs voulu, mettre la valeur dans une donnée variable que je nomme LigneDébut puis je cherche la fin des valeurs voulu que je mets dans LigneFin.
Mon souci est que je n'arrive pas à entrer ces valeurs dans la valeur RowSource de ma combobox.

Voici ce que j'ai comme exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Recherche 'Je cherche la valeur voulu de début LigneDébut = ActiveCell.Row 'Je cherche la valeur de fin voulu LigneFin = ActiveCell.Row   'Puis je voudrais entrer dans la propiété RowSource ces 2 données 'mais je n'y arrive pas   PK.RowSource="$B$" & LigneDébut ":$B$" & LigneFin End Sub

---

Mais il me met un message d'erreur et je ne comprends pas pourquoi.

Quelqu'un pourrait i m'aider?
Merci

Une idée:

Code:

---

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

Sub Recherche()   Dim Tableau Dim Lignes As String Dim l1 as long, l2 as long   Lignes = InputBox("Saisissez les lignes séparées par un ; ", "Choix des lignes") Tableau = Split(Lignes, ";") l1 = Val(Tableau(0)) l2 = Val(Tableau(1)) PK.RowSource="$B$" & l1 ":$B$" & l2   End Sub

---

Merci mais cela ne me convient pas,
je vous explique un peu mieux...
J'ai un tableau d'une centaine de colonne accompagné de quelques milliers de ligne.
2 de ces colonnes sont nommés Route et Km.
Dans mon Userform j'ai 2 combobox, l'une pour le choix de la Route et l'autre pour le choix du Km.
Dans la seconde je voudrais qu'en fonction de la Route sélectionné par l'utilisateur s'affiche automatiquement que les Km correspondant à cette route.
Donc après avoir sélectionner la route correspondante dans la 1ère combobox, il faut que dans la 2ème combobox ne s'affiche que les Km correspondant au choix de la route à l'aide de la propriété RowSource. (je cache toutes les autres lignes de routes et je reste avec uniquement les lignes affichés de la route sélectionné par l'utilisateur).

J'espère avoir été plus clair cette fois

Tu as donc une colonne route et une colone kilomètre.
Il faut donc que quand tu selectionnes une route (qui est forcement dans la colone route?), la combobox2 affiche les kilomètres (qui figurent sur la même ligne que la route, dans la colonne Km?)

Imaginons Km en Colonne B et Route en A
Si c'est ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub recherche() Dim Route as Range,Trouve as Range   Set Route=range("A2","A" & Range("A65536").end(xlup).row) Set Trouve=Route.Find(Combobox1.Value, LookIn:=xlValues, SearchOrder:=xlByColumns) If Not Trouve is Nothing Combobox2.Value= Cells(Trouve.Row,2).value else MsgBox ("Cette route ne figure pas dans la base de données) End if End Sub

---

Edit:Si tu place ça dans l'evenement combobox1 change de ton userform ça devrait le faire

OK merci cela marche à merveille