A voir également:
- VB
- Vb - Télécharger - Langages
- Vb audio cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb 6 - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
1 réponse
Voici un exemple :
---------------------
Private Sub Command1_Click()
Dim monTableau(1 To 10, 1 To 10)
For i = 1 To 10
For j = 1 To 10
monTableau(i, j) = i * j
Next j
Next i
Call ExempleTableau(monTableau)
'Ici la valeur est changee
MsgBox monTableau(2, 4)
End Sub
Function ExempleTableau(ByRef p_Tableau())
MsgBox p_Tableau(2, 4)
'On change une valeur...
p_Tableau(2, 4) = 999999
End Function
---------------------
Private Sub Command1_Click()
Dim monTableau(1 To 10, 1 To 10)
For i = 1 To 10
For j = 1 To 10
monTableau(i, j) = i * j
Next j
Next i
Call ExempleTableau(monTableau)
'Ici la valeur est changee
MsgBox monTableau(2, 4)
End Sub
Function ExempleTableau(ByRef p_Tableau())
MsgBox p_Tableau(2, 4)
'On change une valeur...
p_Tableau(2, 4) = 999999
End Function
