A voir également:
- Private sub worksheet_change(byval target as range) ne fonctionne pas
- Private sub worksheet_selectionchange(byval target as range) ✓ - Forum Programmation
- Input signal out of range ✓ - Forum Matériel informatique
- Vba range avec variable ✓ - Forum VB / VBA
- D-sub out of range - Forum Matériel informatique
- Range ip ✓ - Forum Windows
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
Modifié le 3 mars 2021 à 18:15
Modifié le 3 mars 2021 à 18:15
Bonjour,
1 - Il ne faut pas désactiver les évènements en fin de procédure mais avant la boucle et surtout les réactiver après la boucle .
2 - Il suffit de déprotéger une seule fois avant la boucle.
Cordialement
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
1 - Il ne faut pas désactiver les évènements en fin de procédure mais avant la boucle et surtout les réactiver après la boucle .
2 - Il suffit de déprotéger une seule fois avant la boucle.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUpdating = True
Me.Unprotect ("mdp")
Application.EnableEvents = False
For Each c In Intersect(Target, Range("A:A"))
c.Offset(, 1) = Format(Date, "dd/mm/yy")
Next
Application.EnableEvents = True
Me.Protect ("mdp")
End If
End Sub
Cordialement
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Modifié le 3 mars 2021 à 19:00
Merci encore pour la réponse et la rapidité.
:D