L'ajout d'un tableau dynamique en VBA

Je suis une boucle dans une plage nommée et en ajoutant un tableau en fonction de si la cellule est vide ou pas. Je ne suis pas trop familier avec les tableaux en VBA, donc peut-être que ma logique est incorrect. Le code continue d'écraser le 1er élément du tableau et il n'est jamais incrémenté. Je ne suis pas sûr de savoir pourquoi le UBound(myArray) reste toujours à 0, même après un élément a été affecté à la 1re index.

Mon code ressemble à quelque chose comme:

Dim myArray() As Double

ReDim Preserve myArray(0)

    For Each cell In [myRange]
        If cell <> "" Then
            If UBound(myArray) > 0 Then
                ReDim Preserve myArray(0 To UBound(myArray) + 1)
            End If
            myArray(UBound(myArray)) = cell.value
        End If
    Next
InformationsquelleAutor KingKong | 2015-02-23
  1. 9

    Utiliser une variable incrémentée, il ne fait aucune différence si la variable est plus grande que la ubound à la fin du code:

    Sub Test()
Dim myArray() As Double, X As Long
X = 0
ReDim Preserve myArray(X)
For Each cell In Range("Hello")
    If cell <> "" Then
        ReDim Preserve myArray(0 To X)
        myArray(X) = cell.Value
        X = X + 1
    End If
Next
End Sub
    • Pas fan de l'introduction d'une nouvelle variable, mais ce n'régler mon problème. Je vous remercie beaucoup.
    • Si vous voulez le faire sans une autre variable remarque mon commentaire sur Jeanno de la solution, il peut être ce que vous êtes après
    InformationsquelleAutor Dan Donoghue
  2. 3

    Changement If UBound(myArray) > 0 Then Si UBound(myArray) >= 0 Then qui permettra de résoudre le problème.

    Sub Test()
    Dim myArray() As Double
    ReDim Preserve myArray(0)
    For Each cell In Range("Hello")
        If cell <> "" Then
            If UBound(myArray) >= 0 Then
                myArray(UBound(myArray)) = cell.Value
                ReDim Preserve myArray(0 To UBound(myArray) + 1)
            End If
        End If
    Next
End Sub
    • Ce n'est pas ajouter une valeur à l'élément 0 du tableau: myArray(0) = 0
    • J'ai édité ma réponse, il n'est pas très élégant mais ça fonctionne
    • Le modifier maintenant entre la première valeur dans les deux premiers éléments du tableau
    • oups il a été une longue journée, fixé maintenant
    • Nous en avons tous - Ma seule critique est que le UBound sera incrémenté de après le dernier élément est entré, de sorte que vous aurez un tableau d'une taille plus grande que la plage de valeurs.
    • Aller faire un tour en mettant de l'instruction ReDim Preserve myArray(0 to UBound(myArray) - 1) juste avant le End Sub

    InformationsquelleAutor Jeanno