[E-02] Problème avec Horizontalalignment

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:

---

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

---

Et l'erreur :

Citation:

---

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... :oops:

Bonjour,

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

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

J'y comprend rien... :mur:

Merci pour le lien mais pas mieux...

Marche pas :aie:

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

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

Code:

---

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

Hello,

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

J'aurais du y penser :oops:

Bonne semaine à tous

;)