MJ13
XLDnaute Barbatruc
Bonjour à tous
Je cherche à récupérer le nombre de feuilles sur plus d'une centaine qui contiennent "00h", j'ai toujours un peu de mal avec la gestion d'erreur, car la macro s'arrête dès qu'il y a une erreur car il ne trouve pas le texte.
J'ai bien essayé avec "on error resume next", mais cela ne fonctionne pas, il me compte toutes les feuilles.
Voici le code que j'ai commencé à faire:
Sub Test_Nombre_OOh()
Dim sh As Worksheet
N = 0
'On Error Resume Next
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets
Sheets(sh.Name).Select
Workbooks(ActiveWorkbook.Name).Sheets(sh.Name).Find("00h").Select
N = N + 1
Next
Application.ScreenUpdating = True
MsgBox N
End Sub
Merci d'avance.
Je cherche à récupérer le nombre de feuilles sur plus d'une centaine qui contiennent "00h", j'ai toujours un peu de mal avec la gestion d'erreur, car la macro s'arrête dès qu'il y a une erreur car il ne trouve pas le texte.
J'ai bien essayé avec "on error resume next", mais cela ne fonctionne pas, il me compte toutes les feuilles.
Voici le code que j'ai commencé à faire:
Sub Test_Nombre_OOh()
Dim sh As Worksheet
N = 0
'On Error Resume Next
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets
Sheets(sh.Name).Select
Workbooks(ActiveWorkbook.Name).Sheets(sh.Name).Find("00h").Select
N = N + 1
Next
Application.ScreenUpdating = True
MsgBox N
End Sub
Merci d'avance.