P
Pégase
Guest
Bonjour à tous,
J'ai encore besoin de votre aide...
Pour rechercher un mot dans plusieurs pages j'utilise une macro VBA ressemblant à celle que je reproduis ci dessous.
Mon problème c'est que je n'arrive pas à limiter la recherche à une zone, identique, pour chaque feuille.
Par exemple je voudrais que la recherche ne se fasse que sur les lignes 12 à 80
Voici ma macro d'origine
Sub RechercheMot()
mot = InputBox("Mot à rechercher ?")
For feuille = 1 To Sheets.Count
Sheets(feuille).Select
Set Trouve1 = Cells.Find(What:=mot)
If Not Trouve1 Is Nothing Then
Trouve1.Activate
Suite:
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set Trouve2 = Cells.FindNext(After:=ActiveCell)
If Trouve2.Column <> Trouve1.Column Or Trouve2.Row <> Trouve1.Row Then
Trouve2.Activate
GoTo Suite
End If
End If
Next feuille
End Sub
Je pense qu'un Rows("12:80") bien placé devrais aller mais je n'y arrive pas.
D'avance merci
Pégase
J'ai encore besoin de votre aide...
Pour rechercher un mot dans plusieurs pages j'utilise une macro VBA ressemblant à celle que je reproduis ci dessous.
Mon problème c'est que je n'arrive pas à limiter la recherche à une zone, identique, pour chaque feuille.
Par exemple je voudrais que la recherche ne se fasse que sur les lignes 12 à 80
Voici ma macro d'origine
Sub RechercheMot()
mot = InputBox("Mot à rechercher ?")
For feuille = 1 To Sheets.Count
Sheets(feuille).Select
Set Trouve1 = Cells.Find(What:=mot)
If Not Trouve1 Is Nothing Then
Trouve1.Activate
Suite:
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set Trouve2 = Cells.FindNext(After:=ActiveCell)
If Trouve2.Column <> Trouve1.Column Or Trouve2.Row <> Trouve1.Row Then
Trouve2.Activate
GoTo Suite
End If
End If
Next feuille
End Sub
Je pense qu'un Rows("12:80") bien placé devrais aller mais je n'y arrive pas.
D'avance merci
Pégase