Discussion :

[draco951]

Bonjour,

J'ai un type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Public Type DonneeMontage
        nId As Integer
        nDo As Long
    End Type

Comment puis je faire pour tester si ce n'est pas égale à null ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
    Dim ListVehTram() As DonneeMontage
 
    If Not ListVehTram Is Nothing Then
 
    end if
end sub

Il me lance une erreur : Type incompatible.
J'ai essayer quelques variantes, mais rien n'y fait.
Auriez-vous une idée ?

[Jean-Marie Grave]

Bonjour draco951.

L'erreur renvoyée est due au fait qu'une instance d'un type n'est pas un objet au sens de Vb6. De la sorte, Is Nothing ne s'applique pas à une instance de type. Vous pourriez peut-être utiliser la fonction IsNull de VBA. Mais je vous propose plutôt le petit test suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
Dim Toto As DonneeMontage
With Toto
    MsgBox CStr(.nId)
    MsgBox CStr(.nDo)
End With
End Sub

Question subsidiaire : pourquoi ne nommez-vous "DonnéeMontage" votre type ? Ce serait plus lisible !

Cordialement.

[draco951]

Bonjour Jean-Marie Grave,

IsNull ne fonctionne malheureusement pas, j'ai le message d'erreur suivant :

Erreur de compilation :

Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive

Je ne sais pas si vous avez remarquer, mais j'ai déclaré un tableau de "DonneeMontage"
Donc, je ne peux pas faire le msgbox.
Il faut donc que je test s'il contient des éléments, mais quand je lance en débug, dans les espions, il me met que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListVehTram() = nothing

Ce qui est logique puisque je n'ai pas redimensionné mon tableau.
Je ne vois pas avec quoi je pourrais tester autre que le "nothing" ou "isnull"
Et le "size" ou "count" ou "lenght" ne fonctionne pas non plus car

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListVehTram() = nothing

Auriez-vous une autre idée ?


En ce qui concerne la question subsidiaire, je ne suis pas sur de l'avoir comprise.



EDIT : j'ai tester avec un seul élément, les test fonctionne correctement, mais comment dois-je procéder pour un tableau ?

[Jean-Marie Grave]

Bonsoir draco951.

Effectivement, je n'avais pas remarqué que vous aviez déclaré un tableau. Veuillez m'excuser. Il vous faut donc faire une boucle parcourant les termes de ce tableau, et pour chacun d'eux vérifier que les deux champs ne sont pas "null", par exemple par la fonction IsNull, en prenant garde à la syntaxe.
D'autre part, pour la question subsidiaire, je voulais dire que DonnéeMontage, avec un accent aigu, est plus lisible que DonneeMontage.

Bon courage.

[DAUDET78]

je voulais dire que DonnéeMontage, avec un accent aigu, est plus lisible que DonneeMontage.

C'est vrai . Mais on risque, avec des logiciels ponduent par des AngloSaxons, d'avoir des erreurs incompréhensibles de compilation .... donc , à éviter !

[draco951]

Bonsoir draco951.

Effectivement, je n'avais pas remarqué que vous aviez déclaré un tableau. Veuillez m'excuser. Il vous faut donc faire une boucle parcourant les termes de ce tableau, et pour chacun d'eux vérifier que les deux champs ne sont pas "null", par exemple par la fonction IsNull, en prenant garde à la syntaxe.
D'autre part, pour la question subsidiaire, je voulais dire que DonnéeMontage, avec un accent aigu, est plus lisible que DonneeMontage.

Bon courage.

Je ne peux même pas parcourir le tableau, "nId" et "NDo" n'existent pas, car

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListVehTram() = nothing

Ce qu'il faut que je test, c'est si "ListVehTram" est différent de nothing.

Et je rejoint DAUDET78, les accents sur variable sont à éviter absolument !

[draco951]

J'ai trouvé une fonction qui fonctionne parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function IsDonneeMontageInitialized(ByRef arr() As DonneeMontage) As Boolean
 
  Dim rv As Long
 
  On Error Resume Next
 
  rv = UBound(arr)
  IsDonneeMontageInitialized = (Err.Number = 0)
 
