remise a zéro

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Mars 2011

• #2

Re : remise a zéro

Bonjour AnneSophie, bonjour le forum,

Peut-être comme ça :

Code:

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

 

Vote positif 0 Vote négatif

A

AnneSophie

XLDnaute Nouveau

• 21 Mars 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Mars 2011

• #4

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 ???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Mars 2011

• #5

Re : remise a zéro

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

A

AnneSophie

XLDnaute Nouveau

• 22 Mars 2011

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #7

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

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

A

AnneSophie

XLDnaute Nouveau

• 22 Mars 2011

• #8

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).

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #9

Re : remise a zéro

Re,

plutôt que :

Code:

d.ClearContents

essaye :

Code:

d.value =""

 

Vote positif 0 Vote négatif

A

AnneSophie

XLDnaute Nouveau

• 23 Mars 2011

• #10

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)?

 

Vote positif 0 Vote négatif