consolidation d'onglet

[jaba]

Bonjour,

je suis débutante en excel et je voudrais savoir si il existe un moyen (sur excel 2007) de :

1- Consolider plusieurs onglets d'un fichier dans un même onglet ( c'est à dire les mettres les uns après les autres) en enlevant les étiquettes de chaque onglet.
Les tableaux des ongletrs sont de taille identique ( même nombre de colonnes)

2- Consolider plusieurs fichiers en un. ( chaqu fichier contient un onglet, je voudrais que tous ls onglets apparaissent dans un même fichier

Merci beaucoup d'avance pour votre aide!

 

[nath009]

Re : consolidation d'onglet

je comprends pas bien ce que tu veux dans le point 1.

Tu veux prendre les données qui sont dans l'onglet 2 et les mettres à la suite des données présentes dans l onglet 1?

Pour le point 2, oui c'est possible, il suffit d'ouvrir ton fichier principal, puis les autres et recopier les données d'une feuille vers l'autre :

tu peux t'insipirer de cela :

        If Dir(gStrCheminCOMPTA + "\" + gStrAnneeTraitee + "\compta\suiviana\" + gStrNomFic + ".xlsm") <> "" Then
            Workbooks.Open Filename:=gStrCheminCOMPTA + "\" + gStrAnneeTraitee + "\compta\suiviana\" + gStrNomFic + ".xlsm"
        Else
            MsgBox "Le fichier " & gStrNomFic & " est introuvable " & vbLf & "Chemin : " & gStrCheminCOMPTA + "\" + gStrAnneeTraitee + "\compta\suiviana\" + gStrNomFic + ".xlsm"
            GestionSuivi = False
            Application.StatusBar = ""
            Exit Function
        End If

 RecopierDansSuiviAna pStrNomContrat, gStrNomFic

puis

Public Sub RecopierDansSuiviAna(pStrNomContrat As String, pStrNomFic As String)

...

    For Each cell In WsVentilation.Range("VentilListeContrat")
        If UCase(cell) = UCase(pStrNomContrat) Then
            With Workbooks(pStrNomFic & ".xlsm").Worksheets("Suivi")
                intDernLigColA = intDernLigColA + 1
                .Rows(intDernLigColA).Insert Shift:=xlDown
                .Range("A" & intDernLigColA) = strMois                                      'mois
                .Range("B" & intDernLigColA) = WsVentilation.Range("A" & (cell.Row))        'Collaborateur
                .Range("C" & intDernLigColA) = WsVentilation.Range("F" & (cell.Row))        ' NBj
                .Range("D" & intDernLigColA) = WsVentilation.Range("P" & (cell.Row))        ' TJM
                .Range("E" & intDernLigColA) = WsVentilation.Range("Q" & (cell.Row))        ' CA  cdf
                .Range("F" & intDernLigColA) = WsVentilation.Range("R" & (cell.Row))        ' CA Frais
                .Range("G" & intDernLigColA) = WsVentilation.Range("T" & (cell.Row))        ' CA dir
                .Range("H" & intDernLigColA).FormulaLocal = "=G" & intDernLigColA & "+F" & intDernLigColA & "+E" & intDernLigColA  ' CA total
                .Range("I" & intDernLigColA) = WsVentilation.Range("W" & (cell.Row))        'Facture
                
                .Range("J" & intDernLigColA).FormulaLocal = "=" & strIf & "(H" & intDernLigColA & "-I" & intDernLigColA & ">0;H" & intDernLigColA & "-I" & intDernLigColA & ";0)" 'tec
                .Range("K" & intDernLigColA).FormulaLocal = "=" & strIf & "(I" & intDernLigColA & "-H" & intDernLigColA & ">0;I" & intDernLigColA & "-H" & intDernLigColA & ";0)"  ' Fact av
    
                .Range("M" & intDernLigColA) = WsVentilation.Range("NbJoursPot")        ' pot
                '.Range("N" & intDernLigColA) = WsVentilation.Range("B" & (cell.Row))        ' salaire
                .Range("O" & intDernLigColA).FormulaLocal = WsVentilation.Range("F" & (cell.Row)) + WsVentilation.Range("G" & (cell.Row))        ' imp
                .Range("P" & intDernLigColA).FormulaLocal = "=" & strIf & "(M" & intDernLigColA & "=0;0;N" & intDernLigColA & "/M" & intDernLigColA & "*O" & intDernLigColA & ")" 'Cout sal
                
                .Range("Q" & intDernLigColA) = WsVentilation.Range("S" & (cell.Row))        ' cout frais
                .Range("R" & intDernLigColA) = WsVentilation.Range("U" & (cell.Row))        ' cout div
                .Range("S" & intDernLigColA).FormulaLocal = "=P" & intDernLigColA & "+Q" & intDernLigColA & "+R" & intDernLigColA   'cout total
                .Range("T" & intDernLigColA).FormulaLocal = "=" & strIf & "(S" & intDernLigColA & "=0;0;" & "H" & intDernLigColA & "/S" & intDernLigColA & ")" ' ratio
            End With
        End If
    Next cell

...

 

[job75]

Re : consolidation d'onglet

Bonjour le fil,

Ca c'est du code nath009 😉

Un code sûrement pas aussi joli sur ce fil :

https://www.excel-downloads.com/threads/macro-pour-concatener-plusieurs-onglets.120620/

Si l'on veut copier dans un autre fichier, il suffit de préciser le nom du fichier quand on définit la feuille copiée.

A+