Discussion :

[alsimbad]

bonjour tout le monde
un petit iatus que je ne comprend pas.
dans une feuille protégée, j'ai un petit compteur dont la ligne de code est hyper simple

Code :

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

1
2
3
4
 
Sub Compteur84_QuandChangement()
Cells(3, 7) = Cells(1, 7)
End Sub

les cellulles en question sont dévérouillées ainsi que le compteur et la cellule qui contient le compteur
et pourtant, des que ma feuille est protégée, hé ben y veut pas. 'cette feuille est protégée par le menu protection ....
j'ai bien sur essayée unprotect et protect, mais le vérrouillage joue avant l'execution de la macro.
qu'ai je oublié ?
j'édite, j'ai du neuf, encoreplus incomprehensible. en essayant ça

Code :

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

1
2
3
4
5
6
 
Sub Compteur84_QuandChangement()
Worksheets("Calcul complets").Unprotect
Cells(3, 7) = Cells(1, 7)
 
End Sub

j'ai le message d'erreur, puis la macro dévérouille et s'execute
je suis perplexe
edit bis: ça passe pas avec ça non plus

Code :

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

1
2
3
4
 
On Error Resume Next
Worksheets("Calcul complets").Unprotect
Cells(3, 7) = Cells(1, 7)

[tirex28]

Bonsoir,

Un petit fichier peut etre?

Cordialement,

Tirex28/

[Mytå_Qc]

salut le forum

Et l'aide de UserInterfaceOnly

Aide sur Protect et UserInterfaceOnly
Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.

Code :

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

1
2
3
Private Sub Workbook_Open()
Sheets("Feuil1").Protect UserInterfaceOnly = True
End Sub

A adapter pour le nom des feuilles

Mytå_Qc

[Daranc]

Bonjour
ton code il est bien dans le code de la feuille ?
Alt-f11
double clique sur la feuille dans l'explorateur de projet
sélection de Worksheet
et dans les choix Change
de façon a obtenir

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

pour une macro evenementielle
(voir les tutos de SilkiRoad)
Daranc

[alsimbad]

non, ce n'est pas ça

Code :

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

Sheets(1).Protect UserInterfaceOnly = True

true ou false = pas de changement. la feuille est protégée, mais le compteur ne fonctionne toujour pas sans me demander d'oter la protection

[Daranc]

et en ne protégeant pas la cellule qui contient le compteur (decocher portection dans l'onglet format de cellule ) garder une autre cellule dans la feuille comme véritable compteur et renvoyer celle-ci par = compteur
Daranc