Tester si un tableau de variable TYPE est vide

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:

---

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:

---

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

Une solution

Code:

---

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