Discussion :

[helio500]

Bonjour,
J'ai un soucis : je souhaiterais modifier la présentation d'un fichier excel,
Voici un exmple

Au départ le fichier est comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
 
Groupe 1	VBA
Groupe 1	Langage C
Groupe 1	Java
Groupe 2	Langage C
Groupe 2	Java
Groupe 3	Pascal
Groupe 3	Java
Groupe 3	Langage C

Au final le fichier serait de la forme suivante :

Code :

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

1
2
3
4
 
Groupe 1	| VBA	    |  Langage C  | Java
Groupe 2	| Langage C |  Java       |	          
Groupe 3	| Pascal    |  Java	  | Langage C

Pour info mon fichier fait 1500 lignes.
Si quelqu'un a une solution automatisée, merci.

[GohanSSj2]

Bonjour,

Je peux vous proposer une solution semi-automatique

Soit A la colonne avec les groupes
Soit B la colonne avec les type de langage
On suppose qu'elles ont un titre.

Sélectionnez toutes les valeurs de la colonne A (y compris de titre), faites données/filtre élaboré/copier vers un autre emplacement
Pour la plage : il s'agit des valeurs de la colonne A
Pour copier dans : choisir D2
Cochez sans doublons

idem pour le type de langage et mettre en F1

Sélectionnez les valeurs dans la colonne F sans le titre (donc a partir de F2) et faites copier/Collage spécial/transposé en E2

Supprimez tous ce qui est inutile en colonne F pour se retrouver au final avec un tableau avec les groupes en ligne et les langages en colonne.

Insérez une colonne avant A et en formule dans A2 mettez "=B2&C2"
Maintenant dans la cellule F3 mettez

Code :

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

"=SI(ESTERREUR(RECHERCHEV($E3&F$2;$A:$C;3;FAUX))=VRAI;"";RECHERCHEV($E3&F$2;$A:$C;3;FAUX))"

Ensuite élargir cette formule à tout l'intérieur du tableau.
Si besoin fait un copier du tableau dans une autre feuille en collant uniquement les valeur et supprimez ce qui ne sert pas (le titre des colonnes).

Ça à l'air compliqué à l'écrit mais ça se fait bien en pratique :p

Cordialement,

[Benoit Schwob]

Bonjour,

Une sorte de dénormalisation, quoi...
Essaie via un TCD, ça fait bricolo mais ça devrait marcher.

Etapes :
- tu places le champ "groupe" en zone de lignes, le champ "langage" en zone de colonnes, et l'un des deux (peu importe lequel) en zone de données.
- tu auras un tableau à double entrée avec un comptage d'occurences (normalement que des valeurs "1").
- tu supprimes les totaux (lignes et colonnes), puis tu copies-colles le tout en valeur.
- nettoyage : tu vires la ligne supérieure de l'ex-TCD, tu cales le reste en haut à gauche de la feuille.

Arrivé ici, c'est peut-être déjà une réponse à la demande, non ?

Pour continuer :
- en dessous, tu copies-colles le tableau à l'identique, tu y vides les "1" de ce qui était jadis la zone de données.
- et à la place tu entres une formule qui dit :

Code :

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

=SI(B2=1;B$1;"")

N'oublie pas le "$", remplis vers la droite et vers le bas, copie-colle en valeur, supprime le tableau du haut, et hop.

Benoît

[Docmarti]

Données en colonnes A et B.
Résultats en colonne D, E, etc.

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
26
27
28
29
30
Sub t()
 
Dim c As New Collection
Dim deux As New Collection
Dim i As Long, j As Long, k As Long
Dim derlig As Long
derlig = 9
 
For i = 1 To derlig
  On Error Resume Next
  c.Add Cells(i, 1).Value, Cells(i, 1).Value  'élimine doublons
Next
 
For j = 1 To c.Count
 Cells(j, 4).Value = c.Item(j)
 
 Set deux = Nothing
   For i = 1 To derlig
    If Cells(i, 1) = c.Item(j) Then
      On Error Resume Next
      'deux.Add Cells(i, 2) 'affiche les doublons
      deux.Add Cells(i, 2), Cells(i, 2)  'élimine les doublons
    End If
   Next
   For k = 1 To deux.Count
     Cells(j, 4 + k).Value = deux.Item(k)
   Next
Next
 
End Sub