Macro :Transposer une colonne en ligne

Re : Macro :Transposer une colonne en ligne

Bonjour



Avec un fichier exemple, la vision de la question serait plus claire.

EDITION: sans fichier mais en utilisant le macro recorder

Re : Macro :Transposer une colonne en ligne

j'ai déjà utilisé l'enregistreur des macros mais étant très novice en vba je ne vois pas comment faire.
Je vous mets un bout de mon tableau. tout a été fait à la main, et je souhaite automatiser celà.

Je souhaite transposer une colonne Z d'une feuille 1 en ligne 1 sur la feuille 2 (à partir de la cellule (1,4) inclus).

Sur la feuille 1 de mon excel :

Dans un premier temps je dois automatiser la création de cette colonne Z qui correspond à la concaténation des colonnes G jusqu'à Q si la condition suivante est respectée : les cellules de la colonne X = Main.

Dans un second temps je veux classer cette colonne afin d'éliminer les doublons un à un (car dans mon cas les concaténations peuvent avoir le même nom).

Sur la feuille 2 de mon excel :

Finalement je souhaite coller les valeurs des concaténations de la colonne Z de la feuille 1 à la feuille 2 en les transposant. (coller dans la feuille 2 à partir de la cellule (1,4) inclus).

Si vous avez d'autres idées pour générer automatiquement les clés de la feuille 2 à partir de la feuille 1 sans doublons, on peut éviter les étapes que j'ai énoncé précédemment.

NB: ci joint tableaux

Re : Macro :Transposer une colonne en ligne

Je vous ai mis l'esquisse de code que j'ai fait, mais j'ai un problème : les clés correspondent en fait à la concaténation des colonnes G jusqu'à Q si la condition suivante est respectée : les cellules de la colonne X = Main.

Je ne sais pas comment je pourrais introduire dans le code une condition sur le fait de ne « copier/coller transposé » les concaténations que si sur la colonne X il y a écris Main.

Merci d'avance pour l'aide.

Re : Macro :Transposer une colonne en ligne

Le problème est résolu mais un nouveau problème est apparu les clés que je dois avoir sur la premiere ligne de la feuille 2 correspondent en fait à la concaténation des colonnes G jusqu'à Q de la feuille 1 si la condition suivante est respectée : les cellules de la colonne X ( de la feuille 1)= Main.

Je ne sais pas comment je pourrais introduire dans le code une condition sur le fait de ne « copier/coller transposé » les concaténations que si sur la colonne X de la feuille 1 il y a écris Main.

voila le code :

Sub test67()
Dim PlageSource As Range
Dim FeuilleResultat As Worksheet
Dim NumColonneResultat As Integer
Dim NumLigneResultat As Integer
Dim Cell As Range
Dim Un As Collection
Dim i As Long

' nommer tous les endroits sur lesquels on travaille
Set PlageSource = Worksheets("EMR").Range("Z:Z")
Set FeuilleResultat = Worksheets("Main Thresh")
NumColonneResultat = 256
NumLigneResultat = 1

' creer une liste sans doublons, d'après un tuto de Silkyroad
Set Un = New Collection
On Error Resume Next
'Boucle sur la plage de cellule
For Each Cell In PlageSource
'If Cell <> "" Permet de ne pas prendre en compte les cellules vides
'Un.Add Cell, CStr(Cell) Ajoute le contenu de la cellule dans la collection
'le 2ème argument Cstr(cell) est le TAG de l'élément. Le tag est unique, c'est ca qui évite les doublons
'ici on choisi le contenu de la cellule, transformé en chaine de caractere (par Cstr)
If Cell <> "" Then Un.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0

'Boucle sur les éléments de la collection
'les écrire dans feuille2, en chagneant de colonne à chaque fois
For i = 2 To Un.Count
FeuilleResultat.Cells(NumLigneResultat, 2 + i) = CStr(Un(i).Value)
Next i

Set Un = Nothing
End Sub


Merci d'avance