Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Copie d un tableau de Form1 à Form2

Copie d un tableau de Form1 à Form2

8 réponses
Avatar
RV
Bonjour,
Voici une question similaire =E0 celle que j'ai pos=E9 il y a=20
qq jours. Je voudrais passer un tableau d'une feuille =E0=20
une autre, sachant que ce tableau =E0 un type d=E9fini par=20
l'utilisateur (ca, je peux le changer si c'est bloquant).
'********
'*Module1
Public Type tMonType
var1 as Integer
var2 as String * 2
End Type

'******
'*Form1
Dim MonTableau1() as tMonType
'*Le tableau est d=E9fini dans une proc=E9dure quelconque,=20
avec un ReDim pour le redimensionner...
Public Property Get Tableau() As tMonType
Tableau() =3D MonTableau1()
End Property

'******
'*Form2
Dim MonTableau2() as tMonType
Private Sub Form_Load()
ReDim MonTableau2(1 To uBound(Form1.Tableau)) as tMonType
MonTableau2() =3D Tableau()=20
End Sub

Ca bloque sur la propri=E9t=E9 de la Form1 avec le=20
message : "Seuls les types d=E9finis par l'utilisateur et=20
qui sont d=E9finis dans les modules d'objets publics,=20
peuvent =EAtre utilis=E9s comme types renvoy=E9s ou param=E8tres,=20
pour des proc=E9dures publiques de modules de classe, ou=20
comme champs de tpyes publics d=E9finis par l'utilisateurs"
...pas tr=E8s clair pour moi...
J'avoue que j'ai pass=E9 un peu de tmps la dessus et que je=20
suis =E0 cours d'id=E9e (essai de : Property Let dans=20
Form2, ...)
Quelle est la meilleure facon de faire ?
Merci pour votre aide.
RV
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pascal B.
Salut RV,

Le plus simple serait de travailler avec un tableau déclaré public dans 1 module...
Mais pour répondre à ta question, voici la solution:

'*****FORM 1
'Bien regarder la syntaxe
'Remplacer "Public Property" par "Friend Property"
'ajouter () à "As tMonType" pour retourner un tableau et
'supprimer le () à "Tableau =".

Dim MonTableau1() As tMonType

Friend Property Get Tableau() As tMonType()
Tableau = MonTableau1()
End Property

'*****FORM 2
Dim MonTableau2() As tMonType

Private Sub Form_Load()
'Copie directement le tableau de la Form1 à la Form2!
MonTableau2() = Form1.Tableau()
End Sub



"RV" wrote in message news:1ccc801c45374$02665870$
Bonjour,
Voici une question similaire à celle que j'ai posé il y a
qq jours. Je voudrais passer un tableau d'une feuille à
une autre, sachant que ce tableau à un type défini par
l'utilisateur (ca, je peux le changer si c'est bloquant).
'********
'*Module1
Public Type tMonType
var1 as Integer
var2 as String * 2
End Type

'******
'*Form1
Dim MonTableau1() as tMonType
'*Le tableau est défini dans une procédure quelconque,
avec un ReDim pour le redimensionner...
Public Property Get Tableau() As tMonType
Tableau() = MonTableau1()
End Property

'******
'*Form2
Dim MonTableau2() as tMonType
Private Sub Form_Load()
ReDim MonTableau2(1 To uBound(Form1.Tableau)) as tMonType
MonTableau2() = Tableau()
End Sub

Ca bloque sur la propriété de la Form1 avec le
message : "Seuls les types définis par l'utilisateur et
qui sont définis dans les modules d'objets publics,
peuvent être utilisés comme types renvoyés ou paramètres,
pour des procédures publiques de modules de classe, ou
comme champs de tpyes publics définis par l'utilisateurs"
...pas très clair pour moi...
J'avoue que j'ai passé un peu de tmps la dessus et que je
suis à cours d'idée (essai de : Property Let dans
Form2, ...)
Quelle est la meilleure facon de faire ?
Merci pour votre aide.
RV
Avatar
RV
Salut,
merci pour la réponse, je la teste.
RV

-----Message d'origine-----
Salut RV,

Le plus simple serait de travailler avec un tableau


déclaré public dans 1 module...
Mais pour répondre à ta question, voici la solution:

'*****FORM 1
'Bien regarder la syntaxe
'Remplacer "Public Property" par "Friend Property"
'ajouter () à "As tMonType" pour retourner un tableau et
'supprimer le () à "Tableau =".

Dim MonTableau1() As tMonType

Friend Property Get Tableau() As tMonType()
Tableau = MonTableau1()
End Property

'*****FORM 2
Dim MonTableau2() As tMonType

Private Sub Form_Load()
'Copie directement le tableau de la Form1 à la Form2!
MonTableau2() = Form1.Tableau()
End Sub


Avatar
RV
>-----Message d'origine-----
Salut RV,

Le plus simple serait de travailler avec un tableau


déclaré public dans 1 module...

Salut,
Comment tu fais pour rendre ton tableau public ?
<Public vMonTableau1 as tMonType>
Voici le message renvoyé losrque je le déclare public :
"Des constantes, chaines de longueur fixe, tableaux, types
définis par l'utilisateur et instructions Declare ne sont
pas autorisés comme membres Public de modules d'objet"
Il est possible que le type défini par l'utilisateur
bloque cette propriété... non ?
Merci
RV
Avatar
Pascal B.
Re,

