VBA - Tester la dimension d'un tableau

  • Initiateur de la discussion Initiateur de la discussion madlolo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

madlolo

XLDnaute Junior
Bonjour,

j'ai une macro qui lit un tableau Excel, et en crée un tableau en VBA :

Code:
Dim array1() As Variant

For i = 1 To nbMaxRow
        If Cells(i, column1).Value <> "" And Cells(i, column1) > 0 Then
            If i > 1 Then
                'on ajoute une colonne
                ReDim Preserve array1(6, UBound(array1, 2) + 1)
            Else
                'tableau non initialise : on lui cree une colonne 
                ReDim array1(6, 1)
            End If

            'etc suite du traitement
        End If
    Next

    'on prend la matrice transposee 
    array1 = TransposeArray(array1)

A la fin, array1 est donc le tableau correspondant au tableau dans Excel.
Sauf que, que se passe t'il si le tableau Excel est vide ?

Et bien, array1 n'est jamais dimensionné, est donc "vide", et cela plante lorsque j'appelle la fonction "TransposeArray".

J'aimerais connaître la façon que je puisse tester que le tableau a bien été initialisé ?
J'ai essayé : "IsNull", ça ne marche pas. Idem avec "IsEmpty" ou "IsNothing" ...

Merci d'avance,

Très cordialement,
 
Re : VBA - Tester la dimension d'un tableau

Re,

Autant pour moi, jamais dimensionné, donc normal 😉

Code:
On error resume next
  'on prend la matrice transposee 
  array1 = TransposeArray(array1)
on error goto 0

A+
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
202
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
657
Retour