Discussion :

[informer]

Bonjour à tous

J'ai un Type tyROWTODEL déclaré dans un module et un tableau de ce type gtyRowToDel () déclaré dans le même module

Code :

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

1
2
3
4
5
6
Public Type tyROWTODEL
    Field1 As Long
    Field2 As Long
End Type
 
Public gtyRowToDel() As tyROWTODEL

Mon problème est de tester si le tableau gtyRowToDel () est vide car j'ai testé

Code :

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

1
2
3
 
If gtyRowToDel  is nothing then   ... '---------> Compile Error type mismatch
If gtyRowToDel()  is nothing then ... '---------> Compile Error type mismatch

Merci pour toute aide

[informer]

Une solution

Code :

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

1
2
3
4
5
6
Dim boundsCheck As Long
On Error Resume Next
boundsCheck = UBound(gtyRowToDel, 1)
If Err = 9 Then 
   MsgBox "not initialized"
End If

L'avantage particulièrement intéressant d'un tableau de TYPE est de pouvoir ajouter des lignes par Redim Preserve, impossible en natif pour un tableau à 2 dimensions !
Seul contrainte, le nombre de colonnes est fixe

Source ici