Arrêt de macros sans message d'erreur

Bonjour à tous!

Je travaille depuis un moment sur un document excel avec plusieurs macros.

Ce matin j'ai voulu modifier les trois macros présentes sur une feuille.

La modification effectuée j'exécute les macros une par une et je ne comprends pas pourquoi mais les macros ne s'exécute pas jusqu'au bout. Elles s’arrêtent sans raison et sans message d'erreur.

La plus simple des macros est un bouton RESET

Private Sub CommandButton3_Click()
ActiveSheet.Unprotect ("MDP")
Range("B6").Value = ""
Range("E6").Value = ""
Range("H6").Value = ""
Range("E9").Value = ""
Range("H9").Value = ""
Range("E12").Value = ""
Range("I12").Value = ""
ActiveSheet.Protect ("MDP")
End Sub

Quand je clique sur le bouton associé seule la première cellule (B6) est effacée et la macro s’arrête (en laissant la feuille déverrouill" et les autres cellules remplies).

Idem en mode pas à pas

PS: j'ai essayé sur d'autres feuilles du classeur et idem pour certaines feuilles alors qu'auparavant tout fonctionné.

Quelqu'un à déjà rencontré ce soucis?

Merci d'avance pour les aides que vous pourriez m'apporter

C'est bizarre.. On croirait une gestion d'erreur zélée!

Essais d'ajouter ces lignes en debut de procédure :

Application.displayalerts = true
On error goto 0

ça règlera peut-être le problème!

Yann

Merci pour la réponse mais ça n'a rien changé : seule la première cellule est supprimé et la feuille reste déverrouillée...

J'ai changé l'ordre des cellules dans la procédure et c'est encore la première cellule de la procédure qui est supprimée

Bonjour,

perso, je ne vois pas ..mais j'ai essayé ceci dans un module vba et ça fonctionne:

P.

Option Explicit
Sub mdp()
Dim Rng
ActiveSheet.Unprotect ("MDP")
Set Rng = Union([b6], [e6], [h6], [e9], [e12], [i12])
Rng.ClearContents
ActiveSheet.Protect ("MDP")
End Sub

Merci pour votre réponse,

J'ai essayé le code, enregistré et fermé le document et tout fonctionne.

J'ai réessayé avec le code initial et ça fonctionne.

A croire qu'excel n'était pas prêt à travailler de bon matin par ce froid!

Vraiment étrange....

Merci pour votre aide tout de même !!

Bonjour,

Il n'y a aps de raison que ta procédure ne fonctionne pas.

Tu ne dis pas tout.

Essaie ceci, cependant :

Private Sub CommandButton3_Click()
    With Me
        .Unprotect Password:="MDP"
        .Range("B6,E6,H6,E9,H9,E12,I12").ClearContents
        .Protect Password:="MDP", userinterfaceonly:=True
    End With
End Sub

Si je n'ai rien changé, juste le fait de fermer le classeur et le ré-ouvrir a résolu le problème.

Le plus important c'est que ça fonctionne maintenant!

Merci à tous!

Rechercher des sujets similaires à "arret macros message erreur"