Bonjour j'aurais aimer savoir si il etais possible de faire une macro "generique" avec ma macro
Pour dans l'idee faire comme mais en worksheet change et non active
merci d'avance
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "HJanvier", "BJanvier", "Bilan"))
WS.Unprotect ("azerty")
WS.Calculate
WS.Protect ("azerty"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
Next WS
End Sub
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Cel As Range
Application.ScreenUpdating = False
With Sh
If .Name = "B" & .Range("A1") Then
For Each Cel In Sh.Range("B8:CA8")
If Not IsError(Cel) Then Cel.EntireColumn.Hidden = Cel = ""
Next Cel
End If
End With
Application.ScreenUpdating = True
End Sub
merci d'avance