Formulaire dynamique Excel

Question

Bonjour, J'ai créé un formulaire de façon dynamique à partir d'une feuille Excel. en attribuant à chaque zone créée un nom de variable associé à un numéro que j'incrémente. ex: Variable1, Variable2.... Mon problème est le suivant je créé ce formulaire dans une procédure Userform_initialize() Mais je n'arrive pas à récupérer mes données dans ma procédure cmdvalider_click() voici mon code source(très très résumé!)

PrivateSub UserForm_Initialize() Dim TxtActivite(1To100)As Control h = 1 'Initialisation des boites contenant les activités Set TxtActivite(h) = Controls.Add("Forms.TextBox.1") TxtActivite(h).Text = FeuilleActivite.Cells(h, 1).Value TxtActivite(h).Left = 108 TxtActivite(h).Top = 0 + (h * 24) TxtActivite(h).Width = 210 TxtActivite(h).Height = 18 EndSub PrivateSub CmdValider_Click() Dim h AsInteger Dim TxtActivite(1To100)As Control h = 1 If(TxtActivite(h) <> "")Then '<------- a priori c'est cette ligne qu'il n'aime pas... ...

c'est la qu'Excel me sort sa fameuse phrase: variable objet ou variable de bloc with non définie En clair il ne connait pas la variableTxtActivite(h) dans ma procédure CmdValider_Click Si vous avez une idée sur la résolution de mon problème...

cavo789 · Answer

Je n'ai rien testé aussi à vérifier : ce qui m'interpelle, c'est que dans les deux sub tu redéclares Dim TxtActivate(1 to 100) as Control.   

Etant donné que cet objet est utilisé dans plusieurs subs; tu devrais en faire une variable publique.

Christophe

cicdrek · Answer

J'ai essayer effectivement de la déclarer en public mais ca ne change rien car ma véritable déclaration se fait lors de mon 
Set TxtActivite(h) = Controls.Add("Forms.TextBox.1")
et celui la je ne peux pas le sortir de UserForm_Initialize.

cavo789 · Answer

Pour être sûr; est-ce bien ceci que tu as fais

Dim TxtActivite(1To100)As Control 
Dim h AsInteger

PrivateSub UserForm_Initialize()

   h = 1

  'Initialisation des boites contenant les activités
    Set TxtActivite(h) = Controls.Add("Forms.TextBox.1")
    TxtActivite(h).Text = FeuilleActivite.Cells(h, 1).Value
    TxtActivite(h).Left = 108
    TxtActivite(h).Top = 0 + (h * 24)
    TxtActivite(h).Width = 210
    TxtActivite(h).Height = 18
 
EndSub
 
PrivateSub CmdValider_Click()
     h = 1
 
     If(TxtActivite(h) <> "")Then

C'est-à-dire de sortir les deux DIM des subs et de les mettre en haut de ton code ?
Christophe

mortalino · Answer

Salut,

Cicdrek, tu dis :
J'ai essayer effectivement de la déclarer en public mais ca ne change
rien car ma véritable déclaration se fait lors de mon
Set TxtActivite(h) = Controls.Add("Forms.TextBox.1")
et celui la je ne peux pas le sortir de UserForm_Initialize.

Et alors ??
Tu déclares, c'est un fait, mais qu'est ce que ça fait si tu le déclares dans les déclarations ? (hors procédure)
Beh ça change rien, si ce n'est que tes variables seront accessibles dans toutes les procédures de ton UserForm.
Cavo789 t'as donnée la bonne marche à suivre !

Dis toi que déclarer une variable dans les déclarations, c'est comme déclarer dans une procédure (ou fonction), à la différence que la variable est accessible dans l'ensemble de ton code UserForm.

Et sinon, pour le coup du If, voici la structure à appliquer :
If Ton_Test Then
    Instructions
ElseIf TonSecond_Test Then
    Instructions
Else
    Instructions
End If

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cicdrek · Answer

Merci beaucoup mais j'ai trouvé une autre solution. il suffisait de données un Name à chacune de mes text box en utilisant la propriété .Name

et de rappeler cette textbox  dans l'autre module grace à:
Nomde la form.Controls ("LeNom de la textBox" & i).Value
ou i est la variable que j'incrémente grace à une boucle.

Bref ca marche.

Formulaire dynamique Excel

5 réponses

Votre réponse

Discussions similaires