[VBA-E] Modifier les propriétés d'un control par une routine

bonjour à tous et merci de me lire! Je débute en vba, et j'ai une petite question !

objectif :

modifier des propriétés d'un control placé sur une form, mais via une subroutine indépendante placée dans un module, et non pas via une private sub d'interruption au clik ou au double clik.


portion de code :
"

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Btn_Ajouter_Libele_Click() ..... ' refresh la liste des libélés actuels dans la zone de liste Dim LastInputRow As Integer LastInputRow = Cells(1, 1).End(xlDown).Row With Sheets("Libeles").Range("A1") LstB_Libele_Actuels.RowSource = "Libeles!A2:A" & Sheets("Libeles").Cells(1, 1).End(xlDown).Row End With .... End Sub

---

"

je souhaiterais créer une routine me permétant de modifier le contenu de ma listebox ici du nom de "LstB_Libele_Actuels". Celà allègera la lecture de mon code, car j'utilise le meme morceau régulièrement pour récupérer les données de mon fichier xls. Donc au final j'aimerais avoir un morceau de code du style :

Code:

---

1 2 3 4 5 6

Private Sub Btn_Ajouter_Libele_Click() ..... ' refresh la liste des libélés actuels dans la zone de liste Refresh_LstB_Libele_Actuels( ?que placer comme paramètre?? ) .... End Sub

---

"


j'espère que c'est assez clair .. merci

math

Pas compris :(
Donne un exemple de ce que tu voudrais voir là

Citation:

---

Refresh_LstB_Libele_Actuels( ?que placer comme paramètre?? )

---

A+

je souhaiterais encapusler cette portion de code dans uen routine pour pouvoir l'utiliser dans mon code. L'idée était d'utiliser une routine ou une fonction pour exécuter cette portion de code .. . mais le control " LstB_Libele_Actuels" doit bien être passé en paramètre dans ma routine... c'est l'objet de ma question

Code:

---

1 2 3 4 5 6

refresh la liste des libélés actuels dans la zone de liste Dim LastInputRow As Integer LastInputRow = Cells(1, 1).End(xlDown).Row With Sheets("Libeles").Range("A1") LstB_Libele_Actuels.RowSource = "Libeles!A2:A" & Sheets("Libeles").Cells(1, 1).End(xlDown).Row End With

---

merci !

Je ne vois toujours pas... mais, si tu veux passer LstB_Libele_Actuels en paramètre, rien ne t'en empêche. Si tu dois récupérer le nom :

Code:

---

Controle = ActiveControl.name

---

Pour l'encoyer en paramètre

Code:

---

Call Procédure(Controle)

---

que tu le récupères et l'utilises comme ça :

Code:

---

1 2	Sub Traiter(ctr) Userform1.controls(ctr).rowSource = ........

---

Je ne sais pas si je réponds à ta question :(
A+

Il est parfaitement possible de passer un objet (un contrôle) en paramètre à une routine ou une fonction.
Pas nécessaire de récupérer son nom.
Quel est le problème que tu rencontres?

Bien sûr, suffit de ne pas passer par la variable :mouarf:

Nos réponses ont-elles résolu ton pb ? Si oui, bouton :resolu: en bas de l'écran ;)