Objet Listbox comme argument d'une procédure VBA Excel

Question

Bonjour, Avec excel 2000 et VBA Depuis 2 jours, je ne trouve pas; ni dans les forum ni dans les tutoriels ni dans les ouvrages spécialisés grand public et professionnels l'explication de passage d'objet comme argument d'une procédure VBA excel Voilà ce que je souhaite faire : Dans Userform1 j'ai 3 ListBox (ListBox1,ListBox2,ListBox3) chacune contient des informations différentes pour chacune il y a 1 CommandButton (CommandButton1,CommandButton2,CommandButton3) Chaque bouton doit me permettre d'exécuter la même procédure Sub pour éviter de l'écrire 3 fois Je pensais faire : Call maprocédure (ListBox1)..........quand je clique sur le bouton CommandButton1 Call maprocédure (ListBox2)..........quand je clique sur le bouton CommandButton2 Call maprocédure (ListBox3)..........quand je clique sur le bouton CommandButton3 et dans la procédure Sub maprocédure (une variable objet ?....) qui récupère soit ListBox1, soit ListBox2 ou ListBox3 suivant le bouton sur lequel j'ai cliqué. Merci d'avance de votre aide, J.B

jmfmarques · Answer

maprocedure listbox1
maprocedure lisbox2
...

Private sub maprocedure(ctrl as control)
..........
end sub

maintenant, avec VBA, c'est peut-être as MSforms.listbox ou quelque-chose de similaire

cs_Orohena · Answer

Bonjour beaujack

J'ai simulé ton userform. J'ai donc créé un userform avec un listbox et un bouton. Le code du formulaire est le suivant, et sur mon PC il s'exécute sans problème.

Private Sub CommandButton1_Click()
    Call maprocedure(ListBox1)
End Sub



Sub maprocedure(o As Object)
...
End Sub


Néanmoins d'après moi, il vaudrait mieux passer comme argument du Call un identificateur du bouton, qui permette à maprocedure() de récupérer l'objet, comme dans l'exemple ci-dessous :

Private Sub CommandButton1_Click()
    Call maprocedure(id:=1)
End Sub



Sub maprocedure(ByVal id As Integer)
    Dim o As Object
    Select Case id
        Case 1
            Set o = ListBox1
        ...
    End Select
End Sub

Cordialement







Citations célèbres :<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>








 








Impossible n’est pas français

,

Napoléon, 1808

,

----

Impossible n’est pas vbfrançais

,

Orohena, 2008

bigfish_le vrai · Answer

Salut,

je ne vais as t'apprendre grans chose vu que tu y etais presque :

Private Sub CommandButton1_Click()
    Call MaProcedure(Me.ListBox1)
End Sub

Sub MaProcedure(Byval MonControl As Object)
    MsgBox MonControl.Name
End Sub


Prend l'habitude de definir aussi la methode de passage du parametre
c'est a dire si tu veux passer la valeur (Byval) ou la variable
(Byref). Sache que par defaut si tu ne specifis rien VBA utilise ByRef.

Dans ce cas si la valeur de ta variable passée en parametre change dans
la sub ou la fonction appelé elle sera aussi changée dans la variable
d'origine.


Exemple:

Sub Test()
   Dim MonNom As String, MomNomDeFamille As String
   MonNom = "James Bond"
   MomNomDeFamille = ExtraireNomDeFamille(MonNom)
   MsgBox "Vous Etes : " & MonNom _
      & vbCrLf & "Votre Nom de Famille est :  " & MomNomDeFamille
End Sub

Function ExtraireNomDeFamille(ByVal NonRecuEnParametre As String) As String
    NonRecuEnParametre = Right(NonRecuEnParametre, InStr(1, StrReverse(NonRecuEnParametre), Chr(32)) - 1)
    ExtraireNomDeFamille = NonRecuEnParametre
End Function

Premier essait avec Byval :


la reponse sera :


Vous Etes : James Bond

Votre Nom de Famille est : Bond


deuxieme essait avec rien ou ByRef :


la reponse sera :


Vous Etes : Bond <--- regarde bien ici

Votre Nom de Famille est : Bond


dans ce dernier cas la valeur de ta variable d'origine a elle aussi changer.

D'ou l'importance de specifier la methode

A+

cs_Orohena · Answer

Sorry jmfmarques, je n'ai pas vu ta réponse

bigfish_le vrai · Answer

Re,

Désolé pour le poste croisé 

A+

cs_Orohena · Answer

C'est vrai que ç'est un peu le bazar 
désolé, beaujack, tu n'as plus qu'à faire le tri...


@+





Citations célèbres :<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>








 











Impossible n'est pas français

,

Napoléon, 1808

,

----

Impossible n'est pas vbfrançais

,

Orohena, 2008

PCPT · Answer

salut, module de class, object, ok. mais module je ne vois pas ce qui empêche de typer explicitement Coloration syntaxique, vendredi 07 novembre 2008 08:22 Public Sub MaProc( ByRef oLBox As MSForms.ListBox) oLBox.AddItem CStr(Time) oLBox.AddItem "+ une ligne" oLBox.AddItem "-----------" End Sub et l'appel est bon, avec ou sans CALL Coloration syntaxique, vendredi 07 novembre 2008 08:23 Private Sub CommandButton1_Click() Call MaProc(ListBox1) MaProc ListBox3 End Sub ++ Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

salut,

merci pour tes remerciements (collectifs) en MP, çà fait plaisir 

pour ton "résumé", OBJECT va fonctionner mais je maintiens que ce n'est pas approprié


en plus comme ici tu connais le type, ce
n'est vraiment pas utile, c'est comme si tu mettais VARIANT, un peu
trop passe-partout


ps : pour éviter une copie mémoire on passe les objets BYREF, et non BYVAL comme tu utilises actuellement
++

 
Prenez un instant pour répondre à [forum/sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Objet Listbox comme argument d'une procédure VBA Excel

8 réponses

Votre réponse

Discussions similaires