Foufoudora
XLDnaute Occasionnel
Bonjour le Forum,
je sollicite votre aide sur une macro qui devrait verifier a l'ouverture du fichier la cellule H11 de chaque feuille si elle est vide, cette cellule contient une formule; si elle est vide de masquer les colonnes de G:L
fichier joint
Private Sub Workbook_Open()
Dim temp()
Dim I As Single, j As Single
ReDim temp(1 To Sheets.Count)
j = 1
For I = 1 To Sheets.Count
temp(j) = Sheets(I).Name
If Sheets(j).Cells(11, 8).FormulaR1C1 = "" Then
Columns("G:L").Select
Selection.EntireColumn.Hidden = True
Next I
End Sub
Merci pour votre aide
je sollicite votre aide sur une macro qui devrait verifier a l'ouverture du fichier la cellule H11 de chaque feuille si elle est vide, cette cellule contient une formule; si elle est vide de masquer les colonnes de G:L
fichier joint
Private Sub Workbook_Open()
Dim temp()
Dim I As Single, j As Single
ReDim temp(1 To Sheets.Count)
j = 1
For I = 1 To Sheets.Count
temp(j) = Sheets(I).Name
If Sheets(j).Cells(11, 8).FormulaR1C1 = "" Then
Columns("G:L").Select
Selection.EntireColumn.Hidden = True
Next I
End Sub
Merci pour votre aide
Pièces jointes
Dernière édition: