Appel macro erreur [Résolu]

[d0n32]

Bonjour à toutes et à tous,

Il m'arrive quelque chose d'assez mystérieux, je vous le soumets !
Après ouverture de mon classeur, j'exécute le code suivant pour "nettoyer" certaines cellules:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ReinitialiserTout()
ActiveSheet.Unprotect ("test")
 
With Range("A6:G21")
    .UnMerge
    .ClearContents
    .Interior.ThemeColor = xlThemeColorDark1
End With
 
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Une erreur 400 apparaît, au niveau de ".UnMerge" (ou ".ClearContents" si je mets Unmerge en commentaire).
Maintenant, si je lance ensuite la macro suivante:

Code :

1
2
3
4
5
6
7
8
9
 
Sub genererLignesDonnees()
Worksheets(3).Protect Password:="test", UserInterfaceOnly:=True
 
Call ReinitialiserTout
 
[...]
 
End Sub

Je n'ai plus d'erreur associée à l'exécution de ReinitialiserTout!
Enfin, si je continue à utiliser mon classeur et que je reviens "plus tard" lancer ReinitialiserTout, ça fonctionne impec'...

Pourquoi donc cette erreur après ouverture du classeur, au lancement de la macro ?

Si vous avez un avis, je suis preneur
Merci d'avance !

[BlueMonkey]

Bonsoir,

Pourquoi donc cette erreur après ouverture du classeur?

Dans quelle évènement est appelé ReinitialiserTout() ?
Dans Workbook_Open() du classeur ou bien sur un Worksheet_Activate d'une feuille ?

Peut être que l'erreur est liée au fait que ligne 5 "With Range("A6:G21")", le Range n'est associé à aucune feuille.
Est-ce qu'avec ce code ci-dessous, l'erreur est la même ?

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub ReinitialiserTout()
    ActiveSheet.Unprotect ("test")
 
    With ActiveSheet.Range("A6:G21")
       .UnMerge
       .ClearContents
       .Interior.ThemeColor = xlThemeColorDark1
    End With
 
    ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Est-ce que c'est volontaire de toujours utiliser la 3ème feuille dans genererLignesDonnees(),
alors que ReinitialiserTout() travaille sur la feuille courante ?

[d0n32]

Merci pour ta réponse !
Cette modification ne change pas l'erreur, mais rend le code plus cohérent.
ReinitialiserTout() est appelé sur une feuille (à savoir la 3ème, tout comme genererLignesDonnees()) , après clic sur bouton.

[d0n32]

De manière assez mystérieuse, la commande suivante permet de se passer du message d'erreur:
Remplacer

Code :

1
2
3
4
5
6
 
Sub ReinitialiserTout()
ActiveSheet.Unprotect ("test")
 [...]
 ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

par

Code :

1
2
3
4
5
 
Sub ReinitialiserTout()
Worksheets(3).Protect Password:="test", UserInterfaceOnly:=True
 [...]
End Sub

Si quelqu'un peut m'expliquer en quoi cela pouvait être source d'erreur..
Merci