OVH Cloud OVH Cloud

recherche d'un mot

7 réponses
Avatar
gaston
bonjour !
par macro, je veux rechercher le mot sous-total et pour=20
cela j'ai enregistr=E9 ceci:

Range("E1").Activate
Cells.Find(What:=3D"sous.total", After:=3DActiveCell,=20
LookIn:=3DxlFormulas, _
LookAt:=3DxlPart, SearchOrder:=3DxlByRows,=20
SearchDirection:=3DxlNext, _
MatchCase:=3DFalse, SearchFormat:=3DFalse).Activate

or le d=E9bogage m'indique qu'une variable objet ou un bloc=20
with n'est pas d=E9fini.
je ne comprends pas ?
d'autre part, j'ai rajout=E9 ceci:
Dim ligne As Long
ligne =3D ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la=20
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je proc=E9der ensuite pour=20
que la proc=E9dure se poursuive ensuite jusqu'=E0 la fin de ma=20
liste ?

7 réponses

Avatar
sabatier
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et pour
cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un bloc
with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite pour
que la procédure se poursuive ensuite jusqu'à la fin de ma
liste ?


Avatar
gaston
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et pour
cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin de
ma


liste ?


.




Avatar
gaston
d'ailleurs en y réfléchissant, rechercher "sous" me
conviendrait mieux que "sous.total", mais en plus, j'avais
oublié, il faudrait que la recherche ne se fasse que dans
la colonne E

-----Message d'origine-----
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et
pour



cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin
de



ma
liste ?


.

.






Avatar
gaston
d'ailleurs en y réfléchissant, rechercher "sous" me
conviendrait mieux que "sous.total", mais en plus, j'avais
oublié, il faudrait que la recherche ne se fasse que dans
la colonne E

-----Message d'origine-----
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et
pour



cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin
de



ma
liste ?


.

.






Avatar
gaston
d'ailleurs en y réfléchissant, rechercher "sous" me
conviendrait mieux que "sous.total", mais en plus, j'avais
oublié, il faudrait que la recherche ne se fasse que dans
la colonne E

-----Message d'origine-----
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et
pour



cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin
de



ma
liste ?


.

.






Avatar
Papou
Tu réfléchis beaucoup gaston...
...au propre comme au figuré !
;-)
Cordialement
Pascal

"gaston" a écrit dans le message de
news: badf01c43807$fd67eeb0$
d'ailleurs en y réfléchissant, rechercher "sous" me
conviendrait mieux que "sous.total", mais en plus, j'avais
oublié, il faudrait que la recherche ne se fasse que dans
la colonne E

-----Message d'origine-----
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et
pour



cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate

or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin
de



ma
liste ?


.

.






Avatar
gaston
Damned ! qu'est-ce qui se passe ? j'ai envoyé 3 fois le
message ?!!!
j'vous jure que c'est pas exprès et que je sais pas
comment ça s'est fait !!
-----Message d'origine-----
Tu réfléchis beaucoup gaston...
....au propre comme au figuré !
;-)
Cordialement
Pascal

"gaston" a écrit
dans le message de

news: badf01c43807$fd67eeb0$
d'ailleurs en y réfléchissant, rechercher "sous" me
conviendrait mieux que "sous.total", mais en plus, j'avais
oublié, il faudrait que la recherche ne se fasse que dans
la colonne E

-----Message d'origine-----
ben j'ai une feuille avec des sous-totaux par date et je
cherche sous.total pour avoir les cellules qui ont une
formule sous.total...mais donc ça marche pas !

-----Message d'origine-----
c'est sous-total ou sous.total que tu cherches, gaston?
jps

gaston a écrit:
bonjour !
par macro, je veux rechercher le mot sous-total et
pour



cela j'ai enregistré ceci:

Range("E1").Activate
Cells.Find(What:="sous.total",
After:¬tiveCell,


LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse,
SearchFormat:úlse).Activate





or le débogage m'indique qu'une variable objet ou un
bloc


with n'est pas défini.
je ne comprends pas ?
d'autre part, j'ai rajouté ceci:
Dim ligne As Long
ligne = ActiveCell.Row
Range("E" & ligne & ":H" & ligne).Select
Selection.Copy
'selection de la ligne au dessous pour poursuivre la
recherche
Range("E" & ligne + 1).Select

qui fonctionne, mais comment dois-je procéder ensuite
pour


que la procédure se poursuive ensuite jusqu'à la fin
de



ma
liste ?


.

.





.