XL 2016 méthode générique remplissage combobox, listbox...

[fred19732]

Bonjour ,

voila mon problème. Il doit être assez simple à résoudre mais je n'y arrive pas.

Je cherche le moyen de pouvoir créer des méthodes génériques pour remplir combobox, listbox... avec le nom de mon control( combobox, listbox...) placé en paramètre..

je m'explique.
Imaginons que j'ai un userform (uf1), sur lequel j'ai 2 combobox (Cb1 et Cb2) et deux boutons (But1 et But2)

je voudrais appeler ma méthode RemplirCbs(Combo as....) (je ne sais pas quel type de variable mettre)en utilisant le code :
call RemplirCbs(Cb1) ou call RemplirCbs(Cb2) ou Cb1 et Cb2 sont les deux combobox à remplir avec la plage ("A1:A10") pour Cb1 et "B1:B10") pour Cb2.
ces deux appel sont fait en cliquant sur But1 pour remplir Cb1 et But2 pour Cb2

j'ai mis mon fichier,Evidemment, c'est juste un fichier pour tester le truc, car j'envisage un développement plus conséquent par la suite, et j'avoue que l'appel à des méthodes génériques peut considérablement diminuer la taille et l’accès à mon fichier et son exécution.

Voila j'espère que vouspourrez m'aider. je pense que c'est juste une histoire de définition des variables qui pèche

 

[patricktoulon]

bonjour

a utiliser une sub commune argumente la ca te compliquera moins la vie

Private Sub But1_Click()
    Uf1.Cb1.Clear
     RemplirCbs(Cb1, Feuil1.[A1:A12])
End Sub
Private Sub But2_Click()
     RemplirCbs Cb2, Feuil1.[B1:B12]
End Sub

Sub RemplirCbs(Combo, rng)
    Combo.Clear
    Combo.List = rng.Value
End Sub

cela dit une sub commune juste pour ca c'est un peu to mutch
j’espère que c'est a titre expérimental et que c'est a titre d’école
ca vaut pas le coup sinon

 

[fred19732]

Bonjour patricktoulon,

merci pour ta réponse rapide.
Peux tu juste me dire comment fonction 'rng'???

sinon, oui c'est du tres simple pour bien comprendre le mecanisme et pouvoir faire plus complexe apres.

 

[patricktoulon]

rng ne fonctionne pas c'est un argument range

j'explique
tu fait une sub générique appelée de divers endroits ou par divers controls

exemple
la sub qui appelle la sub générique

sub test()
subgenrique "toto", feuil1.[A1:A12]
end sub

maintenant la sub generique

sub subgenrique (qui as string,quoi as range)

msgbox """qui"" est = à " & qui

msgbox """quoi est la plage " & quoi.address

end sub

dans la sub generique qui c'est toto et quoi c'est feuil1.[A1:A12]

 

[BOISGONTIER]

Bonjour,

Comment compliquer une chose simple

Private Sub UserForm_Initialize()
  Me.Cb1.List = [mois].Value
  Me.Cb2.List = [jours].Value
End Sub

Boisgontier

 

[patricktoulon]

bonjour jacques
il faudrait peut être expliquer comment nommer une plage, le demandeur ne le sais peut être pas
et si j'ai bien compris le contexte en fait le demandeur s’entraîne a faire des sub génériques

 

[fred19732]

Bonjour & tous.

oui je sais comment nommer une plage.
et oui aussi je teste les sub génériques pour un projet ou j'en utiliserai beaucoup plus et beaucoup plus complexe.

Mais merci de tous vos commentaires sur ce post qui sont tous utiles .

 

[BOISGONTIER]

>il faudrait peut être expliquer comment nommer une plage,

Les TS sont nommés.

Boisgontier

 

[dysorthographie]

bonsoir,

Option Explicit

Private Sub But1_Click()
 
    Call RemplirCbs(Cb1, "A")
End Sub
Private Sub But2_Click()
    
    Call RemplirCbs(Cb2, "B")
End Sub

Sub RemplirCbs(Combo As Object, Colonne As String)
   Combo.Clear
    
    With Worksheets("feuil1")
      Combo.List = .Range(.Cells(1, Colonne), .Cells(.Cells.Rows.Count, Colonne).End(xlUp)).Value
    End With
    
End Sub

 

[patricktoulon]

bonsoir robert

 

[dysorthographie]

Bonsoir Patrick, j'aime bien ton avatar !

Je vois des nom que je côtoyais dans une autre vie!

 

[patricktoulon]

c'est cybermumulator