Soyez le premier à donner votre avis sur cette source.
Vue 17 674 fois - Téléchargée 1 718 fois
'Charge un combobox ou une listbox (pas les deux en même temps!) de choix définis au départ puis saisi dans la base de données 'Nécessite la fonction Derniere_Ligne 'Feuille: nom de la feuille. Attention pas celui de l'onglet!!! 'Cellules: mettre entre guillemets Ex:"A2" ou "A2:D2" si A1 et le titre du tableau 'Controle: indiquer nom de la fenêtre suivi du nom du controle (Listbox ou Combobox) 'Choix_Defini: Liste de choix définis au départ 'Ex: Liste_Choix Feuil2, "C2", UserForm1.Co_theme, "Action", "Aventure", "Policier", "Drame", "Dessin Animé", "Romantique" Public Function Liste_Choix(Feuille As Worksheet, Cellules As String, Controle As Control, ParamArray Choix_Defini() As Variant) Dim Choix As New Collection Dim List As Variant Dim a As Long Dim b As Long Dim c As Long '= nombre de choix Dim Temp_Choix As String Dim Temp_Num As Integer If UBound(Choix_Defini()) <> -1 Then For a = 0 To UBound(Choix_Defini()) Choix.Add UCase(Choix_Defini(a)), CStr(Choix_Defini(a)) Next a End If For a = 0 To Derniere_Ligne(Feuille, Cellules) If Feuille.Range(Cellules).Offset(a).Value <> "" Then On Error Resume Next Choix.Add UCase(Feuille.Range(Cellules).Offset(a).Value), CStr(Feuille.Range(Cellules).Offset(a).Value) On Error GoTo 0 End If Next a c = Choix.Count b = c ' Charge la liste de choix du + petit au + grand Do While c <> Controle.ListCount Temp_Choix = Choix.Item(1) Temp_Num = 1 For a = 1 To b If Temp_Choix <> Choix.Item(a) Then If StrComp(Temp_Choix, Choix.Item(a), vbTextCompare) = 1 Then Temp_Choix = Choix.Item(a) Temp_Num = a End If End If Next a Controle.AddItem Temp_Choix Choix.Remove (Temp_Num) b = Choix.Count Temp_Choix = "" Temp_Num = 0 Loop End Function
28 sept. 2010 à 22:50
2 janv. 2009 à 18:34
2 janv. 2009 à 09:22
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.