Discussion :

[formath]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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

A+

[formath]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Controle = ActiveControl.name

Pour l'encoyer en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Procédure(Controle)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[AlainTech]

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?

[ouskel'n'or]

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

[ouskel'n'or]

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