End Function

qui provient de la : http://stackoverflow.com/questions/1...ialized-in-vb6

[DarkVader]

Bonjour,
Quel rapport avec la question initiale ?

Bonjour,

J'ai un type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Public Type DonneeMontage
        nId As Integer
        nDo As Long
    End Type

Comment puis je faire pour tester si ce n'est pas égale à null ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
    Dim ListVehTram() As DonneeMontage
 
    If Not ListVehTram Is Nothing Then
 
    end if
end sub

Il me lance une erreur : Type incompatible.
J'ai essayer quelques variantes, mais rien n'y fait.
Auriez-vous une idée ?

[draco951]

La question initiale était :

Comment faire pour tester un tableau de Type(structure), voir s'il était déjà allouer ou non.

[DarkVader]

C'était donc une question Jeopardy - voilà une bonne idée pour relancer l'activité du site lol

[draco951]

C'était donc une question Jeopardy - voilà une bonne idée pour relancer l'activité du site lol

Je ne comprend pas votre réaction.
Ma requête n'était pas clair ?

Au début, je demande comment faire pour tester une tableau d'un certain type, à la fin, je répond avec une fonction qui me permet de le savoir.

Je trouve ca assé explicite, et je n'ai pas l'impression que les 2 personnes qui sont intervenu ne l'ai pas comprise.

Serait-ce une réaction ayant pour but de me faire poster ?
Pas mauvaise non plus l'idée pour relancer l'activité

[ProgElecT]

J'ai bien vue que la discussion est marqué
Pour autant draco951, tu n'indiques pas la façon d'utiliser la formule.

Je trouve ça assez explicite, et je n'ai pas l'impression que les 2 personnes qui sont intervenu ne l'ai pas comprise.

Par contre, parmi les 156 affichages de ta discussion, un certains nombres attendaient sûrement de voire ou tu voulais en venir


Bref, pour moi la formule renvoie Empty = valeur de variable initialisée
Avec Not LaFormule et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
   Private Type DonneeMontage
        nId As Integer
        nDo As Long
    End Type
Private Sub Form_Load()
Dim ListVehTram() As DonneeMontage
Dim Msg$
'Empty = valeur de variable non initialisée
 
Msg$ = "Avec ListVehTram non initialisée" & vbNewLine & "Empty = " & Not IsDonneeMontageInitialized(ListVehTram())
 
ReDim ListVehTram(0)
Msg$ = Msg$ & vbNewLine & vbNewLine _
        & "Avec ReDim ListVehTram(0) .nDo et .nId non initialisée" & vbNewLine & "Empty = " & Not IsDonneeMontageInitialized(ListVehTram())
 
ListVehTram(0).nDo = vbNull: ListVehTram(0).nId = vbNull '1
Msg$ = Msg$ & vbNewLine & vbNewLine _
        & "Avec ReDim ListVehTram(0) .nDo et .nId initialisée à vbNull" & vbNewLine & "Empty = " & Not IsDonneeMontageInitialized(ListVehTram())
 
ListVehTram(0).nDo = 1: ListVehTram(0).nId = 2
Msg$ = Msg$ & vbNewLine & vbNewLine _
        & "Avec ReDim ListVehTram(0) .nDo et .nId initialisée" & vbNewLine & "Empty = " & Not IsDonneeMontageInitialized(ListVehTram())
 
Erase ListVehTram
Msg$ = Msg$ & vbNewLine & vbNewLine _
        & "Avec Erase ListVehTram" & vbNewLine & "Empty = " & Not IsDonneeMontageInitialized(ListVehTram())
 
Debug.Print Msg$
 
End Sub
 
Private Function IsDonneeMontageInitialized(ByRef arr() As DonneeMontage) As Boolean
 
  Dim rv As Long
 
  On Error Resume Next
 
  rv = UBound(arr)
  IsDonneeMontageInitialized = (Err.Number = 0)
 
End Function

Avec ListVehTram non initialisée
Empty = Vrai

