D
dassfred
Guest
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
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
Dernière modification par un modérateur: