Consolidation onglet + nom de l'onglet + enlever les lignes vides

[kabanon]

re-bonjour à tous

Malgré mes recherches sur le forum je n'arrive pas a integrer et/ou a faire fonctionner les exmples trouvés.
Je cherche a consolider les onglets du fichier suivant sur l'onglet "conso".
S'ajoute, en colonne A devant les données le nom de l'onglet.
Sur chaque onglet il peut y avoir 10/15/25 lignes rien de figé.


Ensuite une fois consolidé j'aimerais que de conso à recap (pas le choix) les lignes ou se trouvent les valeurs nulles disparaissent.

Si quelq'un peut m'aider.
In GRAND merci d'avance

 

[Guest]

Re : Consolidation onglet + nom de l'onglet + enlever les lignes vides

Bonjour,

voir dans le classeur joint le bouton "Récap" sur feuille 'Conso'.

A toi d'adapter

A+

 

[kabanon]

Re : Consolidation onglet + nom de l'onglet + enlever les lignes vides

Merci c'est tout a fait l'idée du truc.

J'ai modifié 2/3 truc, mais j'ai toujours un souci.
J'ai abandonné l'idée d'enlever les cellules vides sur l'onglet RECAP.

Un souci cependant, lorsque je rajoute une formule prenant une donnée dans l'onglet "conso" ca me fait sauter mes references. (colonne jane de l'onglet recap qui saute lorsqu' onclique sur le bouton de l'onglet conso)
J'ai mis un exemple ci joint.

merci de votre aide

 

[Guest]

Re : Consolidation onglet + nom de l'onglet + enlever les lignes vides

Bonjour,

Sub Recap()
    Dim sh As Worksheet
    Dim nLignes As Long
    With ThisWorkbook
        .Sheets("conso").UsedRange.ClearContents
        With Sheets("RECAP")
            'N'efface que les colonne A à F
            Intersect(.Columns("A:F"), .UsedRange).ClearContents
        End With
        For Each sh In .Worksheets
            If sh.Name <> "RECAP" And sh.Name <> "conso" Then
                With sh.Range("A1").CurrentRegion
                    nLignes = .Rows.Count
                    .Copy ThisWorkbook.Sheets("conso").Range("B" & sh.Rows.Count).End(xlUp)(2)
                End With
                .Sheets("conso").Range("A" & Rows.Count).End(xlUp)(2).Resize(nLignes).Value = sh.Name
            End If
        Next
        
        With .Sheets("conso")
            .Range("A1").EntireRow.Delete
            .Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("RECAP").Range("A1")
        End With
        'remettre les formules en colonne G de RECAP
         With Sheets("RECAP")
            .Range("G1:G" & Range("A" & .Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(RC[-5]=0,0,conso!RC[-5]+2)"
         End With
       
    End With
End Sub
 
A+

 

[kabanon]

Re : Consolidation onglet + nom de l'onglet + enlever les lignes vides

Merci !

un GRAND MERCI meme !