BARYCENTRE

[Chrisnut]

Bonsoir,

J'ai un projet à réaliser et une recherche d'un barycentre pour positionner un entrepôt.
Des flux au départ du 33 et au départ du 60.
Auriez vous une idée sur un mode de calcul à adapter par rapport à mes données ci jointes ?

 

[JHA]

Bonjour à tous,

Je n'y connais rien sur ce type de calcul mais voici un lien qui peut te venir en aide.
http://christian.hohmann.free.fr/in...te-a-outils-lean/422-la-methode-du-barycentre

Comme tu n'as eu de réponse, j'ai essayé de retranscrire la formule mais cela me parait trop simple. En attendant mieux.......

JHA

 

[Chrisnut]

Bonjour,

Merci JHA

Visiblement, il faut rajouter les X et Y figurant sur la carte de France de la méthode et pondérer avec mes quantités dans mon cas.

Déjà moins simple mais c'est seulement 95 départements.

 

[JCGL]

Bonjour à tous,

Un essai mais à vérifier tant sur les régions que sur les résultats de localisation... Ce lien n'existe plus

A+ à tous

 

[job75]

Bonjour Chrisnut, JHA, Jean-Claude,

Il faut du VBA et utiliser la définition mathématique d'un barycentre.

O étant l'origine des coordonnées de la feuille, A B C etc... les centres des images des départements, le barycentre G sera déterminé par l'équation vectorielle OG = (n1OA + n2OB + n3OC + …)/(n1 + n2 + n3 + …)

n1 n2 n3... étant les coefficients de pondération (ici les quantités) de chaque point/département.

Pour programmer ça il faut faire une bonne petite gymnastique avec les images.

A+

 

[JCGL]

Bonjour à tous,
Salut Gérard,

Paris ou Côte de Nacre ?

Tu ne penses pas que cela soit possible en formules (évidemment sans la carte) ?

A++
A+ à tous

 

[Chrisnut]

Bonjour,

Alors là, je suis largué

 

[job75]

Re,

Oui Jean-Claude on pourrait se passer de la carte (et du VBA) avec les coordonnée GPS des centres des départements.

Mais puisqu'il y a une carte c'est bien plus parlant, on positionne la petite image "Barycentre".

Voyez le fichier joint avec cette macro qui se déclenche par double-clic en A1 ou A101 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1,A101]) Is Nothing Then Exit Sub
Dim P As Range, i As Byte, image As Shape, X#, Y#
Cancel = True
Application.Goto Target, True 'cadrage
Set P = Target.CurrentRegion
Shapes("CarteFrance").Top = P.Rows(2).Top
For i = 3 To P.Rows.Count
  Set image = Shapes(P(i, 1))
  X = X + P(i, 4) * (image.Left + image.Width / 2)
  Y = Y + P(i, 4) * (image.Top + image.Height / 2)
Next
X = X / Application.Sum(P.Columns(4))
Y = Y / Application.Sum(P.Columns(4))
Set image = Shapes("Barycentre")
image.Left = X - image.Width / 2
image.Top = Y - image.Height / 2
End Sub

PS : Côte de Nacre JC.

A+

 

[job75]

Re,

Pendant que j'y suis... J'ai ajouté un 3ème tableau pour déterminer le barycentre de la Basse-Normandie.

Fichier (2).

A+

 

[job75]

Re,

Une petite précision peut-être utile puisque vous mentionnez dans vos tableaux un "LIEU DEPART".

Dans un espace à 2 ou 3 dimensions (voire dans l'espace-temps) l'emplacement du barycentre ne dépend pas de l'origine des coordonnées.

A+

 

[Chrisnut]

Bonsoir,

Merci pour le dernier fichier.

J'ai besoin de comprendre la macro SVP.

Elle utilise quelle image ?coordonnées ?

Par avance merci

 

[job75]

Re,

La macro traite toutes les images (Shapes) dont les noms sont en colonne A du tableau étudié.

Le centre de chaque image a pour coordonnées :

- par rapport au bord gauche de la feuille (origine des abscisses) : image.Left + image.Width / 2

- par rapport au bord supérieur de la feuille (origine des ordonnées) : image.Top + image.Height / 2

Renseignez-vous si vous ne savez pas ce que sont les propriétés Left Top Width Height.

A+

 

[Chrisnut]

Bonjour,

J'ai trouvé un peu d'infos...

C'est puissant, merci beaucoup à vous tous.