Microsoft 365 Matrice des distances

[Pablo85]

Bonjour
je suis etudiant et j'ai une preoccupation concernant le VBA... J'aimerais si possible d'avoir une solution pour ce probleme.
Calculez la matrice des distances entre chaque paire de clients.
I La distance de i à j (où i <j) est donnée par le Pythagore
règle.???
Compute the matrix of distances between every pair of customers.
I The distance from i to j (where i <j) is given by the Pythagoras
rule.????

 

[job75]

Bonjour Pablo85, bienvenue sur XLD,

Joignez le fichier Excel anonymisé où vous avez défini la position de chaque client.

Une dizaine de clients suffit.

A+

 

[Pablo85]

Bonjour Pablo85, bienvenue sur XLD,

Joignez le fichier Excel anonymisé où vous avez défini la position de chaque client.

Une dizaine de clients suffit.

A+

 

[Dranreb]

Bonjour.
Piste: Cela signifie par la règle qui définit la longueur de l'hypothénuse d'un triangle rectangle en fonction de la longueur des deux cotés adjacents selon le théorème de Pythagore. La distance entre deux points de coordonnées données se ramène en effet à l'application de ça à leurs différences de coordonnées.

 

[job75]

Bonjour Pablo85, Bernard, le forum,

Pythagore c'est élémentaire :

Cells(1 + i, 4) = Sqr(Cells(1 + i, 2) ^ 2 + Cells(1 + i, 3) ^ 2)

A+

 

[Dranreb]

Ben, non : Là tu calcule la distance à l'origine de chaque point. D'après ce que j'ai compris, il est demandé la matrice des distances entre chaque paire de points. Donc je suppose une grille de 85×85, diagonale exclue.

 

[job75]

Ah oui j'oubliais qu'il faut créer les combinaisons (paires).

Comme il n'y en a pas un très grand nombre ceci suffit, voyez ce fichier (2) :

'---liste des combinaisons et distances---
Cells(1, 5) = "Paire": Cells(1, 6) = "Distance"
n = 1
For i = 2 To l
    For j = i + 1 To l + 1
        n = n + 1
        Cells(n, 5) = Cells(i, 1) & " * " & Cells(j, 1)
        Cells(n, 6) = Sqr((Cells(i, 2) - Cells(j, 2)) ^ 2 + (Cells(i, 3) - Cells(j, 3)) ^ 2)
Next j, i
End Sub

 

[job75]

Si l'on veut créer la matrice carrée des distances on utilisera ce fichier (3) :

'---matrice carrée des distances---
[E1].Resize(, l) = Application.Transpose([A2].Resize(l))
For i = 2 To l
    For j = i + 1 To l + 1
        Cells(i, j + 3) = Sqr((Cells(i, 2) - Cells(j, 2)) ^ 2 + (Cells(i, 3) - Cells(j, 3)) ^ 2)
        Cells(j, i + 3) = Cells(i, j + 3)
Next j, i

 

[Modeste geedee]

Bonjour
je suis etudiant et j'ai une preoccupation concernant le VBA... J'aimerais si possible d'avoir une solution pour ce probleme.
Calculez la matrice des distances entre chaque paire de clients.
I La distance de i à j (où i <j) est donnée par le Pythagore
règle.???

1 - Déjà acquérir le B.A. BA d'Excel sans VBA ...
2 - L'algorithme de programmation de cet exercice est indépendant du langage utilisé.
3 - La maîtrise de Pythagore est une lacune pour un étudiant.

l'adaptation à VBA est tributaire du point 1

solution sans VBA

 

[Staple1600]

Bonsoir le fil

[aparté]

3 - La maîtrise de Pythagore est une lacune pour un étudiant.

Tu voulais dire la non-maitrise plutôt, non ?

[/aparté]

 

[mapomme]

Bonjour à tous,

Voir fichier joint pour avoir la matrice des distances et pas un graphique.

 

[Staple1600]

Bonsoir mapomme

[aparté 2]
Le fichier n'est pas joint
[/aparté]

 

[mapomme]

[aparté 2]
Le fichier n'est pas joint
[/aparté]

C'est fait!

 

[Modeste geedee]

C'est fait!

[aparté 3]
moi aussi !
[/aparté 3]
Etudiant 2.0 !

 

[Pablo85]

Merci à tous pour vos reponses .... Il faut dire que j'ai beaucoup de lacunes en Excel...Je dois imperativement m'y mettre!!!!

Merci encore à tous