Type structure en param d'une fonction

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

Code:

---

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

Bonjour

As-tu essayé : ?

Code:

---

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

---

Starec

ok & merci
si je fais

Code:

---

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

bonjour,

Citation:

---

Envoyé par totoche

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:

---

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

---

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

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:

---

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

---

Merci @ tous en appliquant vos recommandation cela fonctionne

Citation:

---

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