Stockage de nombre dans tableau avec allocation dynamique de la mémoire

Question

Bonjour tout le monde,

J'ai des valeurs dans un tableau Excel, je veux mettre ces valeurs dans un tableau stocké en mémoire avec allocation dynamique. A partir de là je veux moyenner deux à deux chaques nombres de ce tableau et stocker le résultat dans le même tableau dynamique en écrasant le contenu de la première case. Et tout ceci en VB sous Excel.

Quelqu'un a-t-il une idée ?
Merci d'avance.
 :)

FearBlue · Answer

Slt
Je vois pas exactement ce que tu veux faire mais je vais tenter de taider!!!!
Pour créer un tableau dinamique tu fais comme ca 

dim TonTableau() as string

ensuite quand tu connais le nombre d'entrer a mettre dans ton tableau tu fais ca

redim TonTableau(lenombredentré)

ensuite tu fais une boucle 

for i=1 to le_nombre_dentré
    tontableau(i)=lavaleur
next i
voila
je sais pas si je répond a ta question 
@+
<--FearBlue-->

Adoc5 · Answer

Voila ce que j'ai écrit comme code:

' Déclaration de variables
    Dim mySheet As Excel.Workbook
    Dim iCpt As Integer
    Dim iTab As Integer
    Dim iTab2 As Integer
    Dim monTab() As Long
    
    Set mySheet = Sheet("Sheet1")
    iCpt = 1
    iTab = 0
    iTab2 = 1
    
' Initialisation de la première ligne du tableau à deux dimensions
    ReDim monTab(1, iTab)
    
' Lecture de la feuille Excel tant que la valeur de la cellule An n'est pas nulle
    While mySheet.Range("A" & iCpt) <> ""
    
' On récupère les valeurs de la cellule A de la ligne iCtp et on les stockes dans monTab
        monTab(0, iTab) = mySheet.Range("A" & iCpt)

' Idem pour la cellule B
        monTab(1, iTab) = mySheet.Range("B" & iCpt)

' Calcule de la moyenne
        monTab(1, iTab) = (monTab(1, iTab) + monTab(1, iTab2)) / 2
        iCpt = iCpt + 1
        iTab = iTab + 1
        iTab2 = iTab2 + 1
        ReDim Preserve monTab(1, iTab)
    Wend
End Sub

Le programme plante à la ligne suivante (Set mySheet = Sheet("Sheet1")). Quelqu'un peut-iil me dire pourquoi ?
Merci d'avance
 :)

Stockage de nombre dans tableau avec allocation dynamique de la mémoire

2 réponses

Discussions similaires