XL 2019 feuille qui se déprotège après saisie dans une cellule

[pat66]

Bonjour Le forum

J'ai besoin de votre aide

Ma feuille protégée se déprotège dès que je modifie une valeur dans une cellule, et que j'appuies sur entrée

Cette action n'a pas de macro, seulement un calcul automatique

Merci
Bonne journée

 

[Claudy]

Bonjour,
sans fichier, ?????
A+
Claudy

 

[Claudy]

Vas voir dans le code de ta feuille,
surement une macro événementielle dans le genre:

A+
Claudy

 

[pat66]

Bonjour Claudy

effectivement je me suis gourré dans les "IF"

un grand merci pour ton conseil
une belle journée

Patrick66

 

[Claudy]

Re bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE5")) Is Nothing Then
Select Case Range("AE5")
Case Is = 9
Exit Sub
Case Is <> 9
zaza = MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo + vbQuestion, "Excel")
If zaza = vbYes Then
Range("AS17") = 0
Range("AE5") = 9
Columns("AT:AT").EntireColumn.Hidden = True
Else
Exit Sub
End If

End Select

End If
End Sub

A+
Claudy

 

[pat66]

Bonjour Claudy

c'est presque çà, sauf que si je clique sur "non" dans le message box, la valeur dans AE5 change quand même, il faudrait la valeur saisit dans l'userform ne soit pas prise en compte

En clair
SI AE5 = 9 , rien ne se passe
Si dans l'userform je choisit autre que 9 "ex : 12",
MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zéro ! ",

SI clic sur NON : rien ne se passe, rien ne change, la procédure est annulée et AE5 conserve la même valeur
SI clic sur OUI
AS17 = 0
AE5 = 9
SI la Colonne AT est affichée : on la masque
SI la colonne AT est masquée : elle le reste

un grand merci à toi pour ton aide et ta disponibilité

Patrick

 

[Claudy]

Bonsoir,
j'ai essayé et ça fonctionne!
As tu placé la procédure

Private Sub Worksheet_Change(ByVal Target As Range)

dans la bonne feuille?
Si tu as plusieurs feuilles, il faut coller la procédure

Private Sub Worksheet_Change(ByVal Target As Range)

dans chaque code de feuille.
A+
Claudy

 

[pat66]

oui mais en fait j'ai oublié de te dire que j'ai aussi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AE5")) Is Nothing Then
UserForm1.Show
End If
End Sub

a mon avis c'est cela qui annule la saisie dans AE5 en cas de clic sur non ??

Patrick

 

[Claudy]

Soir,
tu dois utiliser:

Private Sub Worksheet_Change(ByVal Target As Range)

et non pas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

C'est quoi ton userform1?
Capture d'écran?
A+
Claudy

 

[pat66]

non c'est un userform que j'ai crée en vba et qui donne le choix (6,9,12,12,20)

 

[Claudy]

Ok bonne soirée.😎