Copier double ligne selon condition puis mettre nvell feuil

Le 07/05/2017 à 20:54

re quik09,

Si tu veux changer la disposition des données restituées

Remplace cette ligne :

With Sheets(e).Cells(1).Resize(UBound(dico.Item(e)(2), 1), UBound(dico.Item(e)(2), 2))
    .Value = dico.Item(e)(2)

par celle-ci

With Sheets(e).Cells(1).Resize(UBound(dico.Item(e)(2), 2), UBound(dico.Item(e)(2), 1))
    .Value = Application.Transpose(dico.Item(e)(2))

klin89

Rechercher des sujets similaires à "copier double ligne condition puis mettre nvell feuil"