gestion des erreurs pour Private Sub Worksheet_Change(ByVal Target As Range)

  • Initiateur de la discussion Initiateur de la discussion satwaf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

satwaf

XLDnaute Occasionnel
bonjour à tous
à chaque jour suffit sa peine, donc me revoila aujourd'hui avec un nouveau probleme
je m'explique, sur une feuille de mon classeur, j'ai mis en place une macro me permettant de surveiller que la cellule que je modifie n'appartient pas a une plage nommée, si tel est le cas une boite de dialogue apparait pour me demander le motif de ma modification, jusque la tout va bien, par contre si je selectionne dans ma feuille plusieurs cellules, et que je veuille les coller sur un autre emplacement, tout se bloque, je suis obligé de fermer excel. je pense que je n'ai pas su gerer les erreurs mais je ne sais pas quel commandes je dois inserer ni ou, alors peu etre que vous pouvez m'aider?



Dim monadresse As String
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
monadresse = ActiveCell.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'verification pour savoir si la cellule qui vient d'être modifiée appartient bien
'à la zone form_zone_modif si oui son numero de colonne ne doit pas etre inférieur
'à 4 pour etre pris en compte
Application.ScreenUpdating = False
If ActiveCell.Column < 4 Then
Exit Sub
Else
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("form_zone_modif")) Is Nothing Then
ActiveSheet.Unprotect Password:="bpe2010"
Adresse = ActiveCell.Address
Range("form_cell_active").Value = monadresse
CommandButton1_Click
ActiveSheet.Protect Password:="bpe2010"
End If
End If
End Sub
 
Re : gestion des erreurs pour Private Sub Worksheet_Change(ByVal Target As Range)

merci pour vos réponses, je viens de tester et cela ne fonctionne pas, j'ai donc mis le code au debut de ma procedure, et si je vais dans ma feuille, je selectionne deux cellules que je copie, je selectionne ensuite une autre cellule, qui ne se trouve pas dans la form_zone_modif, et des que je colle les valeurs, excel plante
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
350
Réponses
4
Affichages
156
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
251
Retour