Tableau declarer dans Userform1 et utilise dans Userform2

[Pierre]

Bonjour,

Je continue mon apprentissage de VBA pour Execl en lisant les nombreux email de votre site. C'est vraiment un tres bon site. Si vous pouvez encore m'aider j'aurai une petite question:

Question: comment fait t-on pour utiliser un tableau dans un userform (Userform2 par ex.) alors qu'il a ete defini dans un autre userform (UserForm1 par ex.)?

Par exemple:
J'ai un tableau nomme Tab que j'ai initialise et rempli dans le UserForm1:

Sub UserForm_Initialize ()
dim i as interger
for i = 1 to 10
Tab (i) = i
Next i
end Sub

Maintenant j'essaye d'utiliser ces donnees dans un Userform2:
Sub UserForm_Initialize ()
dim i as integer
for i=1 to 10
Sheet("sheet1").range("a"&i) = Userform1.Tab(i)
next i
end sub

Cependant, lorsque le programme tourne, il stop et me dit que Tab n'est pas defini.
Quelqu'un connaitrait-il la solution?

Merci beaucoup!

Pierre

 

[Michel_M]

Bonsoir,

En regardant "vite fait", il y a peut-etre pb sur la déclaration de ton tableau
Dim tontab() as integer

et comme tu y inséres 10 éléments (i de 1 à 10)
il écrire:

redim tontab(10)

d'autre part, ton indice de départ dans le tableau est zéro

si tes valeurs de i sont de 1 à 10

i=0
for i=0 to 9
tontab(i)=I+1
next i

etc.


Michel

 

[Zon]

Salut,

Pour pouvoir utiliser ton tableau il faut que tu le mettes en public dans module pour pouvoir s'enservir dans tous les modules

Tab est mot réservé en VBA, il faut utiliser un autre nom :

Public T(9)'base 0 donc 10 éléments

que tu initiliases comme tu veux dans ton userform1 puis dans le 2 tu peux garder ta boucle ou écrire

with sheets("sheet1")
.range("A1").resize(ubound(t))=application.transpose(t)
end with

Récupères les packs démos Pack1
et Pack2 de @Thierry.


A+++

 

[Pierre]

Salut Zon,

Ok, merci pour les explications ca m'eclaire pas mal. Je vais mettre cela en pratique.
Par contre je n'ai pas reussi a telecharger les demos Pack1 et Pack2, il ne trouve pas le serveur, bizarre.

Si jamais tu pouvais me les envoyer par email, ca serait sympa; sinon pas de probleme, je devrais pouvoir m'en sortir avec tes explications.

Merci bien!

Pierre

 

[@+Thierry]

Bonjour Pierre, Zon, le Forum

Merci Zon pour la pub !! lol

Si notre ami Pierre a des soucis pour télécharger les packs de mes démos, il peut aussi passer par là :

Ce lien n'existe plus

Ce lien n'existe plus

Bon Appétit
@+Thierry