Discussion :

[arzew]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arzew]

merci Hervé pour ta réponse précise