Bonjour.

Je travail sur un fichier dans lequel j'ai plus de 30 feuilles. Je veux exécuter une série d'étape sur toute les feuilles sauf 3.

Voici mon 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
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "coba" Or ws.Name <> "Maitre" Or ws.Name <> "ARSRS" Then
Range("CA8").Select
     ActiveCell.FormulaR1C1 = _
        "=IF(R2C79=1,+RC[-78]&RC[-77]&RC[-76]&RC[-75]&RC[-74]&RC[-73]&RC[-72]&RC[-71]&RC[-70],"""")"
 
    Selection.Copy
    Range("CA9:CA2500").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End If
 
Next ws
Selon ma compréhension, les feuilles coba, maitre et ARSRS ne devraient pas subir le code mais la première feuille rencontrée est Maitre et le code reste emprisonné dans cette feuille.

Merci pour votre aide

Dlight