Valider l’existence d’une variable de type tableau dynamique

Bonjour

Le sujet à surement été expliqué. Je recherche comment valider l’existence et l'utilisation d’une variable de type tableau.

Je m’explique.

Lié à la procédure clic d’un bouton ‘BTN_Save’ se trouvant sur un formulaire, le code VBA effectue plusieurs validations et entre autre il utilise au besoin, une variable de type Tableau dynamique ‘chainTemoinMGajout1’, qu’il garnit (toujours au besoin) de certaines informations.

Code:

---

1 2 3 4 5 6 7

ReDim chainTemoinMGajout1(rec.RecordCount - 1) Do While rec.EOF = False '2em affectation de la valeur dans la portion du tableau chainTemoinMGajout1(rec.AbsolutePosition) = rec!MEG_TEXT rec.MoveNext Loop

---

Hors maintenant comment faire pour valider que cette variable a bel et bien été utilisé
Contrairement à une variable standard où il est facile par la fonction 'Len'

Code:

---

1 2 3 4

If len(mavariable) > 0 then Beep End if

---

Il y à surement une façon de faire ?

Espérant avoir été suffisamment claire dans mes explications

Merci à l’avance de l’intérêt porté.

Bonjour,

Code:

---

1 2	msgbox uBound(MaVariable)

---

Citation:

---

Envoyé par pc75

Bonjour,

Code:

---

1 2	msgbox uBound(MaVariable)

---

---

Citation:

---

Merci pc75 de la rapidité et de l'intérêt porté.

Avec respect, la solution proposée ne fonctionne pas.

Code:

---

debug.print UBound(chainTemoinMGajout1)

---

Il provoque une erreur d'exécution '9'
L'indice n'appartient pas à la sélection !!

Je suis sous l'impression que si le tableau n'a jamais été
innitialisé (il n'existe pas) qu'il est impossible de valider ses valeurs Ubound ou LBound.

croyez vous qu'il existe, en VBA, une fonction qui confirme l'existence ...
genre

Code:

---

if exist (montableaudynamique) = true then

---

---

qu'en pensez vous ?

Bonsoir le forum.
A mon avis, le problème c'est qu'à la fermeture du recordset ,le tableau ne conserve pas ses valeurs . Il faut utiliser Redim Preserve . Mais ce n'est pas simple
par exemple:

Code:

---

1 2 3 4 5 6 7

Dim chainTemoinMGajout1() As Variant Do While rec.EOF = False   ReDim Preserve chainTemoinMGajout1(rec.RecordCount, 2) 'tableau x lignes, 2 colonnes chainTemoinMGajout1(rec.AbsolutePosition, 1) = rec!MEG_TEXT rec.MoveNext Loop

---

Cdlt

Bon pour clore,

après avoir chercher sur le web, faute de solution, j'ai contourné le problème avec l'implantation et l'utilisation d'une variable de type boolen innitialisées à false qui lors de l'utlilisation de mon tableau dynamique, prend la valeur true.

Par la suite un peu plus loin dans le code je valide la valeur de ma variable booleen et effectue du code en consequence.

Merci tout de même pour vos réponses

dossier pratiquement résolu ! ;)