bouton RAZ

[niala]

Bonjour à tous,

J'ai dans un classeur dans une feuille un bouton RAZ qui efface certaines cellules:
EX: Private Sub CommandButton1_Click()
Sheets("sejour").Select
Range("B3").Select
Selection.ClearContents
Range("C3").Select
Selection.ClearContents

J'aimerai que ce même bouton efface en même temps des cellules par exemple F3:F10 sur une autre feuille
Avez-vous la solution?

Merci d'avance
Alain

 

[Pierrot93]

Re : bouton RAZ

Bonjour,

modifie le code peut être ainsi :

Private Sub CommandButton1_Click()
Sheets("sejour").Range("B3:C3").ClearContents
Sheets("AutreFeuille").Range("F3:F10").ClearContents
End Sub

bonne journée
@+

Edition : bonjour Dull🙂

 

[Dull]

Re : bouton RAZ

Salut niala, le Forum

Peut-être comme cela

Private Sub CommandButton1_Click()
Sheets("sejour").Range("B3:C3,F3:F10").ClearContents
End Sub

EDITION:Salut Pierrot 🙂, arffff... Autre feuille... désolé ai mal lu mais Pierrot t'a donné la réponse 🙂
Bonne Journée

 

[niala]

Re : bouton RAZ

Grand merci Pierrot
Ca marche
bonne journée

 

[Staple1600]

Re : bouton RAZ

Bonjour à tous

Une version avec macro paramétrable

Private Sub CommandButton1_Click()
EffaceMoi "Feuil2", "B3:C3"
EffaceMoi "Feuil3", "F3:F10"
End Sub

Private Sub EffaceMoi(Feuille$, Plage$)
Sheets(Feuille).Range(Plage) = Empty
End Sub

PS: Le CommandButton1 est sur la Feuil1 (et les code VBA aussi)

 

[MJ13]

Re : bouton RAZ

Bonjour à tous

On peut aussi nommer une zone multi-sélection ex(Plage) en écrivant dans la zone à gauche de l'éditeur de cellule.

Puis ce code:

Private Sub CommandButton1_Click()
Sheets("sejour").Range("Plage").ClearContents
End Sub