XL 2016 demasquer colonnes et lignes à l ouverture tous onglets

R

reve24

XLDnaute Occasionnel

• 11 Avril 2018

• #2

Private Sub Workbook_Open()
Dim F_Source As Worksheet

Application.ScreenUpdating = False

For Each F_Source In Worksheets
Cells.Select
Selection.RowHeight = 12.5

Application.ScreenUpdating = False
Range("A1").Select
Next F_Source
End Sub

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 11 Avril 2018

• #3

Voila ma solution ne fonctionnant que sur l onglet actif et
non tous les onglets .

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 11 Avril 2018

• #4

Bonjour,

A essayer dans Workbook :

VB:

Private Sub Workbook_open()

Dim Ws As Worksheet

    For Each Ws In Worksheets
        Ws.Columns.EntireColumn.Hidden = False
        Ws.Rows.EntireRow.Hidden = False
    Next

End Sub

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 12 Avril 2018

• #5

Parfait cela fonctionne
merci jauster

 

Vote positif 0 Vote négatif