OVH Cloud OVH Cloud

Recherche dans une feuille

4 réponses
Avatar
JPB
Bonjour,

J'aimerais depuis une macro rechercher la cellule contenant le "un texte
xxx", selectioner la ligne de cette cellule et déplacer cette ligne en ligne
25 par exemple.
Quel code dois je mettre dans la macro ?
Merci pour votre aide
PS: pourquoi l'enregistreur de macro ne mémorise pas la fonction
"rechercher" de Excel?

Jean-Pierre

4 réponses

Avatar
michdenis
Bonjour JPB,

| pourquoi l'enregistreur de macro ne mémorise pas la fonction
| "rechercher" de Excel?

Pour qu'elle enregistre le code, tu dois utiliser le menu édition / rechercher
pendant que la macro s'enregistre... voici ce qu'excel génère comme code

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


Ce que pourrait avoir l'air ta macro :
'-----------------------------
Sub Test()

With Worksheets("Feuil1")
Set c = .Cells.Find(What:="xxx", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.EntireRow.Cut .Range("A25")
End If
End With

End Sub
'-----------------------------


Salutations!





"JPB" a écrit dans le message de news: %
Bonjour,

J'aimerais depuis une macro rechercher la cellule contenant le "un texte
xxx", selectioner la ligne de cette cellule et déplacer cette ligne en ligne
25 par exemple.
Quel code dois je mettre dans la macro ?
Merci pour votre aide
PS: pourquoi l'enregistreur de macro ne mémorise pas la fonction
"rechercher" de Excel?

Jean-Pierre
Avatar
JPB
Merci pour cette réponse, je vais l'examiner en détail et tester ce code.

Question supplémentaire: Chez moi l'enregistreur de macro n'enregistre pas
la fonction "menu edition / rechercher" comme vous l'indiquez dans votre
réponse. Il y a t'il des options ou d'autre éléments à activer ?
Merci pour votre aide
Jean-Pierre


Bonjour JPB,

| pourquoi l'enregistreur de macro ne mémorise pas la fonction
| "rechercher" de Excel?

Pour qu'elle enregistre le code, tu dois utiliser le menu édition /
rechercher
pendant que la macro s'enregistre... voici ce qu'excel génère comme code

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


Ce que pourrait avoir l'air ta macro :
'-----------------------------
Sub Test()

With Worksheets("Feuil1")
Set c = .Cells.Find(What:="xxx", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.EntireRow.Cut .Range("A25")
End If
End With

End Sub
'-----------------------------


Salutations!





"JPB" a écrit dans le message de news:
%
Bonjour,

J'aimerais depuis une macro rechercher la cellule contenant le "un texte
xxx", selectioner la ligne de cette cellule et déplacer cette ligne en
ligne
25 par exemple.
Quel code dois je mettre dans la macro ?
Merci pour votre aide
PS: pourquoi l'enregistreur de macro ne mémorise pas la fonction
"rechercher" de Excel?

Jean-Pierre





Avatar
michdenis
Bonjour JPB,

| la fonction "menu edition / rechercher"

Il faut faire la recheche pour le vrai pour qu'excel enregistre après avoir
appeler la fenêtre "Recherche"...cela implique d'inscrire un mot que tu veux
rechercher, définir les paramètres dont excel doit tenir compte et lancer
la recherche ... si tu fais cela pendant que l'enregistreur de macro est en
fonction, je serais étonné que tu n'obtiennes aucune code. Si oui, tu travailles
sur quelle version d'excel ?


Salutations!


"JPB" a écrit dans le message de news:
Merci pour cette réponse, je vais l'examiner en détail et tester ce code.

Question supplémentaire: Chez moi l'enregistreur de macro n'enregistre pas
la fonction "menu edition / rechercher" comme vous l'indiquez dans votre
réponse. Il y a t'il des options ou d'autre éléments à activer ?
Merci pour votre aide
Jean-Pierre


Bonjour JPB,

| pourquoi l'enregistreur de macro ne mémorise pas la fonction
| "rechercher" de Excel?

Pour qu'elle enregistre le code, tu dois utiliser le menu édition /
rechercher
pendant que la macro s'enregistre... voici ce qu'excel génère comme code

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


Ce que pourrait avoir l'air ta macro :
'-----------------------------
Sub Test()

With Worksheets("Feuil1")
Set c = .Cells.Find(What:="xxx", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.EntireRow.Cut .Range("A25")
End If
End With

End Sub
'-----------------------------


Salutations!





"JPB" a écrit dans le message de news:
%
Bonjour,

J'aimerais depuis une macro rechercher la cellule contenant le "un texte
xxx", selectioner la ligne de cette cellule et déplacer cette ligne en
ligne
25 par exemple.
Quel code dois je mettre dans la macro ?
Merci pour votre aide
PS: pourquoi l'enregistreur de macro ne mémorise pas la fonction
"rechercher" de Excel?

Jean-Pierre





Avatar
JPB
Bonjour michdenis,

J'ai Excel 2002 SP3.
J'ai compris l'os !
Je faisais juste (définition des champs de recherche et tous le tra la la
mais si je fais "rechercher tous" je n'obtiens pas de code.
Par contre si je fait rechercher "suivant" j'obtient le code que vous
décrivez.
Après réflexion cela parait logique.
En tout cas un grand merci pour la vitesse et la précision de votre aide.

Jean-Pierre



"michdenis" a écrit dans le message de news:

Bonjour JPB,

| la fonction "menu edition / rechercher"

Il faut faire la recheche pour le vrai pour qu'excel enregistre après
avoir
appeler la fenêtre "Recherche"...cela implique d'inscrire un mot que tu
veux
rechercher, définir les paramètres dont excel doit tenir compte et lancer
la recherche ... si tu fais cela pendant que l'enregistreur de macro est
en
fonction, je serais étonné que tu n'obtiennes aucune code. Si oui, tu
travailles
sur quelle version d'excel ?


Salutations!


"JPB" a écrit dans le message de news:

Merci pour cette réponse, je vais l'examiner en détail et tester ce code.

Question supplémentaire: Chez moi l'enregistreur de macro n'enregistre pas
la fonction "menu edition / rechercher" comme vous l'indiquez dans votre
réponse. Il y a t'il des options ou d'autre éléments à activer ?
Merci pour votre aide
Jean-Pierre


Bonjour JPB,

| pourquoi l'enregistreur de macro ne mémorise pas la fonction
| "rechercher" de Excel?

Pour qu'elle enregistre le code, tu dois utiliser le menu édition /
rechercher
pendant que la macro s'enregistre... voici ce qu'excel génère comme code

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


Ce que pourrait avoir l'air ta macro :
'-----------------------------
Sub Test()

With Worksheets("Feuil1")
Set c = .Cells.Find(What:="xxx", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.EntireRow.Cut .Range("A25")
End If
End With

End Sub
'-----------------------------


Salutations!





"JPB" a écrit dans le message de news:
%
Bonjour,

J'aimerais depuis une macro rechercher la cellule contenant le "un texte
xxx", selectioner la ligne de cette cellule et déplacer cette ligne en
ligne
25 par exemple.
Quel code dois je mettre dans la macro ?
Merci pour votre aide
PS: pourquoi l'enregistreur de macro ne mémorise pas la fonction
"rechercher" de Excel?

Jean-Pierre