Discussion :

[fanta09]

Bonjour
j ai vraiment besoin d'aide. En effet mon classeur s'appelle "suivi livraison" j ai plusieurs feuilles. je veux effectuer une boucle pour effectuer des calculs que sur le feuille dont le nom commence par "sct".

j ai essayé d'adapter le code ci dessous a mon projet mais il ne fonctionne pas en faite quant je l'exécute y 'a pas de message d'erreur mais il ne parcourt aucune feuille

Code :

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

1
2
3
4
5
6
7
8
Sub Tst() 
Dim Ws As Worksheet 
    For Each Ws In Worksheets 
        If Ws.Name Like "sct ###" Then 
            ... 
        End If 
    Next Ws 
End Sub

avez vous une idée
Merci pour vous retours

[unparia]

Bonjour

dont le nom commence par "sct".

--->> Like "sct*" ou encore left(ws.name,3) = "sct"

[mjpmjp]

bonjour,

il ne fonctionne pas en faite quant je l'exécute y 'a pas de message d'erreur mais il ne parcourt aucune feuille

tu as vérifiés ?
moi j'ai vérifié !!

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        MsgBox Ws.Name
    Next Ws
End Sub

et puis autre chose...
je ne connais pas bien "Like" --> Like "sct*"
alors j'utilise ce qui s’approche le plus du langage et de la compréhension naturelle --> ce qui est à gauche --> "sct" --> Left( Ws.Name,3)

@+JP

[fanta09]

Bonjour
merci pour vos retours rapide
le code fonctionne super bien merci
j ai essaye Left( Ws.Name,3) quoi n'a pas fonctionné mais Like "sct*" marche comme sur des roulettes

[Menhir]

"Commence par" doit faire penser à Geuche().

Plus simple et plus sûr :

Code :

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

        If Gauche(Ws.Name, 3) = "sct" Then