Avec ReDim ListVehTram(0) .nDo et .nId non initialisée
Empty = Faux

Avec ReDim ListVehTram(0) .nDo et .nId initialisée à vbNull
Empty = Faux

Avec ReDim ListVehTram(0) .nDo et .nId initialisée
Empty = Faux

Avec Erase ListVehTram
Empty = Vrai

Donc la formule IsDonneeMontageInitialized ne permet pas de vérifier si .nDo et .nId sont initialisés ou Null.

Une fonction (exotique dans sa rédaction) existe ICI post 16 et 17, peut être celle-ci te sera utile aussi.

[XylonAkau]

_ Ia ora na.
_ Utilisant VB depuis 1993 (VB3, après QBasic) et ayant commis quelque trois cents projets - tous (ou presque) avec des noms de variables et de procédures contenant des voyelles accentuées ou des ç - je n'ai rencontré, en cette vingtaine d'années, aucune erreur qui leur fût imputable.
_ Que l'on choisisse d'éviter ces signes pour des raisons de portabilité, comme l'indiquait DarkVader, cela se conçoit aisément. Mais affirmer que

les accents sur variable sont à éviter absolument !

peut paraître un tantinet outrancier.
_ Bonne fin de semaine à toutes et à tous.

[draco951]

_ Ia ora na.
_ Utilisant VB depuis 1993 (VB3, après QBasic) et ayant commis quelque trois cents projets - tous (ou presque) avec des noms de variables et de procédures contenant des voyelles accentuées ou des ç - je n'ai rencontré, en cette vingtaine d'années, aucune erreur qui leur fût imputable.
_ Que l'on choisisse d'éviter ces signes pour des raisons de portabilité, comme l'indiquait DarkVader, cela se conçoit aisément. Mais affirmer que
peut paraître un tantinet outrancier.
_ Bonne fin de semaine à toutes et à tous.

Il faut savoir évoluer avec son temps :p
Je plaisante

Pendant mes études et sur tout les projets sur lesquels j'ai travaillé (je n'en ai surement pas autant que vous), on m'a toujours appris à éviter les accents sur variable. J'en ai encore discuté hier soir(je participe à des formations le soir) avec un professeur Bac+7 (ou 8 j'ai un doute maintenant) qui est manager chez goodyear qui se tiens très au courant des dernières technologie, qui me l'a vivement conseillé.


@ProgElecT

Il est vrai que j'aurais pu mettre une mise en application, mais je trouve que la fonction parle d'elle même.

Par ailleur je ne pense pas avoir demandé de tester 'nDo' ou 'nId'
Mais bien de tester mon TABLEAU DE TYPE
Vous avez surement juste lu le commentaire de 'Jean-Marie Grave'
Vous remarquerez donc que sur le tableau de type, cela fonctionne correctement, maintenant si vous avez une autre suggestion de mise en oeuvre, je suis preneur

Je vous remerçie néanmoins tous d'avoir fourni ces informations.

[iclic]

Bonjour Draco,

Malgré le résolu et en m'inspirant de

Cité par ProgElec
Une fonction (exotique dans sa rédaction) existe ICI post 16 et 17, peut être celle-ci te sera utile aussi.

et

De Draco951
Auriez-vous une autre idée ?

Voici une autre façon de tester toute simple .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
Private Type DonneeMontage
        nId As Integer
        nDo As Long
End Type
Private Sub Form_Load()
Dim ListVehTram() As DonneeMontage
'ReDim ListVehTram(0) 'pour essai avec un tableau de 1 élément
'ReDim ListVehTram(50) 'pour essai avec un tableau de 50 éléments
 
If IsDonneeMontageInitialized(Not ListVehTram, ListVehTram) = "" Then
      MsgBox ("non initialisé")
                                                Else
      MsgBox ("Valeur du Tableau = " & IsDonneeMontageInitialized(Not ListVehTram, ListVehTram))
 End If
End Sub
Private Function IsDonneeMontageInitialized(ByRef quoi, arr() As DonneeMontage) As String
    If Not quoi Then IsDonneeMontageInitialized = UBound(arr)
End Function