Discussion :

[Dermochelys]

Bonjour,

Je suis pas un spécialiste en VBA excel.
J'ai un 'tit soucis avec la macro que je veux utiliser pour automatiser le calcul de centroides.

Sur le fichier excel ci-joint vous trouverez la feuille "Clusters sur 2 coordonnées"

L'idée étant que l'utilisateur introduise dans le tableau "C4: D7" des valeurs x, y arbitraires (un couple de valeurs par centroides). Puis le solver doit minimiser la valeur située en T11.

Manuellement, ca fonctionne très bien. au départ d'un lot de valeurs xy des centroides, il me recalcule les nouvelles.
Mais quand je lance ma macro Solution, il m'affiche la même valeur dans toutes les cases.... Pouvez vous me suggérer des pistes de solutions pour résuodre ce problème.
La routine en question est bonne à mon avis

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
Public Sub Solution()
 
    Dim CoordCluster As Range
 
    'Get user table selection
    On Error Resume Next
    Set CoordCluster = Application.InputBox(Prompt:= _
                                     "Selectionner les valeurs x, y des clusters.", _
                                     Title:="Specify Range", Type:=8)
 
    If CoordCluster Is Nothing Then Exit Sub
 
    'Check table dimensions
    If CoordCluster.Rows.Count < 2 Or Table.Columns.Count < 2 Then
        Err.Raise Number:=vbObjectError + 1000, Source:="k-Means Cluster Analysis", Description:="La sélection a un nombre insuffisant de lignes et colonnes."
    End If
 
    SolverOk SetCell:="$T$11", MaxMinVal:=2, ValueOf:="0", ByChange:=CoordCluster
    SolverSolve True        
 
End Sub

A bientôt j'espère!!

[mercatog]

Remplace ta ligne 17 par celle ci

Code :

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

SolverOk SetCell:="$T$11", MaxMinVal:=2, ValueOf:="0", ByChange:=CoordCluster.Address

Et corrige la ligne 14 en passant.

Testé sur ton fichier

[Dermochelys]

Bonjour Mercatog,

Pourquoi fallait-il préciser .Address?
Merci aussi pour la petite correction que tu as repéré.

Maintenant ça fonctionne parfaitement
je vais continuer l'intégration des différents modules

Un grand merci pour ton aide!