Discussion :

[jbesclapez]

Bonjour a tous,

J ai une liste sur en 3 colonnes et je cherche a mettre ca en tableau 2D.
En colonne 1 j ai le nom qui ira en axe vertical du tableau
En colonne 2 j ai l attribut qui ira en axe horizontal du tableau
En colonne 3 J ai la valeur a mettre en intersection dans le tableau.

Attention: Je n ai pas toujours les memes attributs (colonne 2) pour tous les noms. Il y aura donc des champs vides dans le tableau final.

Meme si ce code a l air simple, je suis trop debutant pour le realise mais en gros voila ce que je ferais :
1- Liste la colonne 1 et la copie en colonne 2 du tableau en valeur unique - En A2
2- Liste la colonne 2 et la copie en transposant avec valeurs unique dans le tableau - En B1
3- Pour chaque valeur en colonne 3, lis la colonne 1 et 2 et va chercher le croisement dans le tableau 2d - Ca ca a l air hyper complique a faire...

Merci de votre aide.

[halaster08]

Bonjour

Si tes valeurs en colonne 3 sont numériques, un TCD te donnera le résultat en quelques seconde.

[jbesclapez]

Bonjour

Si tes valeurs en colonne 3 sont numériques, un TCD te donnera le résultat en quelques seconde.

Les valeurs sont du texte et je ne veux pas de TCD. Je sais... ca complique :-)

[halaster08]

Meme si ce code a l air simple, je suis trop debutant pour le realise mais en gros voila ce que je ferais :
1- Liste la colonne 1 et la copie en colonne 2 du tableau en valeur unique - En A2
2- Liste la colonne 2 et la copie en transposant avec valeurs unique dans le tableau - En B1
3- Pour chaque valeur en colonne 3, lis la colonne 1 et 2 et va chercher le croisement dans le tableau 2d - Ca ca a l air hyper complique a faire...

Pour les points 1 et 2, utilise l'enregistreur de macro
Pour le 3:c'est très simple a faire en Excel avec une combinaison des formules INDEX et EQUIV, une fois la formule correcte trouvée, il suffit de la traduire en vba (si besoin l'enregistreur de maccro peut là encore t'aider)

[jbesclapez]

Pour les points 1 et 2, utilise l'enregistreur de macro
Pour le 3:c'est très simple a faire en Excel avec une combinaison des formules INDEX et EQUIV, une fois la formule correcte trouvée, il suffit de la traduire en vba (si besoin l'enregistreur de maccro peut là encore t'aider)

Bon, je viens de faire le 1 et 2... et suis assez fier de moi.

Par contre c est le grand inconnu pour la suite.

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
Sub List2Table()
 
Dim LastRowA As Long
Dim LastRowB As Long
 
LastRowA = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
 
Sheets("Sheet1").Range("A1:A" & LastRowA).Copy
Sheets("2DTable").Range("A1").PasteSpecial
Sheets("2DTable").Range("A1" & LastRowA).RemoveDuplicates Columns:=1, Header:=xlYes
 
Sheets("Sheet1").Range("B1:B" & LastRowA).Copy
Sheets("2DTable").Range("B1").PasteSpecial
Sheets("2DTable").Range("B1" & LastRowA).RemoveDuplicates Columns:=2, Header:=xlYes
 
LastRowB = Sheets("2DTable").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("2DTable").Range("B2:B" & LastRowB).Copy
Sheets("2DTable").Range("B1").PasteSpecial Transpose:=True
Sheets("2DTable").Range("B2:B" & LastRowB).Clear
 
End Sub

[halaster08]

Exemple: Avec une rechercheV et en ajoutant une colonne à ton tableau de base



A noter que tu peux remplacer les NA par ce qui t'arrange en ajoutant la fonction sierreur à la formule