Probleme de sélection range dans macro

[donpopo]

Bonsoir le forum,

Depuis hier, je cherche à résoudre un petit problème dans une procédure. Cette macro sert à effacer un tableau extensible dans une autre feuille.

Voici le résumé de ma procédure:

Private Sub CommandButton7_Click()

Application.ScreenUpdating = False
Sheets("ListeCommande").Unprotect
Sheets("ListeCommande").Range("B5:AN" & [AM65536].End(xlUp).Row - 1).ClearContents
Sheets("ListeCommande").Protect
Application.ScreenUpdating = True

End Sub

Le programme me signale une erreur de type: "erreur 1004, définie par l'application ou l'objet".

Or, j'utilise avec succès cette ligne de commande avec un autre bouton, lui situé directement sur la feuille concernée (ListeCommande).

Y aurait-il une astuce ou ai-je loupé quelque chose?

Merci d'avance pour votre aide.

Donpopo

 

[Pierrot93]

Re : Probleme de sélection range dans macro

Bonjour,

essaye ceci :

with Sheets("ListeCommande")
.Range("B5:AN" & .Range("AM65536").End(xlUp).Row - 1).ClearContents
End With

A noter, vois pas trop pourquoi tu mets row-1.... tu devrais pouvoir enlever le -1

bonne soirée
@+

 

[donpopo]

Re : Probleme de sélection range dans macro

Merci pour vos réponse.

J'ai modifié comme noté par Pierrot93 et cela fonctionne!

Mais je ne saisis pas bien la nuance entre le fait de me servir de with en lieu et place de ma ligne de commande.

Quant au fait d'utiliser AM, c'est la seule colonne susceptible d'être remplie obligatoirement; et le fait de mettre -1, c'est parce que la dernière ligne contient des formules de totaux et ne doit donc pas être effacée.

Merci

donpopo

 

[donpopo]

Re : Probleme de sélection range dans macro

Ok, j'ai bien compris la différence cette fois!

Merci à tous deux pour votre aide.


donpopo