Transferer une colonne dans x colonnes

Bonjour,

J'ai un souci que je n'arrive pas à résoudre. J'ai deux colonnes contenant de très nombreuses lignes et j'aimerai au final avoir un maximum de x lignes (10 lignes par exemple) sur plusieurs colonnes...

Je vous mets un fichier exemple, ça sera plus simple avec en feuille 1 les données de départ et en feuille 2 ce que j'aimerai réussir à avoir.

Je suis sûr qu'avec une simple formule ça doit être possible (avec un recherchev j'imagine) mais je n'arrive pas à trouver la bonne formule.

Merci d'avance

bonjour,

une proposition

Bonjour (re h2so4),

Proposition avec une formule unique :

=SI(MOD(COLONNE();3)>0;INDIRECT(ADRESSE(LIGNE()+(ENT((COLONNE()-1)/3)*10);MOD(COLONNE();3);;1;"Feuil1"));"")

Bonjour,

Merci pour ces propositions ça fonctionne impeccable

Par contre comment faire pour conserver la mise en forme des cellules d'origine ?

Pas moyen avec des formules, il faudrait passer par du VBA.

Ah zut 😖 et en VBA ça donnerait quoi dans ce cas ??

Un truc du genre :

Public Sub Transposer()
    Dim derLigne%, i%
    Worksheets("Feuil1").Activate
    derLigne = Worksheets("Feuil1").Range("A1").End(xlDown).Row
    For i = 0 To Application.WorksheetFunction.Ceiling(derLigne, 10) / 10 - 1
        Range(Cells(1 + i * 10, 1), Cells(10 + i * 10, 2)).Copy Worksheets("Feuil2").Cells(1, 1 + i * 3)
    Next i
End Sub

Merci ça ne fonctionne pas exactement comme ce que je voulais faire mais je vais réussir à m'en sortir et l'adapter pour arriver à mes fins.

Merci 1000 fois