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

matteli · Answer

Ok merci pour vos réponses, je vais utiliser la méthode de PCPT.

Mais il fallait savoir que le Not(tab) retournais l'adresse du tableau.

matteli · Answer

Ouh là, quand j'utilise la méthode de PCPT, j'ai une erreur "Expression trop complexe" qui apparait à un autre endroit du programme qui n'a rien à voir.

Je précise que j'utilise cette méthode pour un type perso :
                If (Not (Not (Fenetre(i).Onglet(j).Etiquette)) 0) False Then
                    For k = 1 To UBound(Fenetre(i).Onglet(j).Etiquette)
                        AfficheLabel Fenetre(i).Onglet(j).Etiquette(k).Label, i
                    Next k
                End If

L'erreur arrive sur un : 
scale.x=scaling_image 
qui n'a rien à voir avec la méthode ci-dessus.

Les pointeurs ont du faire une cochonnerie.

matteli · Answer

Tout compte fait je vais utiliser la méthode de Gobillot adapté à ma façon.
Cet exemple fonctionne si dans la boucle, il n'y a que des lignes contenant une référence à mon tableau non dimensionné.

On error resume next
for i = 1 to ubound(tab)
    fonction tab(i)
next i
On error goto 0

matteli · Answer

Pffff, j'ai l'impression que dans une même routine, il ne peut y avoir 2 fois :
On error goto 10

A la première erreur, il va bien à 10 mais à la 2ème, il y a erreur.

Décidement, c'est un peu compliqué.

Je crois que je vais revenir à la méthode du début avec une déclaration obligatoire à partir de 0 et une utilisation à partir de 1. Ca me parait la méthode la plus propre.

Gobillot · Answer

oui c'est vrai, j'avais déjà que l'erreur pouvait revenir n'importe où
on peut la supprimer en utilisant une instruction du genre Clear ou Refresh (juste après et pas avant)
à utiliser avec parcimonie ???

pour ta gestion d'erreur, il faut fair un Resume sinon le gestionnaire d'erreur est toujours en cours
avec Resume Next le Resume est déjà fait et c'est plus simple
attention aux boucles:

     On Error GoTo 30
     Error 10
    
10  On Error GoTo 40
      Error 11
    
20  MsgBox "plus d'erreur " & Err.Number
      Exit Sub
    
30  MsgBox Err.Number
      Resume 10
    
40  MsgBox Err.Number
      Resume 20

Daniel

cs_rt15 · Answer

Concernant le not not tableau qui semble avoir des effets de bords...


Il semblerait que les erreurs se produisent en débogage dans l'IDE,
quand on compile vers du pseudo code... mais pas quand on compile vers
du natif.


Si on désassemble le code natif :


mov eax, dword ptr [ebp - 20]

add esp, 14

test eax, eax

je ...


Une petite remarque, si on met un entier à la place du tableau, et qu'on
l'affecte en dur dans le code, le compilo ne compile pas le if. Du
grand art. On se croirait en C. Si on l'affecte via une InputBox par
exemple, on tombe là dessus :


mov eax, dword ptr [ebp - 1C]


add esp, 14


cmp eax, edi


je ...


Sachant qu'il y a zéro dans edi à ce moment là.


Bref, le mystère reste entier.

Utilisation de Ubound avec un tableau dynamique

26 réponses

Votre réponse

Discussions similaires