Comment savoir si un tableau dynamique est dimensionné ?Résolu

Question

Salut &#224; tous !  

Je suis en plein d&#233;veloppement, et l&#224;, je suis confront&#233; &#224; un "pseudo" probl&#232;me on va dire. Je sais comment le contourner, mais si je pouvais &#233;viter de le contourner et plut&#244;t de le solutionner, ce serait pas mal.  

Voil&#224;... Je cr&#233;e 4 tableaux dynamiques. Avec une BDD, je remplis ces tableaux en fonction d'un SELECT CASE. A chaque fois que je remplis un tableau, je fais un REDIM PRESERVE.

Une fois ces remplissages faits, je fais d'autres traitements sur chacun de ces 4 tableaux. Vu que le remplissage pr&#233;c&#233;dent se fait par un SELECT CASE, certains de ces tableaux peuvent ne pas &#234;tre remplis, et donc de ce fait, ne pas &#234;tre dimensionn&#233;... Alors forc&#233;ment, si je fais un traitement sur un tableau qui finalement est d&#233;clar&#233; mais qui n'existe pas, &#231;a part en erreur...

Actuellement, pour contourner le probl&#232;me, je fais par d&#233;faut un DIM de 1 &#233;lement pour chacun de ces tableaux, et si un tableau(0) est &#233;gal &#224; NULL (ce sont des tableaux de Integer), je sais que mon tableau n'existe pas...

Donc pour abr&#233;ger (LOL), je voudrais savoir s'il existe une fonction permettant de dire si un tableau d&#233;clar&#233; dynamiquement a &#233;t&#233; dimensionn&#233; ou pas. Ce serait plus propre. Maintenant, s'il n'y a pas de solution, tant pis, je resterai comme &#231;a. Mais je trouve que &#231;a fait un peu poporc. J'avais choisi les tableaux dynamiques pour justement ne pas prendre de place quand j'en avais pas besoin.

Merci &#224; vous tous !!

PCPT · Answer

un solution coml&#232;te, comme tu l'esp&#232;res, pas &#224; ma connaissance.
ta solution 'poporc" ne l'est pas tant que &#231;&#224;, et &#224; le m&#233;rite d'&#234;tre rapide.
si tu veux une version "plus officielle", &#231;&#224; serait de faire une gestion d'erreur

Dim Montablo1() as String, Montablo2() as String, Montablo3() as String, Montablo4() as String
Dim WhichErr as String
Dim Temp as Integer

On Error Goto ERRTABLEAU
WhichErr="MonTablo1"
Temp = Ubound(MonTablo1)

WhichErr="MonTablo2"
Temp = Ubound(MonTablo2)

WhichErr="MonTablo3"
Temp = Ubound(MonTablo3)

WhichErr="MonTablo4"
Temp = Ubound(MonTablo4)

On Error Goto 0 'fin de gestion d'erreur
Temp=""
MsgBox "Les 4 tableaux sont OK", 32, "***"
Exit Sub

ERRTABLEAU : 
MsgBox "Une erreur est survenue sur " & chr(34) & WichErr & chr(34), 32, "***"
Exit Sub

l&#224; tu as une gestion propre. &#224; toi de voir l'utilit&#233;

PCPT

PCPT · Answer

c'&#233;tait WichErr que je voulais vider. &#231;&#224; peut te servir &#224; ne pas faire d'Exit Sub, et de v&#233;rifier en derni&#232;re ligne
If LenB(WhichErr)=0 Then exit Sub

PCPT

Gobillot · Answer

Private Sub Command1_Click()

    Dim Tableau() As Integer

    

    If Not (Not Tableau) = False Then

       MsgBox "vide"

       End If

       

    ReDim Tableau(10)

    

    If Not (Not Tableau) = True Then

       MsgBox "non vide"

       End If

       

End Sub


Daniel

PCPT · Answer

bien bien bien... en effet
j'la connaissais pas celle l&#224; ;)
PCPT

Gobillot · Answer

c'est une astuce pour trouver le pointeur de la SafaArray,

&#231;a &#233;vite de passer par les API







Private Type SAFEARRAYBOUND

  cElements As Long

  lLbound As Long

End Type



Private Type SAFEARRAY1D

  cDims As Integer

  fFeatures As Integer

  cbElements As Long

  cLocks As Long

  pvData As Long

  Bounds(0 To 0) As SAFEARRAYBOUND

End Type



Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)



Private Sub Command1_Click()

    Dim
SafeArray            
   As SAFEARRAY1D

    Dim PointerToPointer      As Long

    Dim PointerToSafeArray As Long

    Dim Pointer              As Long

    Dim Tableau()          As Integer

       

    ReDim Tableau(10)



    Pointer = Not (Not Tableau)

    MsgBox Pointer

    

    PointerToPointer = VarPtrArray(Tableau)

    Call CopyMemory(PointerToSafeArray, ByVal PointerToPointer, 4&)

    MsgBox PointerToSafeArray

       

End Sub


Daniel

cs_CanisLupus · Answer

Salut,

Bien vu Daniel !

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

DragonicFlash · Answer

Bonsoir !!  

Merci &#224; tous pour vos r&#233;ponses, c'est super sympa. Et sp&#233;cial thank &#224; Gobillot pour ce code "tout b&#234;te" qui permet de faire ce que j'attendais. Je faisais "not tableau" qui ne marchait pas, mais effectivement, "not (not tableau)", &#231;a passe !  

Encore merci.

Comment savoir si un tableau dynamique est dimensionné ?

7 réponses

Discussions similaires