Macro données onglet

[phil87]

Bonjour le forum

Je suis à la recherche d'une modification d'une macro de Boisgontier (que j'ai trouvé dans le forum), afin de pouvoir récupérer les données de tous les onglets sauf "feuil1" et feuil2" dans l'onglet "Base" de mon fichier ci-joint.
En attendant un grand MERCI à tous le monde.

 

[skoobi]

Re : Macro données onglet

Bonjour,

L'ajout en bleu, pas testé:

Sub consolide_ongletsNomOngletCouleur()
 Sheets("base").[A1].CurrentRegion.Offset(1, 0).Clear
 For s = 2 To Sheets.Count [SIZE=3][COLOR=Blue][B]- 2[/B][/COLOR][/SIZE]
   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 + 1).Interior.ColorIndex = _
       Sheets(s).[A2].Interior.ColorIndex
   [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

 

[phil87]

Re : Macro données onglet

Bonjour,

Après la maintenance sur le site, je répond un peu tardivement en te remerciant car le (-2) fonctionne très bien.
Merci encore pour la rapidité et l'efficacité skoobi