Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Teste :
Sub test() Dim ws As Worksheet For Each ws In Sheets If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVisible End If Next ws End Sub
Cordialement. Daniel "Peponne31" a écrit dans le message de news:
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment les reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler quelques fonctions.
Bonjour.
Teste :
Sub test()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
ws.Visible = xlSheetVisible
End If
Next ws
End Sub
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D20ABFDD-C1CD-4A11-ADBE-0FB5F139D906@microsoft.com...
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment
les
reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler
quelques fonctions.
Sub test() Dim ws As Worksheet For Each ws In Sheets If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVisible End If Next ws End Sub
Cordialement. Daniel "Peponne31" a écrit dans le message de news:
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment les reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler quelques fonctions.
Peponne31
Je vais faire un essai,merci de ta réponse.
Cordialement Peponne
Bonjour. Teste :
Sub test() Dim ws As Worksheet For Each ws In Sheets If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVisible End If Next ws End Sub
Cordialement. Daniel "Peponne31" a écrit dans le message de news:
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment les reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler quelques fonctions.
Je vais faire un essai,merci de ta réponse.
Cordialement
Peponne
Bonjour.
Teste :
Sub test()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
ws.Visible = xlSheetVisible
End If
Next ws
End Sub
Cordialement.
Daniel
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: D20ABFDD-C1CD-4A11-ADBE-0FB5F139D906@microsoft.com...
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment
les
reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler
quelques fonctions.
Sub test() Dim ws As Worksheet For Each ws In Sheets If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVisible End If Next ws End Sub
Cordialement. Daniel "Peponne31" a écrit dans le message de news:
Bonjour,
Comment savoir s'il y a des feuilles cachées dans un classeur et comment les reactiver.
Merci de bien vouloir me lire et pour vos réponses je commence à assimiler quelques fonctions.