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

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.
 

vgendron

XLDnaute Barbatruc
Hello
un essai avec ce code
VB:
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

XLDnaute Barbatruc
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. :)
 

Discussions similaires

Réponses
8
Affichages
448

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088