Macro de transformation de certaines colonnes en ligne

tarinz · 7 Mai 2019

Bonjour, je cherche à faire une macro qui pourrait transposer des colonnes en lignes avec une boucle s'adaptant au nombre de colonnes du tableau traité.
Exemple dans le fichier joint dans l'onglet départ: il y a 13 colonnes que je souhaite transformer comme dans l'onglet "arrivée souhaitée"
J'y suis arrivé mais sans boucle, c'est-à-dire en notant en dur tous les noms de colonnes à traiter. Je dois travailler sur un fichier de plus de 100 colonnes prochainement, donc avec une boucle ce serait mieux ;-)
Merci d'avance pour l'aide
+
Laurent

job75 · 7 Mai 2019

Bonjour tarinz,

Avec la fonction Transpose pas besoin de boucle, le code de la 2ème feuille :

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
UsedRange = Empty 'RAZ
With Sheets("Départ").UsedRange
    [A1].Resize(.Columns.Count, .Rows.Count) = Application.Transpose(.Value)
End With
Columns.AutoFit 'ajustement largeur
End Sub

La macro se déclenche quand on active la feuille.

A+

tarinz · 7 Mai 2019

Salut job75, en fait dans l'exemple je dois conserver certaines données de colonnes (colonne 1 à 4) sur chaque ligne. En fait j'aurais dû préciser que de la colonne 1 à 4 je cherche à dupliquer les informations jusqu'à ce qu'il y ai des donnée à transposer après la colonne 4 (pas facile à expliquer
Dans le nouveau fichier joint, on peut voir dans l'onglet "Arrivée souhaitée" que le nb d'enregistrements pour "Laurent" est équivalent au nombre de colonnes après la colonne 4 (soit 9). C'est pourquoi je recherche une boucle ou tout autre solution

Efgé · 7 Mai 2019

Bonjour tarinz, Salut Job
Une proposition
Cordialement

tarinz · 7 Mai 2019

Bonjour Efgé, c'est exactement ça ;-) Bon j'avoue ne pas tout comprendre dans le code mais c'est super cool ;-)
Merci à vous deux c'est sympa

Macro de transformation de certaines colonnes en ligne

tarinz

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

tarinz

XLDnaute Nouveau

Pièces jointes

Efgé

XLDnaute Barbatruc

Pièces jointes

tarinz

XLDnaute Nouveau

Discussions similaires