Discussion :

[letienne]

Bonjour le formum,

j'ai un problème tout bête je pense mais je ne trouve rien sur le sujet.
Suite à une commande Erase d'un tableau dynamique de type Variant à 2 dimensions, le type de mon tableau devient variant/variant() et pas variant/Empty.
Le problème c'est que je n'arrive pas à savoir ensuite si le tableau est vide :
isEmpty renvoie false
Ubound renvoie "incompatibilité de types"
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
...
If IsEmpty(tEnregistrements) then
    tEnregistrements = tEnregistrement
Else
    tEnregistrements = MergeTableaux(tEnregistrements, tEnregistrement) 'fonction de jonction de tableaux qui plante suite à Erase (elle utilise UBound)
End if
If UBound(tEnregistrements, 1) >= 50000 then 'Délestage mémoire
    sh.Cells(Rows.Count, 1).End(xlUp).Resize(UBound(tEnregistrements, 1),Ubound(tEnregistrements, 2)) = tEnregistrements
    Erase tEnregistrements
    ThisWorkbook.Save
End if
...

Merci !

[cerede2000]

Bonjour à toi

Code :

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

If Len(Join(tEnregistrements, "")) = 0 Then MsgBox "tEnregistrements est vide"

[letienne]

ah yes merci !
Je savais qu'il y avait un truc simple

[patricktoulon]

Bonjour
oui tu peut aussi tester le nombre d'item

Code :

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

iff ubound(tablo)=0 then

[cerede2000]

@Patricktoulon : Hé non justement.....
Comme indiqué dans le post de départ :

Ubound renvoie "incompatibilité de types"

[Marc-L]

Bonjour, bonjour !

cerede2000, ta fonction déclenche une erreur avec une variable tableau à deux dimensions !

letienne, voici deux autres méthodes :

• soit via une classique fonction :

Code :

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

1
2
3
4
5
Function IsArrayEmpty(V) As Boolean
         On Error Resume Next
                    U = UBound(V)
         IsArrayEmpty = U = "" Or U < 0
End Function

• soit en affectant directement (ou après l'Erase si vraiment nécessaire) une matrice vide : Variable = Split("") …

Donc là si UBound(Variable) < 0 alors la matrice est vide, cqfd !

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …