VBA: Ajout de valeurs dans un vecteur (dimension non connue)

[orianne40]

Bonjour!

J'essaye de remplir un vecteur dans une boucle en le redimensionnant et en ajoutant des valeurs au fur et à mesure.
voila mon bout de code :

Dim Essai As Dérive
Dim NbDonnées5 As Integer
NbDonnées5 = 0

For i = 1 To NbRep

NbDonnées5 = NbDonnées5 + UBound(Rep(i).DonnéesDérive5)
ReDim Preserve Essai.DonnéesValid5(NbDonnées5)
Essai.DonnéesValid5 = Essai.DonnéesValid5 + Rep(i).DonnéesDérive5

Next

ce que j'ai mis en gras ne fonctionne naturellement pas mais est ce que quelqu'un connaitrait une fonction qui permettrait de remplir mon vecteur?

je sais que je peut réaliser une inscription temporaire dans une feuille et affecter dans un vecteur ensuite ou bien faire une boucle pour ajouter les données supplémentaires mais c'etait pour savoir si une solution plus simple existait.

merci pour votre aide!

orianne

 

[tototiti2008]

Re : VBA: Ajout de valeurs dans un vecteur (dimension non connue)

Bonjour orianne40,

manifestement tu as déclaré un type personnalisé Dérive, dont on ne connait rien...
d'autre part ton code fait référence à Rep(i).DonnéesDérive5 et on ne sait pas ce qu'est Rep (pas déclaré)...
Bref, je crois que l'on manque d'éléments pour te répondre...

 

[orianne40]

Re : VBA: Ajout de valeurs dans un vecteur (dimension non connue)

oui, en fait ma macro est plutot... chargée je dirai
du coup c'est un peu compliqué à expliquer

j'ai défini un type dérive et un type répétition comme suit :


Option Explicit
Public Type Dérive
MoyenneDérive As Single
EcartTypeDérive As Single
DonnéesValid5() As Single
End Type

Public Type Répétition
MoyVitVent As Single
MoyDirVent As Single
ValidMétéo As String
DonnéesDérive5() As Single
End Type

j'ai aussi Rep(NbRep) As Répétition

est ce qu'il faut d'autres informations pour que ce soit plus compréhensible?