Changement de feuille impossible

Bonjour à tous,

Voici une portion de macro :

Sub boucle() Dim fl As Worksheet For Each fl In ThisWorkbook.Sheets If fl.Name <> "Mode d'emploi" And fl.Name <> "TCD" And fl.Name <> "DATAS" Then Call nomclient End If Next fl End Sub

Je souhaiterais que sur chaque feuille de mon classeur sauf celle appelée Mode d'emploi, TCD et DATAS, que la macro appel la macro nomclient.

Cela marche sur la première feuille mais la macro ne passe pas a la feuille suivante.

Merci pour votre aide.

Bonjour !

Je pense que la fonction à utiliser c'est if .... OR et non

And

Cordialement !

Bonjour,

merci de ta remarque néanmoins la macro ne passe toujours pas à la feuille suivante après avoir lu le Next fl

Bonjour,

Essaie ainsi :

Public Sub boucle()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Mode d'emploi", "TCD", "DATAS":
            Case Else: Call nomclient
        End Select
    Next ws
End Sub

Je viens d'essayer, mais cela ne fonctionne toujours pas. J'ai le même résultat. Le code fonctionne pour la première feuille mais le next ne passe pas sur l'autre feuille.

Re,

Cela doit fonctionner !...

Tu ne dit pas tout…

Joins un fichier à ta demande.

Cdlt.

Désolé mais cela ne fonctionnait pas ...

Voici ce que j'ai trouver pour que le changement de feuille s'effectue :

Sub boucle()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Mode d'emploi" And ws.Name <> "TCD" And ws.Name <> "DATAS" Then
    ws.Activate
    Call nomclient
    End If

Next ws

End Sub

Merci de votre aide en tout cas