fusion de plusieurs listes dans une feuille

[farno]

au secours je craque !

je dois fusionner plusieurs listes en une seule (total trimestre) et je voudrais éviter les copier/coller, ... fastidieux et abrutissant.

Merci d'avance pour votre aide

 

[jean charles henry]

Bonjour

Pourriez-vous joindre un exemple de vos listes.

amicalement

Au revoir

 

[farno]

je joins à nouveau le fichier, espère qu'il arrivera
Merci [file name=forum_20050620153556.zip size=2979]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/forum_20050620153556.zip[/file]

 

[Celeda]

Bonjour,

Ce que je comprends ici, c'est que tu veux 'fusionner' tes listes pour connaître le total du trimestre.

Ce que j'ai fait en respectant ta disposition de ta bd, donc en ne touchant rien (comme cela si tu veux continuer sur ta lancée, tu peux), je propose un TCD sur plusieurs plages.

Et on obtient directement le montant.

Celeda [file name=TotalTrimestre.zip size=36302]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TotalTrimestre.zip[/file]

 

[jean charles henry]

rebonjour

Vous devriez indiquer en feuille 2 de votre fichier, le résultat escompté.

ainsi vous faciliteriez ma compréhension.

Au revoir.

 

[jean charles henry]

rebonjour farno
bonjour celeda

En reprenant la meme idée que celeda, la meme chose par macro :

Sub triertableau()
Dim tabresultat()
Dim i As Integer
Dim j As Integer
Dim c As Integer
Dim x As Integer

x = 1
c = 2

For i = 2 To 6 Step 2
c = c + 1
    For j = 1 To Cells(65536, i).End(xlUp).Row
        ReDim Preserve tabresultat(1 To 6, 1 To x)
        tabresultat(1, x) = Cells(j, i)
        tabresultat(c, x) = Cells(j, i + 1)
        x = x + 1
    Next j
Next i
Sheets('feuil1').Range('a1').Resize(UBound(tabresultat, 2), UBound(tabresultat, 1)) = Application.Transpose(tabresultat)

End Sub

Je pense quand meme que le TCD proposé par celeda est plus pratique pour réaliser vos souhaits.

Au revoir