selection combobox et affichage textbox

bonjour,

j'ai réalisé une combobox qui fait apparaitre en déroulé 5 départements Français une fois cliquée.
Ces départements sont sur Feuil1 dans Excel en colonne E .
Je voudrais faire apparaitre dans un textbox le nbre d'habitant du département choisi dans la combobox.
Ce nbre d'habitant étant sur Feuil1 en colonne F.
Quelle seraient les routines à employer pour réaliser cela ?

merci de votre aide :)

Arzew


programme réalisé dans VBA :

Code:

---

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

Private Sub ComboBox1_DropButtonClick() Dim temp2()   For i = 1 To Worksheets("Feuil1").Cells(Rows.Count,4).End(xlUp).Row ReDim Preserve temp2(1 To i) temp2(i) = Worksheets("Feuil1").Cells(i, 5).Value   Next i n = UBound(temp2) Me.ComboBox1.List = temp2   End Sub

---

dans Excel

en colonne E1 j'ai écrit ain ,E2 ... aisne, E3 ... allier, E4 ... alpes, E5 ... hautes alpes

bonjour pour emplir ta combo utilise plutôt ce code qui fait la même chose mais sans boucle donc plus rapide

Code:

---

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

Private Sub ComboBox1_DropButtonClick() Dim nomfeuille As String   'je renseigne le nom de la feuille nomfeuille = "Feuil1"   'je défine malist malist = Sheets(nomfeuille).Range("E1:E" & Sheets(nomfeuille).Range("E" & Rows.Count).End(xlUp).Row)   'je remplis ma combo Me.ComboBox1.List = malist End Sub

---

ensuite utilises l'événement change de la combo qui fait que lorsque on sélectionne une valeur dans la combo cela déclenche la macro.
Pour la macro tu utilises la méthode Find pour rechercher le département en colonne E et si il trouve le dépt il donne à la textbox1 la valeur de la colonne de droite donc la colonne F. Comme ceci:

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Change() Dim vdep As Range With Sheets("Feuil1") Set vdep = .Columns("E:E").Find(Me.ComboBox1.Value) If Not vdep Is Nothing Then Me.textbox1.Value = vdep.Offset(0, 1).Value End With End Sub

---

merci Hervé pour ta réponse précise