generer autant de feuille

[jp]

Bonjour a tous,



je cherche a generer autant de feuille que point batiment present dans le filtre automatique?


voir fichier ci joint
Merci pour votre aide

Jp

 

[Benji]

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/08/2004 par houotb
'
Dim R As Range
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Set R = Selection
For i = R.Rows(1).Row To R.SpecialCells(xlCellTypeLastCell).Row
Sheets.Add after:=Sheets(Sheets.Count)
Next

Set R = Nothing
End Sub

 

[carole]

Salut Jp,

En fait, ton problème m'intéresse, car je voudrais moi même pouvoir cacher des lignes qui ne me servent pas toujours afin de gagner de la place.
Ton problème, ici est il bien de choisir un certain nombre de données sans afficher les données qui n'ont pas été choisies?
Par contre, je ne vois pas comment réafficher les données que l'on ne voit plus après utilisation de Macro1 de benji...

Desolee pour la fausse joie que j'aie du te faire , toi pensant, chouette, un pro va répondre à ma question!!! Moi aussi ,je suis là pour apprendre

allez++ et longue vie à exceldownloads qui m'en apprend chaque jour davantage!!

Carole