XL 2010 Trouver le nombre d'un texte sur de nombreuses feuilles

[MJ13]

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.

 

[vgendron]

Hello
un essai avec ce code

Sub Test_Nombre_OOh()
Dim sh As Worksheet
N = 0
'On Error Resume Next
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets
    With sh
        Set trouve = .Cells.Find("00h")
        If Not trouve Is Nothing Then N = N + 1
    End With
Next sh


Application.ScreenUpdating = True
MsgBox N
End Sub

 

[MJ13]

Bonjour Vgendron

Merci beaucoup, c'était le code avec "set" que je cherchai. J'avais essayé, avec Trouve d'ailleurs, mais cela n'avait pas fonctionné, j'avais mis . select ou . address à la fin 🙁.

Je me rappelle que Job75 m'avait fait un code de ce type il y a quelques années, mais je ne l'avais pas mis dans mon pense bête, maintenant, il y est. 🙂