Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1172 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Appeler procédure dynamique dont le nom est variable

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Appeler procédure dynamique dont le nom est variable

n°2064867
GrandCactu​s
Posté le 20-03-2011 à 12:14:13  profilanswer
 

Bonjour à tous,
 
Je bloque sur un problème, peut être que certains pourront m'aider.
J'ai créé un userform dont un contrôle créé des boutons de manière dynamique. J'arrive à affecter une procédure à ces boutons tant que leur nom est "figé".
Cependant leur nom contient une variable i et je ne sais pas comment appeler la procédure appliquée à ces boutons (lorsque je clique sur eux).
 
Voici le code en bref :
Private Sub Monpremiercontrole ()
Set Monbouton = Me.Controls.Add("Forms.CommandButton.1", "Monbouton" & i, True)
End Sub
 
Private Sub Monbouton & i _Click()
la procédure déclenchée par le bouton Monbouton & i
End Sub
 
En fait je ne sais pas comment intégrer le i dans le nom de ma dernière private sub
 
Je ne sais pas si je suis bien clair... Merci de votre aide car là je suis bloqué...

Message cité 1 fois
Message édité par GrandCactus le 20-03-2011 à 12:23:06
mood
Publicité
Posté le 20-03-2011 à 12:14:13  profilanswer
 

n°2064961
otobox
Maison fondée en 2005
Posté le 21-03-2011 à 08:03:48  profilanswer
 

GrandCactus a écrit :

Bonjour à tous,
 
Je bloque sur un problème, peut être que certains pourront m'aider.
J'ai créé un userform dont un contrôle créé des boutons de manière dynamique. J'arrive à affecter une procédure à ces boutons tant que leur nom est "figé".
Cependant leur nom contient une variable i et je ne sais pas comment appeler la procédure appliquée à ces boutons (lorsque je clique sur eux).
 
Voici le code en bref :
Private Sub Monpremiercontrole ()
Set Monbouton = Me.Controls.Add("Forms.CommandButton.1", "Monbouton" & i, True)
End Sub
 
Private Sub Monbouton & i _Click()
la procédure déclenchée par le bouton Monbouton & i
End Sub
 
En fait je ne sais pas comment intégrer le i dans le nom de ma dernière private sub
 
Je ne sais pas si je suis bien clair... Merci de votre aide car là je suis bloqué...


 
Rajouter une procédure dans un module :

Sub AddProcedureToModule()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
        Dim LineNum As Long
        Const DQUOTE = """" ' one " character
 
        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents("Module1" )
        Set CodeMod = VBComp.CodeModule
         
        With CodeMod
            LineNum = .CountOfLines + 1
            .InsertLines LineNum, "Public Sub SayHello()"
            LineNum = LineNum + 1
            .InsertLines LineNum, "    MsgBox " & DQUOTE & "Hello World" & DQUOTE
            LineNum = LineNum + 1
            .InsertLines LineNum, "End Sub"
        End With
     
    End Sub


A adapter à ton problème


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°2065155
GrandCactu​s
Posté le 21-03-2011 à 19:43:31  profilanswer
 

je te remercie pour ta réponse je vais regarder ca


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Appeler procédure dynamique dont le nom est variable

 

Sujets relatifs
variable dans une boucleMenu Dynamique recursif php/mysql
Macro VBA pour passer de word aexcelExcel VBA Gestion Suivi des stock
[Résolu] - Php Créer variable session loginChemin UNC avec variable d'environement
[Php] Passe une variable et un int dans un TextareaVBA excel macro conditionnelle HELP!!
[VBA] Une sombre histoire de collection de classesDifficultés pour appeler une méthode
Plus de sujets relatifs à : VBA Appeler procédure dynamique dont le nom est variable


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR