Discussion :

[cati_78]

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 :

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

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.

[JackOuYA]

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 ?

[cati_78]

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.

[Maxence HUBICHE]

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

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
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 :

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

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 :

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

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

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

[Maxence HUBICHE]

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 :

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

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 :

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

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 :

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

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

[cati_78]

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 ?

[Maxence HUBICHE]

Tu peux montrer ton code ?

[cati_78]

Le voici :

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
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

[Maxence HUBICHE]

hello !

Déjà, cette ligne là

Code :

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

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)

[cati_78]

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.

[JackOuYA]

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...

[pgz]

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 :

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

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 :

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

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 :

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

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

[ucfoutu]

Bonjour,

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

Code :

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

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

[cati_78]

Merci à tous. Le code fonctionne.