Bonjour,=20
je voudrais savoir comment d=E9tecter qu'un tableau n'est=20
pas initialis=E9. Je declare ma variable Dim tab() as string
et je voudrais savoir si le tableau est vide ou non. En=20
VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas=20
comment faire.
Si vous connaissez une m=E9thode, je vous remercie d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benoit
IsEmpty peut-être. Benoit
"Vinz" a écrit dans le message news: 149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
a+ Vinz
IsEmpty peut-être.
Benoit
"Vinz" <vcrabol@aol.com> a écrit dans le message news:
149f01c38c0f$6f5d4f10$a301280a@phx.gbl...
Bonjour,
je voudrais savoir comment détecter qu'un tableau n'est
pas initialisé. Je declare ma variable Dim tab() as string
et je voudrais savoir si le tableau est vide ou non. En
VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas
comment faire.
Si vous connaissez une méthode, je vous remercie d'avance.
"Vinz" a écrit dans le message news: 149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
a+ Vinz
Hervé
Salut Vinz, Et en testant son indice maxi avec gestion de l'erreur ? Regarde si cela te convient :
Sub Ini() Dim Tbl() As String Dim Indice As Long
'ReDim Tbl(1 To 10)
On Error Resume Next Indice = UBound(Tbl) If Err.Number = 0 Then MsgBox "Tableau initialisé !" _ & vbCrLf & "Indice maxi = " & Indice Else MsgBox "Tableau non initialisé !" End If
End Sub
Hervé.
"Vinz" a écrit dans le message news: 149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
a+ Vinz
Salut Vinz,
Et en testant son indice maxi avec gestion de l'erreur ?
Regarde si cela te convient :
Sub Ini()
Dim Tbl() As String
Dim Indice As Long
'ReDim Tbl(1 To 10)
On Error Resume Next
Indice = UBound(Tbl)
If Err.Number = 0 Then
MsgBox "Tableau initialisé !" _
& vbCrLf & "Indice maxi = " & Indice
Else
MsgBox "Tableau non initialisé !"
End If
End Sub
Hervé.
"Vinz" <vcrabol@aol.com> a écrit dans le message news:
149f01c38c0f$6f5d4f10$a301280a@phx.gbl...
Bonjour,
je voudrais savoir comment détecter qu'un tableau n'est
pas initialisé. Je declare ma variable Dim tab() as string
et je voudrais savoir si le tableau est vide ou non. En
VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas
comment faire.
Si vous connaissez une méthode, je vous remercie d'avance.
Salut Vinz, Et en testant son indice maxi avec gestion de l'erreur ? Regarde si cela te convient :
Sub Ini() Dim Tbl() As String Dim Indice As Long
'ReDim Tbl(1 To 10)
On Error Resume Next Indice = UBound(Tbl) If Err.Number = 0 Then MsgBox "Tableau initialisé !" _ & vbCrLf & "Indice maxi = " & Indice Else MsgBox "Tableau non initialisé !" End If
End Sub
Hervé.
"Vinz" a écrit dans le message news: 149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
a+ Vinz
Zoury
Salut Vinz! :O)
Tu peux capter l'erreur :
<non testé> '*** ' Module1 Option Explicit
Private Sub Main()
Dim l() As Long Debug.Print IsArrayInit(l) ' False
ReDim l(5) As Long Debug.Print IsArrayInit(l) ' True
End Sub
Private Function IsArrayInit(ByVal v As Variant) As Boolean On Error Resume Next v = UBound(v) IsArrayInit = (Err.Number <> 9 And Err.Number <> 13) End Function '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Vinz" wrote in message news:149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
a+ Vinz
Salut Vinz! :O)
Tu peux capter l'erreur :
<non testé>
'***
' Module1
Option Explicit
Private Sub Main()
Dim l() As Long
Debug.Print IsArrayInit(l) ' False
ReDim l(5) As Long
Debug.Print IsArrayInit(l) ' True
End Sub
Private Function IsArrayInit(ByVal v As Variant) As Boolean
On Error Resume Next
v = UBound(v)
IsArrayInit = (Err.Number <> 9 And Err.Number <> 13)
End Function
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Vinz" <vcrabol@aol.com> wrote in message
news:149f01c38c0f$6f5d4f10$a301280a@phx.gbl...
Bonjour,
je voudrais savoir comment détecter qu'un tableau n'est
pas initialisé. Je declare ma variable Dim tab() as string
et je voudrais savoir si le tableau est vide ou non. En
VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas
comment faire.
Si vous connaissez une méthode, je vous remercie d'avance.
Dim l() As Long Debug.Print IsArrayInit(l) ' False
ReDim l(5) As Long Debug.Print IsArrayInit(l) ' True
End Sub
Private Function IsArrayInit(ByVal v As Variant) As Boolean On Error Resume Next v = UBound(v) IsArrayInit = (Err.Number <> 9 And Err.Number <> 13) End Function '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Vinz" wrote in message news:149f01c38c0f$6f5d4f10$ Bonjour, je voudrais savoir comment détecter qu'un tableau n'est pas initialisé. Je declare ma variable Dim tab() as string et je voudrais savoir si le tableau est vide ou non. En VB.Net j'utilsais IsNtohing() mais en VB6 je ne sais pas comment faire. Si vous connaissez une méthode, je vous remercie d'avance.
