Discussion :

[Milkaman]

Bonjour à tous,

Dans un fichier excel que j’essaie de reprendre, une erreur apparait lorsque je clique sur un bouton :
"Erreur d’exécution 1004 : La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée. Pour y apporter des modifications, cliquez sur ôter ...."

Le but de l'action et d'enregistrer une configuration de colonne choisie, et le message apparait lorsque je valide le nom de cette nouvelle configuration.
La fonction est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton6_Click()
If Projets_ref_list.ListCount > 0 Then
With Config_sheet
Dim i As Integer
Dim c As Integer
c = 1
While .Cells(1, c) <> ""
c = c + 1
Wend
Dim nom_config As String
nom_config = InputBox("Rentrer le nom de la configuration !", "NOUVELLE CONFIGURATION")
.Cells(1, c) = nom_config
For i = 0 To Projets_ref_list.ListCount - 1
.Cells(i + 2, c) = Projets_ref_list.List(i, 1)
Next
End With
End If
End Sub

le problème détecté : " .Cells(1, c) = nom_config" (la valeur de C à ce moment la est correcte j'ai vérifié avec un espion)
A savoir que tout marchait avant, donc je pense que le problème est due à un renommage du fichier ou quelques chose comme ça.

A savoir que j'ai désactivé les protection macro et classeur, donc je ne vois pas quelle protection il reste.

Est ce que quelqu'un aurait une idée ???

Mon fichier étant confidentiel je ne peux par contre pas partager plus de code que ca.

Merci d'avance

[joe.levrai]

Bonjour,

le message est assez clair : la feuille où tu veux écrire est protégée et la cellule où tu veux écrire est verrouillée (quand la feuille est protégée)

il faut donc déprotéger la feuille lors du traitement (quitte à la re protéger ensuite)

[Milkaman]

Bonjour

J'ajoute ActiveSheet.Unprotect au debut de mon code et ActiveSheet.Protect à la fin, mais cela ne marche toujours pas et me met le même msg d'erreur

Savez vous quelle commande rajouter ?

Merci d'avance

[Milkaman]

C'est bon j'ai trouvé

La fonction ActiveSheet.Unprotect ne marchait pas car mon code renvoyait à la feuille Config_sheet, qui n'était pas celle sur laquelle se trouvait le code.

Donc Config_sheet.Unprotect marche ... tout simplement

Ce qui reste étrange c'est que sur ma version précédente d'office ce code marchait..


Merci