Discussion :

[liop49]

Bonjour,

J'ai une macro à l'ouverture du fichier qui me permet de nettoyer toutes les données précédentes. Je voudrais qu'elle s'exécute sur toutes les feuilles (onglets) sauf le 1er (nommé "Fonctionnement")

Voici le code :

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
Private Sub Workbook_Open()
 
Dim onglet As Worksheet
 
'boucle sur toutes les feuilles du classeur
For Each onglet In Application.ActiveWorkbook.Worksheets
    If onglet <> "Fonctionnement" Then
 
    Rows("10:10").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
 
    Range("C5:D5").Select
    Selection.ClearContents
    Range("G5").Select
    Selection.ClearContents
    Range("C5").Select
    End If
Next onglet
 
End Sub

Il me met une erreur 438 "Proprieté ou méthode non gérée par cet objet

Quelqu'un peut-il m'aider?

Par avance merci

Nini

[aalex_38]

Onglet est un worksheet, pas un string.

Essaies ça :

Code :

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

If onglet.NAME <> "Fonctionnement" Then

[liop49]

parfait

J'ai juste rajouté après ton code :

Code :

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

onglet.Select

Merci encore

[laetitia]

bonjour le fil tu peus simplifier aussi!!
Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "Fonctionnement" Then
Sheets(Ws.Name).Activate
Rows("10:10").ClearContents
Range("C5:D5,g5").ClearContents
End If: Next Ws
End Sub