effacement de donner

[angoul]

bonjour,
j'ai creer un bouton qui me permet d''effacer sur une feuille des données automatiquement. Le probleme c'est qu'il efface bien les données mais sur la l'onglet ou je suis dans ma feuille. J'aimerai qu'il efface juste sur mon onglet "toto", meme si je suis sur l'onglet "titi"
merci de votre aide

"Private Sub btremisezero_Click()
Dim Msg, Style, Title, Response
Msg = " Avez vous sauvegarder!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Unload Me
FrmCaisse.Show
Range("A2:I20").Select
Selection.ClearContents
Range("A2").Select
End If
End Sub"

cordialement

 

[Guest]

Re : effacement de donner

Bonjour,

remplacer

Range("A2:I20").Select
Selection.ClearContents
Range("A2").Select

Par
Sans sélection de la plage

Sheets("toto").Range("A1:I120").ClearContents

Avec sélection

Sheets("toto").range("A1:I120").Select
Selection.ClearContents
Sheets("toto").Range("A2").Select

Ou

With Sheets("toto")
     .range("A1:I120").Select
     Selection.ClearContents
     .range("A2").Select
End With

A+

 

[angoul]

Re : effacement de donner

merci sa marche nickel