Microsoft 365 Matrice des distances

job75

XLDnaute Barbatruc

• 9 Janvier 2021

• #2

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+

 

Dernière édition: 9 Janvier 2021

Vote positif 0 Vote négatif

P

Pablo85

XLDnaute Nouveau

• 10 Janvier 2021

• #3

job75 à dit:

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+

Cliquez pour agrandir...

 

Pièces jointes

• Exercise1.xlsm

  20.1 KB · Affichages: 23

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Janvier 2021

• #4

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Janvier 2021

• #5

Bonjour Pablo85, Bernard, le forum,

Pythagore c'est élémentaire :

VB:

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

A+

 

Pièces jointes

• Exercise(1).xlsm

  20.7 KB · Affichages: 11

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Janvier 2021

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Janvier 2021

• #7

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) :

VB:

'---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

 

Pièces jointes

• Exercise(2).xlsm

  23.3 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Janvier 2021

• #8

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

VB:

'---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

 

Pièces jointes

• Exercise(3).xlsm

  23.8 KB · Affichages: 4

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 10 Janvier 2021

• #9

Pablo85 à dit:

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.???

Cliquez pour agrandir...

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
😎

 

Pièces jointes

• Eloignements.xlsx

  34.6 KB · Affichages: 7
• Eloignements (1).xlsx

  146.5 KB · Affichages: 5

Dernière édition: 10 Janvier 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Janvier 2021

• #10

Bonsoir le fil

[aparté]

Modeste geedee à dit:

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

Cliquez pour agrandir...

Tu voulais dire la non-maitrise plutôt, non ?
😉
[/aparté]

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Janvier 2021

• #11

Bonjour à tous,

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

 

Pièces jointes

• Pablo85- Exercise1- v1.xlsm

  21.5 KB · Affichages: 14

Dernière édition: 10 Janvier 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Janvier 2021

• #12

Bonsoir mapomme

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Janvier 2021

• #13

Staple1600 à dit:

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

Cliquez pour agrandir...

C'est fait! 😉

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 10 Janvier 2021

• #14

mapomme à dit:

C'est fait! 😉

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

Pablo85

XLDnaute Nouveau

• 13 Janvier 2021

• #15

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

 

Vote positif 0 Vote négatif