didier09
XLDnaute Occasionnel
Bonjour le forum,
J'ai un souci de syntaxe VBA:
Une macro s'exécute sur plusieurs feuilles pour alimenter des relevés automatiques, cela fonctionne parfaitement. J'ai ajouté des feuilles au classeur pour compléter les données et je voudrais que cette boucle ne se fasse pas sur certaines feuilles. J'ai essayé plusieurs solutions, dont celle ci dessous mais ça bloque. A l'origine seule la feuille "CSV" était ignorée, du coup mes essais sont en commentaires.
For Each Ws In .Worksheets 'boucle sur chacune des feuilles
If Ws.Name <> "Csv" Then
' If Ws.Name <> "EBD" Then
' If Ws.Name <> "BAO" Then
' If Ws.Name <> "T111" Then
' If Ws.Name <> "ET" Then
' If Ws.Name <> "TOUYRE" Then 'si la feuille ne porte pas le nom "-----" <===============================
Set Rel = Ws.Range("b8") 'affecte la cellule "b8" à la variable Rel (Relevé)
Do 'débute une boucle infinie
Etc....
Si un spécialiste VBA pouvait m'aider, merci d'avance.
Didier
J'ai un souci de syntaxe VBA:
Une macro s'exécute sur plusieurs feuilles pour alimenter des relevés automatiques, cela fonctionne parfaitement. J'ai ajouté des feuilles au classeur pour compléter les données et je voudrais que cette boucle ne se fasse pas sur certaines feuilles. J'ai essayé plusieurs solutions, dont celle ci dessous mais ça bloque. A l'origine seule la feuille "CSV" était ignorée, du coup mes essais sont en commentaires.
For Each Ws In .Worksheets 'boucle sur chacune des feuilles
If Ws.Name <> "Csv" Then
' If Ws.Name <> "EBD" Then
' If Ws.Name <> "BAO" Then
' If Ws.Name <> "T111" Then
' If Ws.Name <> "ET" Then
' If Ws.Name <> "TOUYRE" Then 'si la feuille ne porte pas le nom "-----" <===============================
Set Rel = Ws.Range("b8") 'affecte la cellule "b8" à la variable Rel (Relevé)
Do 'débute une boucle infinie
Etc....
Si un spécialiste VBA pouvait m'aider, merci d'avance.
Didier