Discussion :

[Chtulus]

Bonjour,

J'ai donc une feuille protégée avec seulement certaines cellules accessibles pour écrire des données.

J'ai commencé une procédure "Worksheet_Activate" avec cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("C:C").HorizontalAlignment = xlCenter

Et l'erreur :

Erreur d'exécution '1004'
Erreur définie par l'apliccation ou par l'objet

J'ai aussi essayé uniquement avec les cellules concernées, j'ai tenté un UNION des RANGE concernés, avec et sans protection sur la feuille.

J'ai aussi regardé dans la FAQ, sur internet, dans l'aide et je sèche complétement sur le coup.

J'vais p't'être arrêter de codé pour aujourd'hui parce que là je dois plus voir clair et cela me semble complétement idiot en plus...

[aalex_38]

Bonjour,

Chez moi le code tel quel fonctionne très bien.

J'ai vu un problème similaire, qui vient d'ou ? , ici

[Chtulus]

J'y comprend rien...

Merci pour le lien mais pas mieux...

Marche pas

[aalex_38]

Et juste ce code dans un nouveau classeur ça marche ?

[laetitia]

bonjour Chtulus aalex_38 le forum peut etre comme cela si j ai compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Activate()
Worksheets(1).Unprotect Password:="code"
ActiveSheet.Range("C:C").HorizontalAlignment = xlCenter
Worksheets(1).Protect Password:="code"
End Sub

ps j appel la feuille par son numero dans l ex= (1)
ou tu mets le nom de ta feuille ("feuil1") par exemple

[Chtulus]

Hello,

@laetitia, bien vu, c'est impeccable....

J'aurais du y penser

Bonne semaine à tous