Matrice carré à partir de n lignes*3colonnes

[bLink]

Bonjour tout le monde!
Je voudrai un macro dans laquelle si colle mes données, je pourrai avoir automatiquement une matrice carré n ligne et n colonnes.
En fait j'ai un document comme ci dessous:
A(zone origine) B(destination) C(nombre de déplacement)
1 1 a
1 2 0
1 3 b
. . .
. . .
1 .
2 1
2 2
. .
. .
84 84
Que je veux transformer pour avoir un document de la forme
O/D 1 2 3 4 . . . 84
1 a b k x
2 0 0 c d..... 0
3 a
.
.
.
84
Merci d'avance!!

 

[Staple1600]

Re : Matrice carré à partir de n lignes*3colonnes

Bonjour à tous

bLink [highlight][Bienvenue sur le forum][/code]
Prends le temps de relire Lien supprimé
Puis reviens ajouter ce qui manque dans cette première question posée sur le forum

 

[bLink]

Re : Matrice carré à partir de n lignes*3colonnes

Bien recu!
Je vous colle la matrice n ligne* 3 colonnes que je veux transformer en matrice carrée.

 

[Staple1600]

Re : Matrice carré à partir de n lignes*3colonnes

Re


Ce serait plus parlant si sur la pièce jointe on avait deux onglets
AVANT (situation de départ)
APRES : résultat que tu souhaites obtenir

On a l'avant , il nous manque l'après

 

[bLink]

Re : Matrice carré à partir de n lignes*3colonnes

J'ai mis le résultat que je souhaite obtenir dans la feuille 2 de ce fichier.

 

[Staple1600]

Re : Matrice carré à partir de n lignes*3colonnes

Re

Donc si j'ai bien compris par exemple en B2 on devrait avoir 4 et en H2 on aura 10 sur la feuille 2 etc...

 

[bLink]

Re : Matrice carré à partir de n lignes*3colonnes

Oui! C'est exactement comme vous dites.

 

[Staple1600]

Re : Matrice carré à partir de n lignes*3colonnes

Re

Ok, il est l'heure pour moi de me sustenter, je laisse donc le fauteuil à mes petits camarades de jeu (notamment ceux qui aiment bien titiller l'Array)

Je repasserai plus tard dans ton fil voir si une solution t'y aura été donné.

 

[bLink]

Re : Matrice carré à partir de n lignes*3colonnes

D'accord!
Merci pour les questions. J'espère que le problème sera plus clair pour les camarades.

 

[mapomme]

Re : Matrice carré à partir de n lignes*3colonnes

Bonjour à tous,

Un essai via vba dans le fichier joint. Le code est dans module 1. Cliquer sur le bouton rouge.

rem: par TCD, ça serait bien plus élégant.

 

[bLink]

Re : Matrice carré à partir de n lignes*3colonnes

Merci beaucoup! C'est passé...

 

[klin89]

Re : Matrice carré à partir de n lignes*3colonnes

Bonsoir le forum,

une autre façon de procéder, avec l'objet ArrayList.
Fonctionne sur mon PC : Excel 2003, Windows XP
Résultat en Feuil1.

Sub Essai()
Dim a, i As Long, AL As Object, e
    Application.ScreenUpdating = False
    Set AL = CreateObject("System.Collections.ArrayList")
    With Range("A1").CurrentRegion
        a = .Value
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For i = 2 To UBound(a, 1)
                If Not AL.Contains(a(i, 2)) Then AL.Add a(i, 2)
                If Not .exists(a(i, 1)) Then
                    Set .Item(a(i, 1)) = _
                    CreateObject("Scripting.Dictionary")
                End If
                .Item(a(i, 1))(a(i, 2)) = a(i, 3)
            Next
            AL.Sort
            ReDim a(1 To .Count + 1, 1 To AL.Count + 1)
            For i = 0 To AL.Count - 1
                a(1, i + 2) = AL(i)
            Next
            For i = 0 To .Count - 1
                a(i + 2, 1) = .keys()(i)
                For Each e In .items()(i).keys
                    a(i + 2, AL.IndexOf(e, 0) + 2) = IIf(.items()(i)(e) <> 0, .items()(i)(e), "")
                Next
            Next
        End With
        'Résultat sur la même feuille
        With .Offset(, .Columns.Count + 3).Resize(UBound(a, 1), UBound(a, 2))
            .CurrentRegion.Clear
            .Value = a
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .BorderAround ColorIndex:=1, Weight:=xlThin
            .Borders(xlInsideVertical).Weight = xlThin
            .Rows(1).Offset(, 1).Resize(, .Columns.Count - 1).Interior.ColorIndex = 40
            .Rows(1).BorderAround ColorIndex:=1, Weight:=xlThin
            .Columns(1).Offset(1).Resize(.Rows.Count - 1).Interior.ColorIndex = 19
        End With
    End With
    Application.ScreenUpdating = True
End Sub

klin89