Discussion :

[beauseigne]

Bonjour,

Je suis des cours de VBA dans le cadre d'une formation continue. Notre prof est un peu avare d'exemple et je coince sur un TD.
Je dois remplir deux matrices de 3x3 pour les additionner puis les multiplier.

Voila ce qui est attendu, sans mettre de parametre dans la sub, je me suis balladé pour faire l'exercice, mais ce n'est pas ce qui était attendu.
Et sous cette forme, je n'arrive pas à déclarer la taille du tableau re

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub RemplirTableau(ByVal Tab1 As Integer, ByVal Tab2 As Integer)
dim i As Integer
Dim j As Integer
    For i = 1 To 3
        For j = 1 To 3
        Tab1(i, j) = 2 
       Tab2(i, j) = 3        
   Next
        Next
End Sub

Lorsque je rappelle la sub pour faire un affichage avec une autre sub, le debogueur me répond type incompatible

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim Tab1(3, 3) As Integer
Dim Tab2(3, 3) As Integer
 
Call remplirTableau(Tab1, Tab2)
 
    Debug.Print Tab1(1, 1)
End Sub

Si quelqu'un peut m'aider
merci

bonne soirée

[PPz78]

Bonsoir,

En argument de RemplirTableau Tab1 et Tab2 sont déclarés comme des entiers et pas comme des tableaux d'entier.

PPZ

[beauseigne]

[B]onjour,

merci PPz78, c'est bien là mon problème car je ne peux pas écrire

Public Sub RemplirTableau(ByVal Tab1(3,3) as integer ...)

la phrase passe en rouge et l'éditeur me signale une erreur

Bonne journée

[Arkham46]

bjr

n'indiquez pas la taille du tableau dans le paramètre :

Code :

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

1
2
 
Public Sub RemplirTableau(Tab1() As Integer, Tab2() As Integer)

[Didier Gonard]

Bonjour,

penses aussi à consulter les tutoriels et la FAQ

http://silkyroad.developpez.com/vba/tableaux/#LXIII

cordialement,

Didier

[beauseigne]

Bonsoir,

Merci beaucoup pour vos réponse Arkham46 et Ormonth, vous m'avez permis de démarrer et de résoudre le TD comme souhaité par l'enseignant.

Bonne soirée