Bouton EFFACER TOUT

[keurma]

Bonjour,

Je cherche à creer un bouton EFFACER TOUT qui permettra lorsque l'on appuie dessus d'effacer tous les cellules qui ne sont pas verouillées.

Merci

 

[skoobi]

Re : Bouton EFFACER TOUT

Bonjour,

Sub test()
Dim cellule As Range
For Each cellule In taplage
    If cellule.Locked = False Then cellule.ClearContents
Next cellule
End Sub

Associe cette macro a ton bouton.

"taplage" est un exemple bien sur et "ClearContents" efface le contenu de la cellule. Si tu veux réinitialiser la cellule, càd également remettre le format par défaut de la cellule remplace "ClearContents" par "Clear".

 

[keurma]

Re : Bouton EFFACER TOUT

Merci l'ami

 

[keurma]

Re : Bouton EFFACER TOUT

par contre "In taplage" correspond a quoi parce que ca ne marche pas. MErci.

 

[skoobi]

Re : Bouton EFFACER TOUT

Re,

For Each cellule In Range("A1:C10")

est plus parlant je pense 😉

 

[keurma]

Re : Bouton EFFACER TOUT

CA marche nickel merci