Re : Récapitulatif de plusieurs feuilles de même format
remarquable c'est le cas !!
Merci pour la source!
Cela dit j'ai un petit soucis quand j'applique cette macro :
Sub consolide_ongletsNomOnglet()
Sheets("base").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
C'est l'avant dernière du site.
En effet dans mes onglets de données j'ai fait glisser des formules, du coup dans le récap j'obtiens un paquet de lignes vides entres les données de chaque onglets. C'est possible de ne pas inclure une ligne de donnée si le premier champs de la première colonne est vide ?
C'est vrai que j'aurais aimé me passer de macros, mais celle-ci arrange bien les choses, seul hic, c'est de devoir cliquer sur le bouton a chaque fois pour actualiser la base.