bonjour !
quand je d=E9clenche l'enregistreur de macro puis fait CtrlF=20
pour chercher le mot "total", j'obtiens ce code:
Cells.Find(What:=3D"Total", After:=3DActiveCell,=20
LookIn:=3DxlFormulas, LookAt _
:=3DxlPart, SearchOrder:=3DxlByRows,=20
SearchDirection:=3DxlNext, MatchCase:=3D _
False, SearchFormat:=3DFalse)
Cependant, quand je veux ensuite lancer cette macro, j'ai=20
une erreur 91. Est-ce le m=EAme bug que celui d=E9crit ici:=20
http://support.microsoft.com/default.aspx?scid=3Dkb;FR;282153
Ben personnellement, je vois pas comment me tirer de l=E0 !
Vous auriez une id=E9e, vous, les pros ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe RIT [MS]
Bonjour,
le problème est du au fait qu'il ne trouve pas de cellule contenant le mot de la recherche. Vous devez pouvoir le contourner en modifiant le script en ce sens : Dim cellule As Range If Not Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _ False, SearchFormat:úlse) Is Nothing Then Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _ False, SearchFormat:úlse).Activate End If
Cordialement, Christophe
"gaston" a écrit dans le message de news:c65401c438b8$041d3f20$ bonjour ! quand je déclenche l'enregistreur de macro puis fait CtrlF pour chercher le mot "total", j'obtiens ce code: Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse) Cependant, quand je veux ensuite lancer cette macro, j'ai une erreur 91. Est-ce le même bug que celui décrit ici: http://support.microsoft.com/default.aspx?scid=kb;FR;282153 Ben personnellement, je vois pas comment me tirer de là ! Vous auriez une idée, vous, les pros ?
Bonjour,
le problème est du au fait qu'il ne trouve pas de cellule contenant le mot
de la recherche. Vous devez pouvoir le contourner en modifiant le script en
ce sens :
Dim cellule As Range
If Not Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _
False, SearchFormat:úlse) Is Nothing Then
Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _
False, SearchFormat:úlse).Activate
End If
Cordialement,
Christophe
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c65401c438b8$041d3f20$a001280a@phx.gbl...
bonjour !
quand je déclenche l'enregistreur de macro puis fait CtrlF
pour chercher le mot "total", j'obtiens ce code:
Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:úlse)
Cependant, quand je veux ensuite lancer cette macro, j'ai
une erreur 91. Est-ce le même bug que celui décrit ici:
http://support.microsoft.com/default.aspx?scid=kb;FR;282153
Ben personnellement, je vois pas comment me tirer de là !
Vous auriez une idée, vous, les pros ?
le problème est du au fait qu'il ne trouve pas de cellule contenant le mot de la recherche. Vous devez pouvoir le contourner en modifiant le script en ce sens : Dim cellule As Range If Not Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _ False, SearchFormat:úlse) Is Nothing Then Cells.Find(What:="total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase: _ False, SearchFormat:úlse).Activate End If
Cordialement, Christophe
"gaston" a écrit dans le message de news:c65401c438b8$041d3f20$ bonjour ! quand je déclenche l'enregistreur de macro puis fait CtrlF pour chercher le mot "total", j'obtiens ce code: Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse) Cependant, quand je veux ensuite lancer cette macro, j'ai une erreur 91. Est-ce le même bug que celui décrit ici: http://support.microsoft.com/default.aspx?scid=kb;FR;282153 Ben personnellement, je vois pas comment me tirer de là ! Vous auriez une idée, vous, les pros ?
michdenis
Bonjour Gaston,
Une erreur 91 est générée lorsque la méthode "Find" utilisée ne trouve pas la valeur recherchée. Habituellement on l'utilise avec cette ligne de code :
On error resume next Cells.Find ....
On errror goto 0
Salutations!
"gaston" a écrit dans le message de news:c65401c438b8$041d3f20$ bonjour ! quand je déclenche l'enregistreur de macro puis fait CtrlF pour chercher le mot "total", j'obtiens ce code: Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse) Cependant, quand je veux ensuite lancer cette macro, j'ai une erreur 91. Est-ce le même bug que celui décrit ici: http://support.microsoft.com/default.aspx?scid=kb;FR;282153 Ben personnellement, je vois pas comment me tirer de là ! Vous auriez une idée, vous, les pros ?
Bonjour Gaston,
Une erreur 91 est générée lorsque la méthode "Find" utilisée ne trouve pas la valeur recherchée. Habituellement on
l'utilise avec cette ligne de code :
On error resume next
Cells.Find ....
On errror goto 0
Salutations!
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de news:c65401c438b8$041d3f20$a001280a@phx.gbl...
bonjour !
quand je déclenche l'enregistreur de macro puis fait CtrlF
pour chercher le mot "total", j'obtiens ce code:
Cells.Find(What:="Total", After:¬tiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:úlse)
Cependant, quand je veux ensuite lancer cette macro, j'ai
une erreur 91. Est-ce le même bug que celui décrit ici:
http://support.microsoft.com/default.aspx?scid=kb;FR;282153
Ben personnellement, je vois pas comment me tirer de là !
Vous auriez une idée, vous, les pros ?
Une erreur 91 est générée lorsque la méthode "Find" utilisée ne trouve pas la valeur recherchée. Habituellement on l'utilise avec cette ligne de code :
On error resume next Cells.Find ....
On errror goto 0
Salutations!
"gaston" a écrit dans le message de news:c65401c438b8$041d3f20$ bonjour ! quand je déclenche l'enregistreur de macro puis fait CtrlF pour chercher le mot "total", j'obtiens ce code: Cells.Find(What:="Total", After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse) Cependant, quand je veux ensuite lancer cette macro, j'ai une erreur 91. Est-ce le même bug que celui décrit ici: http://support.microsoft.com/default.aspx?scid=kb;FR;282153 Ben personnellement, je vois pas comment me tirer de là ! Vous auriez une idée, vous, les pros ?
