J'ai quelques difficultés avec le passage à une procédure de 2 variables
type "tableau" avec "paramarray".
En clair, j'ai une procédure qui crée 2 tableaux à deux dimensions
-> tab1(1 to 500, 1 to 20)
-> tab2 (1 to 20, 1 to 10)
Que je souhaite utiliser dans d'autres procédures.
L'utilisation de paramarray semble fonctionnée qu'avec un seul tableau
d'une dimension.
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
Alain CROS
Bonjour.
Tu n'as pas besoin de paramarray. Exemple :
Sub RempliTableauxPuisPasseaUtilisation() Dim Tab1(1 To 500, 1 To 20) Dim Tab2(1 To 20, 1 To 10) Dim I As Integer, J As Integer For I = 1 To 500 For J = 1 To 20 Tab1(I, J) = I + J Next J Next I For I = 1 To 20 For J = 1 To 10 Tab2(I, J) = I + J Next J Next I UtilisationDesTableaux Tab1, Tab2 End Sub
Sub UtilisationDesTableaux(Tblo1, Tblo2) MsgBox "Tblo1(30,15) = " & Tblo1(30, 15) & vbNewLine & _ "Tblo2(2,2) = " & Tblo2(2, 2) End Sub
Alain CROS.
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai quelques difficultés avec le passage à une procédure de 2 variables type "tableau" avec "paramarray". En clair, j'ai une procédure qui crée 2 tableaux à deux dimensions -> tab1(1 to 500, 1 to 20) -> tab2 (1 to 20, 1 to 10)
Que je souhaite utiliser dans d'autres procédures. L'utilisation de paramarray semble fonctionnée qu'avec un seul tableau d'une dimension.
Par avance, merci pour votre aide.
Bonjour.
Tu n'as pas besoin de paramarray.
Exemple :
Sub RempliTableauxPuisPasseaUtilisation()
Dim Tab1(1 To 500, 1 To 20)
Dim Tab2(1 To 20, 1 To 10)
Dim I As Integer, J As Integer
For I = 1 To 500
For J = 1 To 20
Tab1(I, J) = I + J
Next J
Next I
For I = 1 To 20
For J = 1 To 10
Tab2(I, J) = I + J
Next J
Next I
UtilisationDesTableaux Tab1, Tab2
End Sub
Sub UtilisationDesTableaux(Tblo1, Tblo2)
MsgBox "Tblo1(30,15) = " & Tblo1(30, 15) & vbNewLine & _
"Tblo2(2,2) = " & Tblo2(2, 2)
End Sub
Alain CROS.
"Alex" <parilus@club-internet.fr> a écrit dans le message de news: 3FB767F3.6040509@club-internet.fr...
Bonjour à tous,
J'ai quelques difficultés avec le passage à une procédure de 2 variables
type "tableau" avec "paramarray".
En clair, j'ai une procédure qui crée 2 tableaux à deux dimensions
-> tab1(1 to 500, 1 to 20)
-> tab2 (1 to 20, 1 to 10)
Que je souhaite utiliser dans d'autres procédures.
L'utilisation de paramarray semble fonctionnée qu'avec un seul tableau
d'une dimension.
Sub RempliTableauxPuisPasseaUtilisation() Dim Tab1(1 To 500, 1 To 20) Dim Tab2(1 To 20, 1 To 10) Dim I As Integer, J As Integer For I = 1 To 500 For J = 1 To 20 Tab1(I, J) = I + J Next J Next I For I = 1 To 20 For J = 1 To 10 Tab2(I, J) = I + J Next J Next I UtilisationDesTableaux Tab1, Tab2 End Sub
Sub UtilisationDesTableaux(Tblo1, Tblo2) MsgBox "Tblo1(30,15) = " & Tblo1(30, 15) & vbNewLine & _ "Tblo2(2,2) = " & Tblo2(2, 2) End Sub
Alain CROS.
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai quelques difficultés avec le passage à une procédure de 2 variables type "tableau" avec "paramarray". En clair, j'ai une procédure qui crée 2 tableaux à deux dimensions -> tab1(1 to 500, 1 to 20) -> tab2 (1 to 20, 1 to 10)
Que je souhaite utiliser dans d'autres procédures. L'utilisation de paramarray semble fonctionnée qu'avec un seul tableau d'une dimension.