Exécuter boucle sur plusieurs feuilles

[dassfred]

Pour me permettre d'archiver divers documents sans avoir le souci de les classer par ordre aphabétique, j'ai créer un code qui cherche le carton. Mais le code devait s'exécuter sur plusieurs feuilles car c'est possible d'avoir le dossier dans plusieurrs carton.
Mais cela ne se passe pas... où ai-je loupé qlq chose ?

Merci

voici mon code et le fichier joint

Private Sub CommandButton1_Click()
Dim wsh As Worksheet, x As Long
For Each wsh In ThisWorkbook.Worksheets
For x = 2 To wsh.Range("a65000").End(xlUp).Row
Label1 = "PAS DANS CES ARCHIVES, VEUILLEZ VERIFIER LE N"
Label2 = "PAS DANS CES ARCHIVES, VEUILLEZ VERIFIER LE N"
Label3 = "PAS DANS CES ARCHIVES, VEUILLEZ VERIFIER LE N"
If wsh.Cells(x, 2).Text = TextBox1 Then
Label1 = wsh.Cells(x, 3)
Label2 = wsh.Cells(x, 4)
Label3 = wsh.Cells(x, 5)
wsh.Activate: wsh.Rows(x).Select
Feuil1.Activate
End
End If
Next
Next
End Sub

 

[vmatthieu]

Re : Exécuter boucle sur plusieurs feuilles

bonsoir le forum,
dassfred,
ton code fonctionne ,par contre tu lui demande de sortir de la marco par le "end" dès qu'il trouve quelque chose
tu pourrais mettre à la place du end une msgbox avec un select case

Select Case MsgBox("faut il continuer", vbYesNo)
Case vbYes
GoTo line1 'mettre un line1 en face du premier next
Case vbNo
Exit Sub
End Select

par contre pour une raison inconnue les labels ne prennent pas les valeurs alors qu'ils devraient😕

bonne soirée