Utilisation de Ubound avec un tableau dynamiqueRésolu

Question

Salut,

J'utilise le code classique suivant :

For i = 1 to Ubound (tableau)
    ...
next i

J'ai une erreur (normal) si le tableau est dynamique et qu'il n'a pas été dimensionné.

Quelle commande permet de savoir si un tableau dynamique a été dimensionné ?

Merci

cs_rt15 · Accepted Answer

Salut,


Perso je fais un redim tableau(0 to 0) pour l'intialiser (ou le vider).


Et je fais comme toi, je fais partir mes vrai données à partir de
l'indice 1. Comme ça, avec un For i = 1 to Ubound (tableau) sur un
tableau vide, on entre pas dans la boucle vu que ça fait For i = 1 to 0.

matteli · Answer

Ok, j'avais bien pensé à ça mais j'espérais ne pas avoir besoin de déclarer la dimension du tableau quand il n'était pas nécessaire.

Merci

PCPT · Answer

salut,
pas obligé, tu peux tester :
http://www.codyx.org/snippet_savoir-si-tableau-existe-dimension_231.aspx

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Renfield · Answer

Erase MonTableau 

pour le vider....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_rt15 · Answer

Woa


Heu... quesaco ?


C'est bien encore du code d'admin ça...


On peut avoir une petite explication sur le :

IsArrayNull = ((
Not (Not aArray)) = 0) 

svp ?

Renfield · Answer

Erase MonTableau 
   pour remplacer
Redim MonTableau(0 to 0) 

pas d'explication, c'est une sorte de faille de VB, je ne pense pas qu'il y ai une explication logique au phénomène.

Renfield
Admin CodeS-SourceS- MVP Visual Basic

PCPT · Answer

dans le fonctionnement un peu plus détaillé, çà fait appel au pointeur de la dimention lbound (si elle existe)
comme avec VarPtrArray en fait

je saurai pas trop t'en dire plus...
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Gobillot · Answer

je ne pense pas que ce soit une faille de VB
seulement une technique trouvée par moi, je la revendique
retourne le même pointeur que VarPtrArray

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
    
    If Not (Not Tableau) = False Then
       MsgBox "vide"
       End If
       
    ReDim Tableau(10)
    
    If Not (Not Tableau) = True Then
       MsgBox "non vide"
       End If
    
    Pointer = Not (Not Tableau)
    MsgBox Pointer
    
    PointerToPointer = VarPtrArray(Tableau)
    Call CopyMemory(PointerToSafeArray, ByVal PointerToPointer, 4&)
    MsgBox PointerToSafeArray
        

Daniel

PCPT · Answer

"faille VB", Renfield n'as pas dû lire ma réponse (je suppose)

quand au snippet, j'avais lu la réponse sur le forum (sans doute de toi en effet) il y a un moment.
j'ai encore le fichier.txt qui traine, je cite les sources, désolé pour les réponses en forum, on s'en sort plus sinon....

au moins c'est clarifié et matteli a 3 méthodes ;)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Gobillot · Answer

attention toutefois, ça peut parfois générer une erreur bizarre (expression trop complexe)
essayer dans le lien ci-dessous d'enlever le List1.Clear ou d'enlever le  If Not ( Not d) Then
s'efface aussi par Me Refresh  (pourquoi ?)
http://www.codyx.org/snippet_obtenir-toutes-dates-valides-comprises-entre-dates_128.aspx
Daniel

PCPT · Answer

c'est la listbox qui n'est pas contente, elle préfère rester à l'abris (invisible)

     If Not (Not d) Then
        List1.Visible = False
        For i = 0 To UBound(d)
            List1.AddItem CStr(d(i)) 'avec ou sans cstr
        Next i
        List1.Visible = True
    End If

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Renfield · Answer

quand je parle de faille, je veux dire qu'en fait, y'a pas de raison pour que l'on ne puisse faire un Not sur un tableau (dejà) alors pourquoi deux Not l'un après l'autre nous sorte le pData du tableau...

y'a une raison physique, bien entendu !

mais c'est conceptuellement non désiré, je pense ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_rt15 · Answer

Bah merci tout le monde pour ce début d'explication.


N'empèche que not tableau qui renvoie la négation de l'adresse du
tableau... C'est quand même original. Z'auraient balancer une erreur à
la compile que s'aurait été plus dans l'esprit de VB je trouve.

Gobillot · Answer

effectivement avec le List1.Visible ça marche mais pourquoi ?

en fait Tableau contient le pointeur (en Long) mais on ne peut pas l'avoir directement (type mismatch)
alors que Not Tableau marche (VB est trompé)
il faut bien rajouter un deuxième Not pour l'avoir direct
mais c'est pas obligaoire, seulement plus pratique:  
Not Tableau donne -1 si Tableau vide
le Not -1 donne 0 donc False.

Daniel

cs_rt15 · Answer

mmm Quand on fait un redim, la borne inférieur, c'est pas 1 par défaut ?


For i = 1 To UBound(d)

Gobillot · Answer

non c'est zéro par défaut
sauf si t'as mis Option Base 1 au début
le mieux c'est d'utiliser Lbound:
 For i = Lbound(d) To UBound(d)

Daniel

Gobillot · Answer

en fait c'est pas vraiment vrai,
tu peux très bien faire Redim par défaut à zéro (pour Lbound) et l'utiliser à partir de 1
c'est que je fais en général
ce qui permet d'utiliser le zéro pour autre, par l'exemple tester si le tableau est vide

    Dim Tableau()          As Integer
    
    ReDim Tableau(0) 'tout de suite
    
    If UBound(Tableau) = 0 Then
       MsgBox "vide"
       End If

    - - - - - - - - - - - - - - -
    
    ReDim Tableau(10)
    
    If UBound(Tableau) > 0 Then
       MsgBox "non vide"
       End If

Daniel

cs_rt15 · Answer

Milles excuses, j'aurais dûe commencer par vérifier...


La technique de ton dernier post est celle de mon premier. Sauf que moi je met des To pour être sûre de où ça commence.


Par contre j'aimerais bien trouvé le temps de le passer au désassembleur le petit code qui plante...

Gobillot · Answer

ah oui c'est vrai j'avais pas vu, de même milles excuses
on ne peut pas utiliser le tableau quand il n'est pas initialisé, le pointeur est à zéro
et il n'y a pas de SafeArray, donc pas de Lbound, Ubound, etc ... donc plantage
il y a que le Not qui marche (à part le Redim, Erase ou ... je sais pas)

PS: on peut trés bien ne pas mettre de Dim et l'initialiser au Redim
      le Dim ne sert qu'à lui donner un type, ce qui peut être fait dans le Redim
      Redim Tableau(10) As Long

Daniel

Gobillot · Answer

mais notre ami ne veut de Redim initial
il peut aussi capter l'erreur générer et faire ce qu'il faut dans le cas de tableau vide.

    Dim i   As Long
    Dim U As Long

    On Error Resume Next
    U = UBound(Tableau)
    If Err.Number Then
       MsgBox Err.Description
       Exit Sub
       End If
    On Error GoTo 0   'c'est préférable

'   ici la suite du code
    For i = 1 To U
        MsgBox i
        Next

Daniel

Utilisation de Ubound avec un tableau dynamique

26 réponses

Votre réponse