re-initialiser critère de recherche

Peux tu poster le code de ta petite macro svp , sa va faciliter le travail
de beaucoup ! =)

Fred

"gaston" <anonymous@discussions.microsoft.com> wrote in message
news:bf8201c4383d$39fba490$a401280a@phx.gbl...
Bonjour!
j'ai déclenché l'enregistreur de macro pour rechercher un
mot dans une feuille, ce qui m'a donné le code. Cependant,
j'ai un souci: lorsque je veux exécuter la macro, ça me
donne une erreur, et je pense que c'est parce qu'il faut
ré-initialiser les critères ? Est-ce cela ? Et comment
faire ?

bonjour,

chez moi ça ne bugue pas.
voilà le code délivré par l'enregistreur:
Selection.Find(What:="ton", After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
Selection.FindNext(After:¬tiveCell).Activate

cordialement

bourby


"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message news:
bf8201c4383d$39fba490$a401280a@phx.gbl...
Bonjour!
j'ai déclenché l'enregistreur de macro pour rechercher un
mot dans une feuille, ce qui m'a donné le code. Cependant,
j'ai un souci: lorsque je veux exécuter la macro, ça me
donne une erreur, et je pense que c'est parce qu'il faut
ré-initialiser les critères ? Est-ce cela ? Et comment
faire ?

bonjour Gaston,

voici une exemple,

Sub recherche_et_next()
Dim c, fistA, fistB
Dim msg, Style, Title, Response
Style = vbYesNo
Title = "Recherche "
no = 1
recherche = InputBox("Mot chercher")
FeuilleSuivante:
Set feuille = Sheets("Feuil" & no)
feuille.Activate
With feuille.Range("A1:IV65535")
Set c = .Find(recherche, LookIn:=xlValues)
If Not c Is Nothing Then
fistA = c.Address
Application.Goto reference:=Range(c.Address)
msg = "La valeur est trouver en cellule " & _
fistA & " souhaitez-vous continuer?"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
Do
Set c = .FindNext(c)
If Not c Is Nothing Then
fistB = c.Address
Application.Goto reference:=Range(c.Address)
msg = "La valeur est trouver en cellule " & _
fistB & " souhaitez-vous continuer """
Response = MsgBox(msg, Style, Title)
Else
MsgBox "aucune occurrence trouver pour cette recherche"
Exit Sub
End If
Loop While Response = vbYes And fistA <> fistB
MsgBox "on n'a fait le tour"
msg = "Souhaitez-vous continuer sur une autre feuille ?"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
If Sheets.Count = no Then
MsgBox ("On a d j chercher sur toute les feuilles")
Exit Sub
Else
no = no + 1
GoTo FeuilleSuivante
End If
Else
Exit Sub
End If
Else
Exit Sub
End If
Else
MsgBox "aucune occurrence trouver pour cette recherche"
End If
End With
End Sub

isabelle

Bonjour!
j'ai déclenché l'enregistreur de macro pour rechercher un
mot dans une feuille, ce qui m'a donné le code. Cependant,
j'ai un souci: lorsque je veux exécuter la macro, ça me
donne une erreur, et je pense que c'est parce qu'il faut
ré-initialiser les critères ? Est-ce cela ? Et comment
faire ?

et ben j'ai le même code et chez moi ça bugue ! :-(

-----Message d'origine-----
bonjour,

chez moi ça ne bugue pas.
voilà le code délivré par l'enregistreur:
Selection.Find(What:="ton", After:=ActiveCell,
LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _

MatchCase:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate

cordialement

bourby


"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message news:

bf8201c4383d$39fba490$a401280a@phx.gbl...
Bonjour!
j'ai déclenché l'enregistreur de macro pour rechercher un
mot dans une feuille, ce qui m'a donné le code. Cependant,
j'ai un souci: lorsque je veux exécuter la macro, ça me
donne une erreur, et je pense que c'est parce qu'il faut
ré-initialiser les critères ? Est-ce cela ? Et comment
faire ?


.