Re : Erreur d'exécution '-2147417848 (80010108)': Erreur Automation
Bonjour à tous,
je suis dans le même cas de Sebalf : j'ai une macro qui fonctionne très bien en 97 et 2002 mais qui me renvoie "Erreur d'éxécution '-2147417848 (80010108)' ; La méthode 'Hidden' de l'objet 'Range' a échoué" en Excel 2007.
Merci par avance pour votre aide
Macro utilisée :
Private Sub Worksheet_Calculate()
If Range("J7") = 12 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:36").EntireRow.Hidden = False
Rows("37:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 15 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:39").EntireRow.Hidden = False
Rows("40:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 20 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:44").EntireRow.Hidden = False
Rows("45:174").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
If Range("J7") = 150 Then
ActiveSheet.Unprotect Password:="1234"
Rows("1:174").EntireRow.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End If
End Sub