<Public MonTableau1() as tMonType>
ceci n'est possible SEULEMENT dans un module de type .BAS (ex: Module1.bas)
MonTableau est alors connu dans toute l'application telquel.

Mais cela est impossible dans un module de type Form ou Class (ex: Form1.frm)
il faut passer par un Get Property comme décrit précédemen.t
Ce tableau est alors accessible par cette syntaxe: Form1.Tableau

Pascal



"RV" wrote in message news:1ceb501c4539a$83545e70$
-----Message d'origine-----
Salut RV,

Le plus simple serait de travailler avec un tableau


déclaré public dans 1 module...

Salut,
Comment tu fais pour rendre ton tableau public ?
<Public vMonTableau1 as tMonType>
Voici le message renvoyé losrque je le déclare public :
"Des constantes, chaines de longueur fixe, tableaux, types
définis par l'utilisateur et instructions Declare ne sont
pas autorisés comme membres Public de modules d'objet"
Il est possible que le type défini par l'utilisateur
bloque cette propriété... non ?
Merci
RV
Avatar
RV
Re-salut,

Mais pour répondre à ta question, voici la solution:

'*****FORM 1
'Bien regarder la syntaxe
'Remplacer "Public Property" par "Friend Property"
'ajouter () à "As tMonType" pour retourner un tableau et
'supprimer le () à "Tableau =".

Dim MonTableau1() As tMonType

Friend Property Get Tableau() As tMonType()
Tableau = MonTableau1()
End Property

'*****FORM 2
Dim MonTableau2() As tMonType

Private Sub Form_Load()
'Copie directement le tableau de la Form1 à la Form2!
MonTableau2() = Form1.Tableau()
End Sub



à ce niveau là (MonTableau2() =), j'ai l'erreur suivante :
"Impossible d'affecter au tableau"
J'imagine que c'est une erreur stupide que j'ai laissé
passer, mais je ne vois pas (plus)...
J'ai essayé de redimenssionner le tableau sur Form2,
j'ai essayé de copier les éléments du tableau un par un,
sans succès.
Merci pour tout
RV
Avatar
Vincent Guichard
RV> à ce niveau là (MonTableau2() =), j'ai l'erreur suivante :
"Impossible d'affecter au tableau"
J'imagine que c'est une erreur stupide que j'ai laissé
passer, mais je ne vois pas (plus)...
J'ai essayé de redimenssionner le tableau sur Form2,
j'ai essayé de copier les éléments du tableau un par un,
sans succès.
Merci pour tout
RV



Erreur de typo de la part de Pascal, je pense...

Supprime les "()" après MonTableau2

Vincent Guichard
Avatar
RV
Pascal,
En fait, avec tous les tests effectués, j'avais oublié ()
dans la déclaration de la propriété. Corrigé.
Mais une erreur persiste quand même, qui sera peut-être
plus explicite : "Erreur d'execution '9': indice en dehors
de la plage"
En fait, quand je place mon curseur sur la ligne vTableau2
()=Tableau(), j'ai <vTableau2 = Nothing>
Visiblement, ca ne s'est pas copié...
Comme le suggère Vincent Guichard, supprimer les
parenthèses ne résoud pas l'erreur.
Ne faut-il pas copier les éléments un par un et/ou
redimenssionner la propriété tableau ?
Merci
RV

-----Message d'origine-----
Re RV,

Bizard. J'ai pourtant testé avant de poster et cela


fonctionnait correctement.

L'erreur "Impossible d'affecter au tabeau" ne me dit rien


(j'ai une version anglaise).
Aurais-tu le N° d'erreur ? As-tu-bien recopié ?

Pascal B.


Avatar
Pascal B.
Re RV,

Bizard. J'ai pourtant testé avant de poster et cela fonctionnait correctement.

L'erreur "Impossible d'affecter au tabeau" ne me dit rien (j'ai une version anglaise).
Aurais-tu le N° d'erreur ? As-tu-bien recopié ?

Pascal B.


"RV" wrote in message news:1d2e701c453a6$59c9cb10$
Re-salut,

Mais pour répondre à ta question, voici la solution:

'*****FORM 1
'Bien regarder la syntaxe
'Remplacer "Public Property" par "Friend Property"
'ajouter () à "As tMonType" pour retourner un tableau et
'supprimer le () à "Tableau =".

Dim MonTableau1() As tMonType

Friend Property Get Tableau() As tMonType()
Tableau = MonTableau1()
End Property

'*****FORM 2
Dim MonTableau2() As tMonType

Private Sub Form_Load()
'Copie directement le tableau de la Form1 à la Form2!
MonTableau2() = Form1.Tableau()
End Sub



à ce niveau là (MonTableau2() =), j'ai l'erreur suivante :
"Impossible d'affecter au tableau"
J'imagine que c'est une erreur stupide que j'ai laissé
passer, mais je ne vois pas (plus)...
J'ai essayé de redimenssionner le tableau sur Form2,
j'ai essayé de copier les éléments du tableau un par un,
sans succès.
Merci pour tout
RV