effacer cellule via boutton

[thanos]

Bonjour,

j'aimerai une fonction qui me permettrai lorsque je clic sur le bouton effacer tout .. qu'il efface le contenue de la cellule F23 , C36 , C42 , etc...

possible?


merci

 

[Pierrot93]

Re : effacer cellule via boutton

Bonjour Thanos

regarde le code ci-dessous, pour un bouton de la boite à outils controles,à placer dans le module de la feuille concernée (click droit usr l'onglet => visualiser le code et tu colles) :

Private Sub CommandButton1_Click()
Range("A1,C12,D25,F23").ClearContents
End Sub

bonne fin d'après midi
@+

 

[thanos]

Re : effacer cellule via boutton

meric pour la réponse, mais lorsque je crée un boutton et que je lui affecte la macro:

Sub CommandButton1_Click()
Range("B6,E6,B9,E9,B12,E12,").ClearContents
End Sub


lorsque je teste le bouton il m'indique une erreur 1004

 

[Pierrot93]

Re : effacer cellule via boutton

Re

c'est bien un bouton de la "boite à outils controles" et non un bouton de la barre d'outils "formulaire" ??

 

[Pierrot93]

Re : effacer cellule via boutton

Re,

A noter que tu as une virgule en trop en derniere position... supprime la...

Range("B6,E6,B9,E9,B12,E12[B][COLOR="Red"],[/COLOR][/B]").ClearContents

 

[Robert]

Re : effacer cellule via boutton

Bonjour le fil, bonjour le forum

Supprime la dernière vigule et ça ira mieux :

Sub CommandButton1_Click()
Range("B6,E6,B9,E9,B12,E12[B][COLOR=red],[/COLOR][/B]").ClearContents
End Sub

 

[thanos]

Re : effacer cellule via boutton

nikckel !!! merci bcp ca marche 😀