Discussion :

[marcoole]

Bonjour à tous,

Je cherche à répéter une macro sur toutes les feuilles de mon classeur (Feuil1, Feuil2,...,Feuil30) sauf sur une (nommée OT). Mais je ne vois pas comment faire.

Je vous joint ma macro. Merci par avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copie()
 
Dim sh As Worksheet
With ActiveWorkbook
  For Each sh In Worksheets
  'colorier la ligne
  If ActiveCell.Value = "OK" Then
Range(ActiveCell.Offset(0, -26), ActiveCell.Offset(0, -1)).Interior.ColorIndex = 3
 
End If
 
  End With
  Next
End Sub

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copie()
 
Dim sh As Worksheet
With ActiveWorkbook
  For Each sh In Worksheets
  'colorier la ligne
       If ActiveCell.Value = "OK" And sh.Name <> "OT" Then
       sh.Select
       sh.Range(ActiveCell.Offset(0, -26), ActiveCell.Offset(0,   -1)).Interior.ColorIndex = 3
       End If
Next
End With
 
End Sub

[marcoole]

merci beaucoup