passage d'un tableau en argument dans une procédure

Bonjour,

J'ai créé un tableau (de type variant) en variable globale dans un module.

A l'ouverture du classeur, je définie les valeurs de ce tableau.

Code:

---

1 2 3 4

public workbook_activate() tb_valeur(0)=1 tb_valeur(1)=10 ... affiche_tab(tb_valeur(nb)) end sub

---

Je souhaite afficher les valeurs de ce tableau dans le module via la fonction msgbox.

Je ne sais pas la syntaxe pour passer le tableau en argument dans la procédure du module principal.

public sub affiche_tab(tab_ref() as variant) ?

Merci de m'aider.

Bonjour,

Tu ne nous as pas montré la ligne de déclaration de ton tableau !

pourquoi veux-tu le passer en paramétre s'il est public, il est déjà accessible par toutes tes procédures ?

Bonjour,

Il y a une procédure dans le module qui doit faire la différence de valeurs avant et après mise à jour.

Avant mise à jour : ouverture du classeur ; les valeurs initiales d'une colonne de la feuille EXCEL sont stockées dans tb_old (10)

Après mise à jour : clic sur le bouton ; les nouvelles valeurs sont stockées dans tb_new(10)

Puis il y a une procédure qui fera tb_new(i) - tb_old(i)

Penses-tu qu'il y a une autre méthode ?

Merci pour ton aide.

Voici comment re-créer une fonction telle la fonction SOMME d'Excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function mySomme(ParamArray Valeur() As Variant) As Long Dim vTemp As Double Dim vVar As Variant Dim lVar As Long Dim rVar As Range For Each vVar In Valeur If TypeName(vVar) = "Range" Then For Each rVar In vVar.Cells If IsNumeric(rVar) Then vTemp = vTemp + rVar.Value End If Next Else For lVar = LBound(vVar) To UBound(vVar) If IsNumeric(vVar(lVar)) Then vTemp = vTemp + vVar(lVar) End If Next End If Next mySomme = vTemp End Function

---

Tu remarqueras que, dans la signature de la fonction, il est question du mot clé ParamArray ;)
Maintenant, comment appeler cette fonction ?
Directement dans la feuille de calcul, en faisant plusieurs plages... c'est la première possibilité :)
Mais, dans le code ?
Tu pourrais, par exemple, faire :

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim t(3) t(0) = 1 t(1) = 2 t(2) = 3 t(3) = 4 MsgBox mySomme(t) End Sub

---

ou encore plus simple :

Code:

---

1 2 3

Sub Test2() MsgBox mySomme(Array(1, 2, 3, 4, 5)) End Sub

---

Est-ce que cela répond à ta question ?

oups !
On est passé du passage d'argument à la méthode pour maintenir des données dans le temps !!!

Alors, une solution est effectivement ta variable publique.
Tu pourrais d'ailleurs t'occuper d'une seule variable publique !, mais à Deux dimensions.

Par exemple, tu pourrais faire

Code:

---

Public p_Data(1,10) as LeTypeQuiVaBien

---

Ainsi, pour tes données "AVANT" tu pourrais remplir tout p_Data(0) , sur le WorkBook_Open

Code:

---

1 2 3 4 5

p_Data(0,0)=1 p_Data(0,1)=22 p_Data(0,2)=125 p_Data(0,3)=215

---

Et, au moment de la validation, ou en cours de saisie, remplir p_Data(1)

Code:

---

1 2 3 4 5

p_Data(1,0)=1 p_Data(1,1)=22 p_Data(1,2)=125 p_Data(1,3)=215

---

Ensuite, il ne te resterait plus qu'à comparer p_Data(0) à p_Data(1) par une simple boucle :)

Merci d'avoir accepter de m'aider.

Je ne comprends pas pourquoi il y a une boîte de dialogue affichant un problème de compatibilité de données pour le passage d'un tableau en paramètre d'une fonction ici afficher via msgbox.

Aurais-tu une idée ?

Tu peux montrer ton code ?

Le voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Public Sub workbook_open() Sheets(1).Activate old_tb(0) = Range("C7").Value old_tb(1) = Range("C8").Value old_tb(2) = Range("C9").Value MsgBox affiche_tableau(old_tb) end sub       Public old_tb(3) As Variant ‘var declare dans module     Function affiche_tableau(ParamArray Valeur() As Variant) As String Dim i As Integer Dim line   line = "" For i = 0 To 2 line = line & Valeur(i) & Chr(13) Next i   affiche_tableau = line   End Function

---

hello !

Déjà, cette ligne là

Code:

---

1 2	Public old_tb(3) As Variant ‘var declare dans module

---

se doit d'être TOUT en haut du module. AVANT LA PREMIER PROCEDURE (dans ton exemple, le WorkBook_Open)

Bonjour,

En fait la déclaration du tableau a été faite dans le module principal, tout en haut avant la fonction et la procédure.

Quand j'exécute le programme, cela ne marche pas et c'est indiqué qu'il y a une anomalie (problème de compatibilité de type) au niveau de la ligne suivante :
line = line & Valeur(i) & Chr(13)

Je ne connais toujours pas la raison.
Merci de m'aider.

enléve ParamArray dans ta déclaration c'est inutile ici....

Vu comment tu utilise ton code tu gagnerai à supprimer tous ces variants et à te limiter à l'utilisation de tableaux de string...

Bonjour.

Je pense comme Jackouya que ici paramarray n'est pas trop bien vu.

Il me semble que :
1. Ta fonction ressemble à un simple join
2. Si tu déclares

Code:

---

Function affiche_tableau(ByVal Valeur() As Variant) As String

---

cela devrait marcher
3. avec la déclaration de fonction que tu as faite, cela devrait fonctionner si tu l'appelles ainsi

Code:

---

MsgBox affiche_tableau(old_tb(0), old_tb(1),old_tb(2))

---

4. A quoi sert de déclarer un paramètre en ParamArray si la fonction attend 3 valeur?

Code:

---

For i = 0 to 2

---

5. Si tu passes ton tableau old_tb en paramètre, il peut être une variable de portée limitée.

COrdialement,

PGZ

Bonjour,

Si j'ai bien compris ce que tu cherches, voilà un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Command1_Click() Dim letableau(2) As Integer letableau(0) = 1 letableau(1) = 8 letableau(2) = 3 MsgBox affiche_tableau(letableau()) End Sub Function affiche_tableau(letableau() As Integer) As String Dim i As Integer For i = 0 To UBound(letableau) affiche_tableau = affiche_tableau & letableau(i) & Chr(13) Next i End Function

---

Merci à tous. Le code fonctionne.