appel fonction tableau : incompatibilitéRésolu

Question

Bonjour
Dans mon programme VB, j'ai crée une fonction :

Function vie(ByRef T1() As Byte) As Integer  'Procédure de calcul du nombre de cellules en vie

Dim nc As Integer
Dim i As Integer
Dim j As Integer

nc = 0

'On détermine pour chaque case si il y a une cellule vivante dedans et on comptabilise toutes les cases occupées
For i = 1 To 100
    For j = 1 To 100
          If T1(i, j) = 1 Then
            nc = nc + 1
          End If
    Next
Next

vie = nc

Lorsque je fais appel à la fonction de cette manière : Lcell.Caption = vie(T1)

le message suivant apparaît : "incompatibilité de type tableau ou type défini par l'utilisateur attendu"

Je n'arrive pas à résoudre ce problème ...
J'espère que quelqu'un pourra m'aider :-)

ucfoutu · Accepted Answer

Bonjour,

T1 est un tableau dynamique
principe (exemple) de passage à une fonction :

Private Sub Command1_Click()
  Dim T1(2) As Integer
  T1(0) = 1
  T1(1) = 2
  MsgBox toto(T1)
End Sub
Function toto(ByVal T1) As Integer 'byval ou byref (comme tu veux), mais sans le typer ou en variant
 toto = T1(1)
End Function


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

couette20 · Answer

Merci !!

Appel fonction tableau : incompatibilité

2 réponses

Votre réponse

Discussions similaires