Discussion :

[patrick55]

Bonjour,
en début d'année, je dois "purger" un fichier de ses données pour préparer la nouvelle.
J'utilise ce code, mais je le trouve assez lourd..
Peux t'on simplifier ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Systématiques").Select
    Sheets("Systématiques").Unprotect ("pat55")
        Raz
    'Range("c5").ClearContents
    [c5] = Now()
    Sheets("Systématiques").Protect ("pat55")
Sheets("Systématiques").EnableSelection = xlUnlockedCells
 
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Parrainages").Select
    Sheets("Parrainages").Unprotect ("pat55")
        Raz
    Sheets("Parrainages").Protect ("pat55")
Sheets("Parrainages").EnableSelection = xlUnlockedCells
 
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Audits").Select
    Sheets("Audits").Unprotect ("pat55")
        Raz
    Sheets("Audits").Protect ("pat55")
Sheets("Audits").EnableSelection = xlUnlockedCells
 
'Retour sur Systématiques
    Sheets("Systématiques").Select
    Range("B11").Select

Merci pour votre aide
Patrick

[alsimbad]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
With Sheets("Systématiques")
.Unprotect ("pat55")
Raz
.[c5] = Now()
.Protect ("pat55")
.EnableSelection = xlUnlockedCells
End With
With Sheets("Parrainages")
.Unprotect ("pat55")
Raz
.Protect ("pat55")
.EnableSelection = xlUnlockedCells
End With
With Sheets("Audits")
.Unprotect ("pat55")
Raz
.Protect ("pat55")
.EnableSelection = xlUnlockedCells
End With

si tes feuilles se suivent, tu peux aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
for i = 1 to 3 'évidement a toi de definir i
With Sheets(i)
.Unprotect ("pat55")
Raz
.Protect ("pat55")
.EnableSelection = xlUnlockedCells
End With
Next i

bonne fin de dimanche

[jfontaine]

Tu peux aussi utiliser une variable de type Worksheet pour boucler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
 
    select case sh.Name
           case "Systématiques","Parrainages","pat55"
                sh.Select
                sh.Unprotect ("pat55")
                Raz
                sh.EnableSelection = xlUnlockedCells
                sh.Protect ("pat55")
           case else
               'on ne fait rien
    end select
Next

[patrick55]

Merci pour ces réponses, c'est excellent..
Bonne soirée