remise a zéro

[AnneSophie]

Bonjour,
j'aimerais savoir comment faire pour creer une macro qui permettrait d'effacer (en cliquant sur un bouton) toute les donnnées des cellules non protégées de ma feuille excel.

Merci
AnneSophie

 

[Robert]

Re : remise a zéro

Bonjour AnneSophie, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
For Each cel In ActiveSheet.UsedRange
    If cel.Locked = False Then cel.ClearContents
Next cel
End Sub

 

[AnneSophie]

Re : remise a zéro

Bonjour Robert,
Tout d'abord merci.
J'ai essayé avec ta macro le problème est que dès que je fusionne des cellules elle ne marche plus .

A plus
AnneSophie

 

[Pierrot93]

Re : remise a zéro

Bonjour,

Aarf, vba et les cellules fusionnées, c'est pas top.... petite question au passage, toutes les cellules fusionnées ensemble sont dévérouillées au moins ???

 

[Pierrot93]

Re : remise a zéro

Re,

sinon essaye peut être comme ceci, à voir selon tes données et ton fichier :

Option Explicit
Sub test()
Dim c As Range, d As Range
For Each c In ActiveSheet.UsedRange
    For Each d In c.MergeArea
        If d.Locked = False Then d.ClearContents
    Next d
Next c
End Sub

 

[AnneSophie]

Re : remise a zéro

C'est toujours pareil, il ne veut pas vider les cellules fusionnées. J'ai déverrouillé les cellules une fois fusionnée donc je suppose quelles sont toutes déverrouillées

 

[Pierrot93]

Re : remise a zéro

Re,

J'ai déverrouillé les cellules une fois fusionnée donc je suppose quelles sont toutes déverrouillées

si fait une fois les cellules fusionnées, pas sûr.... procéder à l'inverse eût été préférable.... déverouiller les cellules puis ensuite les fusionner...

 

[AnneSophie]

Re : remise a zéro

Je viens de vérifier toute les cellules fusionnées qui doivent être vidée sont déverrouillées. Vu que je protège ma feuille, les cellules à vider sont forcément déverouillée (fusionnée ou non).

 

[Pierrot93]

Re : remise a zéro

Re,

plutôt que :

d.ClearContents

essaye :

d.value =""

 

[AnneSophie]

Re : remise a zéro

merci, ca marche mais le problème c'est que c'est très long. Est ce que ce serais possible à la place d'effacer de copier par exemple la feuille 5, mais tout en gardant les cellules bloquées (ne remplacer que les cellules déverrouilées)?