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

MJ13 · 12 Décembre 2017

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 · 12 Décembre 2017

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 · 12 Décembre 2017

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.

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

MJ13

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires