Discussion :

[totoche]

Comment passer en parametre d'une fonction les données d'un type structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Type UnIndividu
            Nom As String
            Prenom As String
            Option_Cout As Currency
            Option_Ir As Single
end Type
Public Organisme1(1 To nbLigne) As UnIndividu
Public Organisme2(1 To nbLigne) As UnIndividu
______________________________________________
'remplissage
While Not Resultat.EOF
Organisme1(i).Nom= Resultat("Nom")
.......
Wend
call ecritDansFichierXLS(????) 'je veux passer a ma fonction le contenu implémenté de ma structure.
______________________________________________
Function ecritDansFichierXLS(ByVal MaStructure as?????) as string

Merci de votre aide

[Invité]

Bonjour

As-tu essayé : ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Function ecritDansFichierXLS(ByVal MaStructure as UnIndividu) as string

Starec

[totoche]

ok & merci
si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Call ecritXLS(Organisme1(1 to nbLigne ))
________________________________________
 
Function ecritXLS(ByRef Structure As UnIndividu) as string
....

J'ai l'erreur de compil a cause du To

ps Vb oblige d'utiliser ByRef pour un type défini par l'utilisateur, comme pour un tableau
merci de ton aide

[AdHoc]

bonjour,

J'ai l'erreur de compil a cause du To

Dans un argument de procedure/fonction, il me semble que l'on passe soit un tableau, soit un élément du tableau (ce qui est ton cas, vu la déclaration de la fonction), pas une déclaration.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call ecritXLS(Organisme1(1))
Call ecritTousXLS(Organisme1())

Un conseil: dans outil, options, editeur, coche "la déclaration des variable obligatoire", ça aide.

[zazaraignée]

Salut

tu dois passer une valeur ou une variable du type personnalisé. Dans ton cas, si j'ai bien compris, c'est tout le tableau que tu veux passer en paramètre. Ta fonction doit donc avoir un tableau comme paramètre. Je ne comprends pas le type de retour As String. Si tu utilise l'instruction Call, ça ne marchera pas. Le programme attend une valeur de retour. Si ta fonction ne retourne pas de valeur, c'est donc une procédure (Sub).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub ecritXLS(ByRef Structure() As UnIndividu) 'sans le As String

[totoche]

Merci @ tous en appliquant vos recommandation cela fonctionne

Call ecritXLS(Organismse1())
__________________________

Sub ecritXLS(ByRef Structure() As UnIndividu

Une procédure plutôt qu'une fonction, je cherche juste a écrire les données contenu de mon type structure dans un fichier excel

Merci ZAZA