impression feuilles masquees

ERIC S

XLDnaute Barbatruc

• 16 Octobre 2006

• #2

Re : impression feuilles masquees

Bonjour

ce serait plus simple avec un fichier

 

Vote positif 0 Vote négatif

B

biomed

XLDnaute Junior

• 16 Octobre 2006

• #3

Re : impression feuilles masquees

bonjour et merci
voici une partie du fichier
la feuille TYPE est masquee mais il faut savoir qu'apres d'autres feuilles viennent se creer

 

Pièces jointes

• impression.zip

  32.9 KB · Affichages: 25
• impression.zip

  32.9 KB · Affichages: 23
• impression.zip

  32.9 KB · Affichages: 25

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Octobre 2006

• #4

Re : impression feuilles masquees

re

If AvailableSheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableSheet.Name)
Else
End If

constitue ta liste de feuilles si elles sont visibles, si tu les veux toutes

LbFeuilles.AddItem (AvailableSheet.Name)

si tu veux exclure selon un nom

If not AvailableSheet.name = "toto" Then
LbFeuilles.AddItem (AvailableSheet.Name)
End If

tu as plusieurs possibilités mais il faut que tu saches comment choisir les feuilles imprimables ou non

 

Vote positif 0 Vote négatif

B

biomed

XLDnaute Junior

• 16 Octobre 2006

• #5

Re : impression feuilles masquees

merci de ton aide
j'ai essaye d'inclure des code dans la macro, mais cela ne fonctionne pas
les feuilles masquee ne s'affichent pas dans le usf
merci de m'aider encore un peu

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 17 Octobre 2006

• #6

Re : impression feuilles masquees

Bonjour

essai à faire

Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
For Each AvailableSheet In ActiveWorkbook.Worksheets
'If AvailableSheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableSheet.Name)
'Else
'End If
Next AvailableSheet
On Error GoTo 0
End Sub

j'ai mis les 3 lignes du if en commentaire, sur ton fichier exemple du forum, les 2 feuilles s'affichent

 

Vote positif 0 Vote négatif