Discussion :

[Jaymerry]

Hello à tous,

Je suis face à une colle ; je dispose sur une feuille Excel des correspondances entre deux colonnes (A et B).

Je souhaiterais traiter en VBA cette correspondance de manière à afficher sur une nouvelle feuille la colonne A en colonne, et la colonne B transposée en-têtes mais en ligne. Les correspondances entre ces colonnes apparaitraient sous forme de "x" au croisement de chacune d'elles. En somme ce schéma :

Feuille 1 :
Col A et Col B

Code :

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

1
2
3
4
5
 
X  1
Y  2
Z  3
X  3

Feuille 2 :
==>

Code :

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

1
2
3
4
5
6
 
   1 2 3 
X  x
Y    x
Z       x  
X       x

Niveau transposition, c'est tout bon, j'ai la mise en forme attendue avec des range. Ce que j'essaie de trouver, c'est le type de boucle nécessaire qui parcourrait les lignes de feuille 2 pour aller chercher les références entre lignes / colonnes présentes dans la feuille 1

Je sais qu'un TCD permet justement ce type de mécanisme, malheureusement une des contraintes est justement de s'en passer...

Merci à tous pour votre aide et bonne fin d'année !

Jaymerry

[cb_60]

Bonjour
En attendant que l'on te le propose en VBA

Deux zones nommées

Code :

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

1
2
colA =DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)
colB =DECALER(colA;;1)

en colonne A de la feuille 2 la formule à mettre en A2 et tirer vers le bas
MATRICIEL

Code :

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

=SI(ESTNA(INDEX(colA;EQUIV(0;NB.SI($A$1:A1;colA);0)));"";INDEX(colA;EQUIV(0;NB.SI($A$1:A1;colA);0)))

en ligne B1 de la feuille 2 la formule à tirer sur la droite
MATRICIEL

Code :

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

=SI(ESTNA(INDEX(colB;EQUIV(0;NB.SI($A$1:A1;colB);0)));"";INDEX(colB;EQUIV(0;NB.SI($A$1:A1;colB);0)))

et dans le tableau en B2, à tirer sur le droite et le bas

Code :

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

=SI(SOMMEPROD((colA=$A2)*(colB=B$1))<>0;"X";"")

[Jaymerry]

Bonjour et merci beaucoup pour cette piste (et bonne année à tous !)

Je vais regarder ça de plis près cette piste. Le plus compliqué coté va être de créer une boucle optimisée niveau perf....

Merci à tous pour votr aide

[Philippe Tulliez]

Bonjour,
Voici une solution en VBA

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
22
23
24
25
Sub Transpose()
 Dim CellFrom As Range, CellTo As Range
 Dim r As Single, FindPosition As Single, cCel As Single
 Dim FindTable As Range
 cCel = 1 ' Compteur
 With ThisWorkbook
  Set CellFrom = .Worksheets("Feuil1").Range("A2")
  Set CellTo = .Worksheets("Feuil2").Range("B2")
 End With
 For r = 0 To CellFrom.End(xlDown).Row - 2
  With CellTo
  .Offset(r + 1, 0) = CellFrom.Offset(r, 0)
   Set FindTable = Range(Cells(.Row, .Column + 1), Cells(.Row, .Column + 1 + cCel))
   On Error GoTo ErrorHandler
   FindPosition = Application.WorksheetFunction.Match(CellFrom.Offset(r, 1), FindTable, False)
   If FindPosition = 0 Then FindPosition = cCel: cCel = cCel + 1
   On Error GoTo 0
   .Offset(.Row - 2, FindPosition) = CellFrom.Offset(r, 1)
  .Offset(r + 1, FindPosition) = "x"
  End With
 Next
 Exit Sub
ErrorHandler:
 If Err.Number = 1004 Then FindPosition = 0: Resume Next Else MsgBox "Problème"
End Sub

[Jaymerry]

Bonsoir,

Merci beaucoup pour cet exemple de code.
Cependant, je dispose déjà des "en-têtes" (en colonnes et en lignes) sur la feuille 2. Je cherche désormais à alimenter ce tableau sans modifier l'ordre de ces en-têtes, en cochant les cellules correspondant au croisement de ces en-têtes (correspondances présentes dans la feuille 1).

Disposant d'un certain nombre de lignes (6000), la difficulté est pour moi de trouver code optimisé et cohérent (via ADO ??).

Merci à tous pour votre aide,

Jaymerry

[Philippe Tulliez]

Bonjour,
Je n'ai pas le temps de revoir mon code ce matin, mais il me semble qu'il doit fonctionner même si les en-têtes existent déjà. Dans le cas contraire la modification doit être mineure.
Si personne n'a répondu d'ici ce soir, je renverrai un message après vérification.

[Philippe Tulliez]

Bonsoir,
A la relecture de ton 'post', je crois que je ne comprends plus très bien ta demande.

Cependant, je dispose déjà des "en-têtes" (en colonnes et en lignes) sur la feuille 2. Je cherche désormais à alimenter ce tableau sans modifier l'ordre de ces en-têtes, en cochant les cellules correspondant au croisement de ces en-têtes (correspondances présentes dans la feuille 1).

Si comme tu le dis, tu as déjà les lignes et colonnes en place sur la feuille 2, Tu n'as sans doute absolument pas besoins de VBA.
La fonction SOMMEPROD doit vraisemblablement répondre à tes besoins.
Pour ma part, une nouvelle explication ne serait pas superflue