Discussion :

[dlight]

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

[EngueEngue]

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
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "coba" Or ws.Name <> "Maitre" Or ws.Name <> "ARSRS" Then
ws.activate
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

[dlight]

Merci pour votre réponse très rapide EngueEngue mais les feuilles Maitre et coba (je ne me suis pas rendu à la troisième feuille) sont encore affecté par le code.

Si vous avez des pistes de solution, je suis preneur !

Dlight

[EngueEngue]

Remplace tes or par des and...

[dlight]

Merci EngueEngue !

Vous me sauver la vie !!



Dlight