problème effacement d'une feuille à partir d'une autre feuille

[Hugues]

Bonsoir le forum,
J'ai un problème que je ne m'explique pas
A partir de la feuille synthése j'ai positionné un bouton qui active une macro afin d'effacer les données contenues dans une autre feuille

Ci joint le code :

Private Sub export_donnée_Click()

' Définition des variables
Dim ws4 As Worksheet
Dim ws5 As Worksheet

Set ws4 = Sheets("3-synthèse")
Set ws5 = Sheets("essai")

ws5.Range("D17:AW1000").Select
selection.ClearContents
Range("B1").Select


End Sub

Pouvez vous m'aider ?

Merci par avance

 

[Pierrot93]

Re : problème effacement d'une feuille à partir d'une autre feuille

Bonjour Hugues

pas sur d'avoir tout compris, mais essaye peut être comme ceci :

ws5.Range("D17:AW1000").ClearContents

après tout dépend où tu as placé ton code, si c'est dans le module d'une feuille, ou dans un module standard (le plus approprié, à priori).

bonne journée
@+

 

[Hugues]

Re : problème effacement d'une feuille à partir d'une autre feuille

Merci Pierrot , mon code fonctionne avec ton astuce.
Bonne journée