Discussion :

[nicroq]

bonjour a tous et merci pour votre aide!

dans le fichier joint un userform s'ouvre a l ouverture du fichier excel. Dans ce userform il ya une liste deroulante (N°r).
Ma problematique est que je n arrive a definir cette liste deroulante... il faudrai mettre les valeurs de la sheet "database" de A2 jusqu'a la dernière ligne, dans la liste deroulante du userform et lorsque je valide le userform que la valeur choisie se mette en cellule A1 de la sheet "donnée" .

en vous remerciant

cordialementexemple.xls

[BENNASR]

copie ça :

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
   Sheets("database").Select
    ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

puis ca dans le bouton valider

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Sheets("données").Range("A1") = ComboBox1.Value
ComboBox1.Value = ""
End Sub

bonne année 2016 à tous

[pijaku]

Bonjour,

Un exemple de code à placer dans le module de ton UserForm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
Dim DLig As Integer
Dim Wsh As Worksheet
 
ComboBox1.Clear
 
Set Wsh = Sheets("database")
With Wsh
   DLig = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
   ComboBox1.RowSource = Wsh.Name & "!" & Range("A2:A" & DLig).Address
End With
End Sub
 
Private Sub CommandButton1_Click()
Dim Wsh As Worksheet
 
If ComboBox1 = "" Then MsgBox "Faites votre choix!": Exit Sub
Set Wsh = Sheets("données")
Wsh.Range("A1") = ComboBox1
End Sub

Je te recommande toutefois de lire des tutos sur Internet, car, ici, c'est vraiment la base de chez base.

[nicroq]

Merci a vous ca marche nikel!!!