initiliser une Userform

[ericTA]

Bonjour,
Voici je cherche à faire un USERFORM avec une liste de valeur venant d'une plage dans une feuille.
Ex je cherche à afficher une USERFORM "userliste" avec une listbox "listeduneplage" comprenant les valeurs de la feuille :

nomdelafeuille : parametres avec
plage : A1:A15

mais ça ne marche pas.

UserListe("parametres","A1:A15").Show comment ouvir une userform en passant des parametres pour l'initialiser?????

avec pour USERLISTE :

Private Sub Listeduneplage_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = Listeduneplage.Value
Unload Me
End Sub



Private Sub UserForm_Initialize(NomdelaFeuille, PlageASelectionner As String)
Dim Tablo, I As Integer, J As Integer, Num As Variant

' Définition du tableau
Tablo = Sheets(NomdelaFeuille).Range(PlageASelectionner)
'Elimination des codes en doublons
For I = 1 To UBound(Tablo) - 1
If Tablo(I, 1) <> "" Then
For J = I + 1 To UBound(Tablo)
If Tablo(J, 1) <> "" Then
If Tablo(J, 1) = Tablo(I, 1) Then
Tablo(J, 1) = ""
Else
If Tablo(J, 1) < Tablo(I, 1) Then 'Mise en ordre Croissant
Num = Tablo(I, 1)
Tablo(I, 1) = Tablo(J, 1)
Tablo(J, 1) = Num
End If
End If
End If
Next J
End If
Next I
' Attribution des valeurs à la liste
For I = 1 To UBound(Tablo)
If Tablo(I, 1) <> "" Then
Listeduneplage.AddItem Tablo(I, 1)
End If
Next I

End Sub

 

[kjin]

Re : initiliser une Userform

Bonsoir,
Tu ne peux pas de cette manière.
Pourquoi créer des variables.........qui ne varient pas ?!😕
Tu pourrais créer le formulaire à la volée, mais est-ce bien utile dans ton cas ?
A+
kjin