aide pour rédiger une formule Transpose

[fb62840]

Bonjour à toutes et tous,

Je souhaiterais rédiger une formule dans une macro permettant de transposer en ligne le contenu de la colonne A sachant que le nombre d'éléments présents de A2 à A x est inconnu au départ,

Pour le moment je rédige une formule me permettant de compter le nombre d'éléments présents dans la colonne 1 - 1 (l'intitulé de la colonne) et je cherche à transposer ce contenu sur la première ligne.

Merci beaucoup pour votre aide.

 

[job75]

Re : aide pour rédiger une formule Transpose

Bonjour fb62840,

Un fichier exemple avec le résultat attendu est souhaitable pour éviter tout malentendu.

A+

 

[Pierrot93]

Re : aide pour rédiger une formule Transpose

Bonjour,
Bonjour Job🙂

regarde peut être ceci, à adapter :

Option Explicit
Sub test()
Dim t()
t = Range("A2", Cells(Rows.Count, 1).End(xlUp))
Range("B2").Resize(, UBound(t)) = Application.Transpose(t)
End Sub

bon après midi
@+