Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche dans une feuille (suite)

recherche dans une feuille (suite)

3 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 ?

Répnse obtenue: (merci encore)
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
C'est ok sauf la ligne c.EntireRow.Cut .Range("A25")
Je pense que c'est le A25 qui ne joue pas ?

J'aimerais déplacer la ligne de la cellule trouvée à la ligne 25 par exemple
ou 32 ou autre

Merci pour votre aide

Jean-Pierre
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Ardus Petus
Ton code fonctionne comme prévu: il déplace le contenu de la ligne contenant
xxx vers la ligne 25

Tu peux modifier "A25" en "A32"

Cordialement,
--
AP

"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 ?

Répnse obtenue: (merci encore)
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
C'est ok sauf la ligne c.EntireRow.Cut .Range("A25")
Je pense que c'est le A25 qui ne joue pas ?

J'aimerais déplacer la ligne de la cellule trouvée à la ligne 25 par
exemple

ou 32 ou autre

Merci pour votre aide

Jean-Pierre




Avatar
JPB
Aie Aie Aie !
Je crois que je suis fatigué !
Cela marche effectivement comme indiqué. Je crois qu'il est temps d'aller
faire autre chose.
Merci en tout cas pour la confirmation du code
Jean-Pierre


"Ardus Petus" a écrit dans le message de news:
%
Ton code fonctionne comme prévu: il déplace le contenu de la ligne
contenant
xxx vers la ligne 25

Tu peux modifier "A25" en "A32"

Cordialement,
--
AP

"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 ?

Répnse obtenue: (merci encore)
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
C'est ok sauf la ligne c.EntireRow.Cut .Range("A25")
Je pense que c'est le A25 qui ne joue pas ?

J'aimerais déplacer la ligne de la cellule trouvée à la ligne 25 par
exemple

ou 32 ou autre

Merci pour votre aide

Jean-Pierre








Avatar
michdenis
Bonjour JPB,

Dans ta macro, il manque un point devant cette ligne de code
Cells.Find(What.....

elle devrait être :
.Cells.Find(What....


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 ?

Répnse obtenue: (merci encore)
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
C'est ok sauf la ligne c.EntireRow.Cut .Range("A25")
Je pense que c'est le A25 qui ne joue pas ?

J'aimerais déplacer la ligne de la cellule trouvée à la ligne 25 par exemple
ou 32 ou autre

Merci pour votre aide

Jean-Pierre