Transposer ligne en colonne

Bonjour, j'aimerais transposer une ligne en colonne en supprimant les champs vide.

=transpose(A1:V1) marche bien mais j'aimerais supprimer les champs vide.

Est il possible en Excel ? sinon vba

Bonjour,

Voici une proposition par macro :

Sub transpo()
with activesheet.range("A1:V1")
    redim t(1 to .columns.count, 1 to 1)
    for k = 1 to .columns.count
        if .cells(1, k).value <> "" then
            n = n + 1
            t(n, 1) = .cells(1, k).value
        end if
    next i
    .clearcontents
    if n > 0 then .resize(n, 1).value = t
end with
end sub

Cdlt,

Bonjour,

Une approche Excel 365.

Cdlt.

Merci pour votre aide, Il me semble que vous m'avez donné l'idée mais je n'ai pas encore le niveau pour le modifier, ça me fait des erreurs, j'ai ajouté des déclarations des variables et changé le t par k mais c'est pas suffisant

Merci Jean-Éric, je vais le tester

Re,

Il ne faut pas modifier les variables du code. Pour les déclarations :

Sub transpo()
dim t(), k&, n&
with activesheet.range("A1:V1")
    redim t(1 to .columns.count, 1 to 1)
    for k = 1 to .columns.count
        if .cells(1, k).value <> "" then
            n = n + 1
            t(n, 1) = .cells(1, k).value
        end if
    next k
    .clearcontents
    if n > 0 then .resize(n, 1).value = t
end with
end sub

Ici, le code transpose "sur place" donc le vecteur ligne partant de A1 devient, à partir de cette même cellule de départ, un vecteur colonne, mais normalement sans les valeurs vides.

Pour Jean-Éric, c'est super Ça fonctionne pour les chiffres mais pas pour les texte ce qui est mon cas 😢

Re 3GB, d'où vient le i ? Entre le n=n+1 et le t(n, t) il y a un and?

J'arrive pas à la faire fonctionner

Re Jean-Éric, j'ai la version 360 pro

J'ai retiré estvide() et ça marche, merci beaucoup

Le i est une erreur de ma part. Par réflexe, j'ai mis i au lieu de k. J'ai corrigé ce détail. Le & veut dire as long...

Merci 3GB