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

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #2

bonjour

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

VB:

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

 

Vote positif 0 Vote négatif

F

fred19732

XLDnaute Nouveau

• 28 Janvier 2020

• #3

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #4

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

Code:

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

maintenant la sub generique

VB:

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]

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 28 Janvier 2020

• #5

Bonjour,

Comment compliquer une chose simple

VB:

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

Boisgontier

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #6

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

 

Vote positif 0 Vote négatif

F

fred19732

XLDnaute Nouveau

• 28 Janvier 2020

• #7

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 .

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 28 Janvier 2020

• #8

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

Les TS sont nommés.

Boisgontier

 

Pièces jointes

• Copie de TestGenerique.xlsm

  17.7 KB · Affichages: 18

Dernière édition: 28 Janvier 2020

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 28 Janvier 2020

• #9

bonsoir,

VB:

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

 

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #10

bonsoir robert

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 28 Janvier 2020

• #11

Bonsoir Patrick, j'aime bien ton avatar !

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2020

• #12

c'est cybermumulator

 

Vote positif 0 Vote négatif