Effacer des cellules par macro

Bonjour Hervé,

étant liée à un bouton, ta macro tournera si tu remplaces Private Sub par Sub en première ligne.

Bonne journée,

Olivier_HTP

bonjour, Olivier_HTP

Merci pour ta réponse, mais cela ne fonctionne toujours pas, que le code soit sur la feuille ou dans un module.

J'ai contourné le probleme en incluant ce code sur un bouton dans un USF et là, cela fonctionne...

Merci et bonne journée,

@+ Hervé

Bonjour Hervé, Olivier, le Forum.

Hervé, visiblement ton bouton "raz" ne se situe pas sur la feuille "Relevés", et c'est précisément pour ça que ton code ne fonctionne pas.

Si au lieu de :

Private Sub raz_Click()
Sheets("Relevés").Select
Range("a2:C44").Select
Selection.ClearContents
Sheets("Général").Select
End Sub

Mis comme ça, ton Range("a2:C44"), ne fait pas référence au Range("a2:C4") de la feuille "Relevés", mais de la feuille dans laquelle est placé ton bouton "raz" (Private module d'une feuille ) !

Il te faut donc écrire simplement :

Private Sub raz_Click()
Sheets("Relevés").Range("A2:C44").ClearContents
Sheets("Général").Select
End Sub

Ce qui signifie :
1 - je clique sur le bouton "raz" placé sur une feuille X
2 - j'efface la zone "A2:C44" de la feuille "Relevé"
3 - je sélectionne la feuille "Général"
4 - je quitte cette procédure.

Je pense que c'est ce que voulait dire Olivier, ton code aurait marché s'il était placé dans un module autre qu'un module Privat de feuille (c'est d'ailleurs pourquoi il marche depuis un bouton d'un UserForm).

Cordialement.
Didier