effacer tableau

[RDB]

bonjour à tous

Existe-il une façon d'effacer l'ensemble des données inscristes dans un classeur, sauf les cellules protégées et les 2 premières feuilles ?

si vous avz une idées, merci à vous.

bien sûr, je peux démarrer une macro et effectuer une fois toute la procedure.

@+

 

[Robert]

Bonjour RDB, bonjour le forum,

Je te propose la macro ci-dessous :

Sub Macro1()
Dim Ac As Worksheet 'déclare la variable Ac
Dim Cel As Range 'déclare la variable Cel
Set Ac = ActiveSheet 'définit la variable Ac
Application.ScreenUpdating = False 'masque les changements à l'écran
'boucle 1: sur tous les onglets (à partir du troisième)
For x = 3 To Sheets.Count
Sheets(x).Activate 'active l'onglet
On Error GoTo suite 'évite le bug si onglet vierge (via balise)
'boucle 2 : sur toutes les cellules utilisées
For Each Cel In ActiveSheet.UsedRange
'condition : si la cellule n'est pas verrouillée
If Cel.Locked <> True Then
'efface le contenue de la cellule
Cel.ClearContents
End If 'fin d ela condition
Next Cel 'prochaine cellule de la boucle 2
suite: 'balise
Next x 'prochain onglet de la boucle 1
Application.ScreenUpdating = False 'affiche les changements à l'écran
Ac.Activate 'active la feuille active au départ de la macro
End Sub

À plus,

Robert

 

[RDB]

bonjour

merci Robert, je vais essayer

@+