Discussion :

[maximeozenne]

Bonjour à tous !

J'ai créé une macro Excel contenu dans un module1, très basique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Suppression()
'
' Suppression Macro
'
 
    ThisWorkbook.Sheets(2).Range("A7:XFD1048576").Select
    Selection.Clear
End Sub

Cette macro est appelé par un bouton se trouvant sur cette fameuse feuille 2.

Maintenant j'essaye d'appeler cette macro depuis la feuille 1. Et là, ça ne fonctionne plus... ça me dit que la méthode Select de la classe Range a échoué.

Comment je dois m'y prendre pour pouvoir appeler cette fonction de n'importe où ? (Entre autre je tente de l'appeler lors d'un changement sur la feuille 1)

Merci de votre attention.

[casefayere]

Bonjour,
essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Suppression()
'
' Suppression Macro
'
 
    ActiveSheet.Range("A7:XFD1048576").Clear
End Sub

[maximeozenne]

Merci de ta réponse,

Néanmoins je ne veux pas supprimer sur la feuille active, mais je veux pouvoir supprimer le Range de la feuille 2 proposé plus haut depuis n'importe quelle autre feuille du classeur

Avec ta technique je devrais surement faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(2).Activate

, puis empêcher le ScreenUpdating pour que l'utilisateur ne voit pas les changements de feuille, mais je trouve ça un peu lourd, je pense qu'il y a une solution plus simple non ? J'espère que c'est possible et que ça n'est qu'une simple erreur de syntaxe...

[casefayere]

Non, justement, ni de "Select" ni de "Activate"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Suppression()
'
' Suppression Macro
'
 
    Sheets("nom de la feuille concernée").Range("A7:XFD1048576").Clear
End Sub

[unparia]

Bonjour

Passe donc la feuille à traiter en paramètre de ta procédure et utilise ce paramètre en lieu et place de ton worksheets(2)
et dans la foulée, évite ce vilain select :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ThisWorkbook.Sheets(2).Range("A7:XFD1048576").Select
    Selection.Clear

agis directement, ainsi (Si ton paramètre feuille passé est F :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F.Range("A7:XFD1048576").ClearContents

ou Clear, selon ce que tu veux faire en fait

[maximeozenne]

Ah oui exact je n'avais pas vu ça comme ça, ça fonctionne ! Merci

[jerome.vaussenat]

Salut,

Tu peux directement faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(2).Range("A7:XFD1048576").Clear

De cette manière, tu n'es pas obligé de passer sur la feuille pour effacer le contenu !

Oups : trop tard

[maximeozenne]

@unparia Merci de ta réponse, la feuille 2 étant constante j'ai adopté la méthode de @casefayere. Mais bonne idée je la note dans un coin !

@jerome.vaussenat c'est comme ça que je m'y suis pris, merci !

[Philippe Tulliez]

Bonjour,
Sauf quelques cas exceptionnel, en VBA les méthodes Select, Activate ainsi que l'objet Selection sont à proscrire.
Cette ligne suffit pour effacer la plage de la feuille 2 du classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets(2).Range("A7:XFD1048576").Clear

Je rajouterais que c'est tout de même dangereux d'utiliser le numéro d'indice de la feuille. En effet si l'utilisateur déplace ou insère une feuille avant la deuxième, celle-ci deviendra la troisième.
Il est préférable d'utiliser le nom de la feuille et mieux encore son CodeName

[EDIT]
Désolé Jérôme, au moment de rédiger ma réponse, la tienne n'était pas encore visible et je n'avais pas lu non plus la réponse de Dominique

[maximeozenne]

Merci Philippe, dans le cas de mon développement aucune feuille ne viendra à être ajouté, les utilisateurs ne rentreront que des données sur la feuille 1 et n'auront pas accès à la deux, ils cliqueront simplement sur un bouton. Le codeName est inchangeable ? Car dans le cas du nom de la feuille c'est comme pour l'indice, si il la renomme le code ne fonctionnera plus...

[casefayere]

Il est préférable d'utiliser le nom de la feuille

c'est bien ce que j'ai proposé

et mieux encore son CodeName

entièrement d'accord

[Philippe Tulliez]

Bonjour,
Justement la propriété CodeName d'une feuille est un nom visible dans la fenêtre des propriétés de la feuille.
Si l'utilisateur renomme la feuille, le CodeName reste inchangé

[kiki29]

Salut, et si cela ne suffisait pas il y a aussi ceci..... bis repetita placent

[maximeozenne]

Merci beaucoup pour vos réponses !