vider une zone nommée dans une autre feuille

Bonjour à tous,

Je suis débutant, donc je pose des questions de débutant... faut s'y faire
;-)
J'ai un bouton qui me permet de vider les cellules d'une zone nommée.
Tant que ce bouton se trouve sur la feuille où se trouve la zone nommée, ça
marche.
Dès que je veux déplacer le bouton sur une autre feuille, ça plante. Que
dois-je ajouter dans mon code pour que ça tourne ?

Private Sub CommandButton1_click()
Dim c As Range
For Each c In Range("INDPOK")
With c
.Copy
.Offset(1, 0).PasteSpecial xlValues
.ClearContents
End With
Next
Cells(1, 1).Select
End Sub

Merci d'avance.

Daniel S.

bonjour,

en supposant la feuille où est située INDPOK est la feuille "Feuil2"

Dim c As Range

Application.ScreenUpdating = False
For Each c In Worksheets("Feuil2").Range("INDPOK")
With c
.Copy
.Offset(1, 0).PasteSpecial xlValues
.ClearContents
End With
Next
Application.ScreenUpdating = True
Cells(1, 1).Select

ici le bouton est placé sur n'importe quelle feuille et son Private
Commandbutton_Click est positionné dans le module de feuille
correspondant.

A+

Bonjour à tous,

Je suis débutant, donc je pose des questions de débutant... faut s'y
faire

;-)
J'ai un bouton qui me permet de vider les cellules d'une zone nommée.
Tant que ce bouton se trouve sur la feuille où se trouve la zone nommée,
ça

marche.
Dès que je veux déplacer le bouton sur une autre feuille, ça plante. Que
dois-je ajouter dans mon code pour que ça tourne ?

Private Sub CommandButton1_click()
Dim c As Range
For Each c In Range("INDPOK")
With c
.Copy
.Offset(1, 0).PasteSpecial xlValues
.ClearContents
End With
Next
Cells(1, 1).Select
End Sub

Merci d'avance.

Daniel S.