XL 2016 syntaxe VBA

[didier09]

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

 

[Patrice33740]

....
penses tu que cela est une réponse ?
alors qu'il a déja posté d'autre questions ?

C'est un réponse en attendant la suite, certains n'auraient pas répondu ...
Ici c'est une quetion sur un autre problème, avec des réponses dont il a l'air satisfait !
Elle n'interfère pas avec l'autre.

 

[JM27]

Sa réponse ( qui n'en est pas une) date de près d'une semaine
Ecoute c'est une manière de lui rappeler.

 

[didier09]

Bonsoir JM27,

J'ai arrêté de travailler sur mon premier projet fichier, ayant une urgence à résoudre avec la problématique qui concerne ce fil. (bilans mensuels à remettre à mois +N1.
Concernant le sujet dont tu parles je vais finalement adopté ton fichier, je le maitrise davantage que celui de Chit160 (qui m'a proposé une solution au top). Comme convenu je mettrai en ligne la version finale dont je vais me servir. Je te remercie encore de m'avoir aidé.
Merci pour ta compréhension et ta patience.

Didier

 

[JM27]

merci Didier