Discussion :

[fanfan89]

Bonjour à tous,

je souhaiterais utiliser un "if ... then" pour traiter des opérations sur certaines sheets de mon workbook (toutes sauf 2)

pour cela, j'écris le code:

Code :

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

1
2
3
4
Dim ws As Worksheet
If ws.name <> "Menu" Or "Divers" Then
...
End If

afin d'écarter les deux sheets qui ne m'intéressent pas dans mon calcul

Bien évidemment, ce code ne fonctionne pas...
Quelqu'un peut-il me dire comment utiliser correctement le "Or" dans un cas de figure comme celui-ci svp?

Merci à tous!

[laetitia]

bonjour fanfan89 essai comme cela

Code :

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

1
2
3
4
5
6
7
8
9
Sub es()
  Dim Ws As Worksheet
  Application.ScreenUpdating = False
  For Each Ws In Worksheets
   if Ws.Name <> "Menu" And Ws.Name <> "Divers" Then
      Ws.Activate
      'ton code
  End If: Next Ws
End Sub

j'ai fais une correction