methode de king

Bonjour, je suis debutant en vba mais pour um projet de fin d etude de dois transforme un tableau de deux colonnes en matrice binaire comme ceci:

machine cable
A 1
B 2
C 1
D 3
E 2
F 1
G 3

machine/cable 1 2 3
A 1 0 0
B 0 1 0
C 1 0 0
D 0 0 1
E 0 1 0
F 1 0 0
G 0 0 1

Voici les règles de cet algorithme :

*L’objectif est de réorganiser la matrice d’incidence de façon à créer des blocs (avec le maximum de 1) sur la diagonale
*Chaque bloc représente un groupe de machines et de produits d’une même cellule.
*À chaque colonne et à chaque ligne, on assigne une valeur 2 (à la puissance n en fonction des ligne ou cologne on commence par 2 à la puissance 0) (de droite à gauche pour les colonnes et de bas en haut pour les lignes).

*Chaque ligne et chaque colonne est lue comme un nombre binaire. Celui-ci est converti ensuite à une valeur décimale.

1.Ordonner les lignes dans l’ordre décroissant de leurs valeurs décimales. Dans le cas d’égalité, les ordonner dans l’ordre d’apparition dans la matrice d’incidence

2.L’ordre des lignes est-il le même que lors de l’itération précédente? Si oui, aller à 6. Sinon, aller à 3.

3.Ordonner les colonnes dans l’ordre décroissant de leurs valeurs décimales. Dans le cas d’égalité, les ordonner dans l’ordre d’apparition dans la matrice d’incidence

4.L’ordre des colonnes est-il le même que lors de l’itération précédente? Si oui, aller à 6. Sinon aller à 5

5.Répéter la procédure (en réordonnant à chaque fois les lignes et les colonnes), tant que l’ordre change à chaque itération

6.STOP

Bonne journée !!