Bonjour,
J'ai crée un tableau virtuel avec Visual Basic à partir de données d'Excel et j'aimerais pouvoir lire des valeurs dans ce tableau et écrire les résultats sur Excel. Voici plus de détails:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub calcul_distance()
 
Dim distance(7999, 7999) As Single
Dim i As Integer
Dim k As Integer
 
 
    For i = 5 To 8004
        For k = 5 To 8004        
        distance(i - 5, k - 5) = ((Cells(i, 2) - Cells(k, 2)) ^ 2 + (Cells(i, 3) - Cells(k, 3)) ^ 2 + (Cells(i, 4) - Cells(k, 4)) ^ 2) ^ 0.5 - (Cells(i, 5) + Cells(k, 5))
 
        Next k
    Next i
 
End Sub

Je lis des données d' Excel avec lesquelles j'effectue un calcul. Les résultats de ce calcul sont stockés dans le tableau distance(7999, 7999) qui a une dimension 7999*7999 mais que je n'écris pas dans Excel. J'aimerais pour chaque ligne de ce tableau trouver le nombre de valeurs <0 et écrire ce nombre sur Excel dans une colonne qui aura donc une dimension 7999*1.

Merci pour votre aide