Discussion :

[flofly6]

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

[edelweisseric]

Bonjour à tous
Bonjour flofly6

Tout d'abord bienvenu

Je ne sais pas si j'ai bien compris, donc je te soumets ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ((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)) < 0 Then compte = compte + 1
If k = 8004 Then Sheets("Feuil2").Cells(a, 1).Value = compte: compte = 0: a = a + 1

à mettre dessous....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

distance(i - 5, k - 5) =.....

et avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

next k

Il faut modifier "Feuil2", et l'adapter à la destination. Je n'ai pas testé

Eric

[patbou]

bonsoir,

tu peux essayer

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
16
17
18
19
20
21
22
23
 
Sub calcul_distance()
 
Dim distance(7999, 7999)
Dim resultat()
Dim i As Integer
Dim k As Integer
Dim j 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))
                If distance(i, k) < 0 Then
                    j = j + 1
                    ReDim Preserve resultat(j)
                End If
        Next k
    Next i
For i = 1 To UBound(resultat)
  Cells(i, 10) = resultat(i)
Next i
 
End Sub

d autre part sachant que de nombreux calcul sont réalisé , je passerai
par un variant pour stocker l ensemble de ta plage (8000 ligne , 6 colonne)