Problème avec un sub dans une feuille (Excel) Résolu/Fermé

Question

Bonjour à tous,

Voilà je rencontre un petit problème avec un méthode que j'aimerai placer dans chacune de mes feuilles. Il s'agit d'une méthode qui efface une partie du contenu de la feuille. Cette méthode sera appellée par un Userform.

Voici le code tout simple placé dans le code de la feuille :

Sub Clear()
ActiveWorkbook.Sheets("Communes - Gemeinden").Unprotect MDP 'MDP est le mot de passe de la feuille
Sheets("Communes - Gemeinden").Range("A2:C" & Sheets("Communes - Gemeinden").Cells(1, 4).Value).ClearContents ' Sheets("Communes - Gemeinden").Cells(1, 4).Value) représente la dernière ligne pleine
End Sub

Ce que je trouve étrange c'est que c'est la première ligne qui me renvoie un erreur "1004 depuis Excel dans un MSGBOX et non depuis Editeur VBA (pas la possibilité de "FIN" ou de "DEBOGUER".

Est-ce que l'erreur vient du fait que le sub est placé dans une feuille ? Est-ce que qqun aurait une solution pour que ça fonctionne ?

Merci à tous !

Iama · Answer

Bonjour

A tout hasard, peux-tu modifier le nom de ta macro, il me parait très proche du nom d'une fonction

cordialement

quent · Answer

bonjour,

oui c'est normale que ca beug car on ne peut pas mettre un sub dans une feuille.
ce qu'il faut mettre depends de l'action qui va declencher ta macro (par exemple quand tu modifie une cellule ou alors quand tu change la selection). tu peux voir les differentes possibilitées quand tu vas dans la feuille, en cliquant sur la barre en haut a gauche (par default il y a general) et tu selectionne worksheet puis tu clique sur la barre en haut a droite (par default c'est selectionchange) et la tu a toutes les possibilitées et quand tu clique sur une il va rajouté 2 nouvelles lignes et tu met ton code entre ces deux lignes

borntobealive · Answer

Du coup tu peux déplacer ta sub vers un module :-)

cs_Le Pivert · Answer

Bonjour,

Pour ce que tu veux faire, il ne faut pas ta macro dans la feuille.

Il suffit de mettre ceci dans le bouton de l'UserForm:

Option Explicit
Private Sub CommandButton1_Click()
nettoyer_feuil1
nettoyer_feuil2
End Sub
Private Sub nettoyer_feuil1()
ActiveWorkbook.Sheets("Feuil1").Unprotect "MDP" 'MDP est le mot de passe de la feuille
Sheets("Feuil1").Cells(1, 4).ClearContents
ActiveWorkbook.Sheets("Feuil1").Protect "MDP"
End Sub
Private Sub nettoyer_feuil2()
ActiveWorkbook.Sheets("Feuil2").Unprotect "MDP" 'MDP est le mot de passe de la feuille
Sheets("Feuil2").Cells(1, 4).ClearContents
ActiveWorkbook.Sheets("Feuil2").Protect "MDP"
End Sub

cs_Le Pivert · Answer

voilà pour effacer toutes les données d'une feuille:

ThisWorkbook.Sheets("Feuil1").Cells.Clear 'a adapter

Problème avec un sub dans une feuille (Excel)

5 réponses

Discussions similaires