XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur

[cathodique]

Bonsoir,
Je rencontre un problème. je n'ai pas compris, merci de m'aider.
je ne pourrais pas joindre de fichier.
voici une partie du code utilisé.

For i = 1 To UBound(Tbg)
         If Tbg(i, 2) = ShFPA.Range("D8").Value Then n = n + 1
      Next i

      j = 0
      Dim TbR: ReDim TbR(1 To n, 1 To UBound(Tbg, 2))
      For i = 1 To UBound(Tbg)
         If Tbg(i, 2) = ShFPA.Range("D8").Value Then
            j = j + 1
            For k = 1 To UBound(Tbg, 2)
               TbR(j, k) = Tbg(i, k)
            Next k
         End If
      Next i

Call Quick(TbR(), LBound(TbR, 1), UBound(TbR, 1), 1, True) ''ici le plantage

J'espère que c'est suffisant pour m'expliquer le pourquoi.

En vous remerciant.

Bonne soirée

 

[vgendron]

bonjour

UBound(Tbg)==> UBound(Tbg,1) ou UBound(Tbg,2)

 

[vgendron]

t'es quand meme un comique...
tu indiques ici le plantage
Call Quick(TbR(), LBound(TbR, 1), UBound(TbR, 1), 1, True) ''ici le plantage

et le seul code que tu ne mets pas, c'est ta fonction Quick...

 

[cathodique]

Bonsoir @vgendron 😉,

Je te remercie. j'ai trouvé mon erreur.

Dim TbR: ReDim TbR(1 To n, 1 To UBound(Tbg, 2))

Il fallait que je déclare TbR en tableau c-à-d Dim TbR() et pas comme je l'avais fait.
je l'avais déclaré en variant.

Merci beaucoup.

Bonne soirée.