XL 2016 Déplacer une ligne d'une feuille à une autre

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #2

Bonjour Promethee642 et bienvenu sur XLD,
Un essai en PJ avec :

VB:

Sub Archiver()
    Application.ScreenUpdating = False
    DLListing = Sheets("Listing").Range("B65500").End(xlUp).Row
    With Sheets("Listing")
        For L = DLListing To 2 Step -1
            If .Cells(L, "C") = "Parti" Then
                DLCloturé = 1 + Sheets("Clôturé").Range("C65500").End(xlUp).Row
                .Rows(L & ":" & L).Copy Destination:=Sheets("Clôturé").Range("A" & DLCloturé)
                .Rows(L & ":" & L).Delete Shift:=xlUp
            End If
        Next L
    End With
End Sub

N'étant pas spécifié, l'archivage se fait avec le format et conservation du lien hypertexte.

 

Pièces jointes

• Test (9).xlsm

  69.8 KB · Affichages: 6

Vote positif 0 Vote négatif

P

Promethee642

XLDnaute Nouveau

• 14 Octobre 2021

• #3

Merci beaucoup pour ta réponse aussi rapide,

La macro que tu me propose fonctionne très bien mais il y a un soucis.

Serait-il possible de déplacer uniquement les colonnes A, B, C, D et E de la ligne et non pas toute la ligne.

Si les premières lignes de mon tableau où se trouve le bouton on la valeur "Parti". Le bouton se déplace également sur la feuille 2.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #4

Promethee642 à dit:

mais il y a un soucis.

Cliquez pour agrandir...

Encore eût il fallu le préciser.
En PJ un nouvel essai. Je ne déplace et ne supprime que de A à E.

VB:

Sub Archiver()
    Application.ScreenUpdating = False
    DLListing = Sheets("Listing").Range("B65500").End(xlUp).Row
    With Sheets("Listing")
        For L = DLListing To 2 Step -1
            If .Cells(L, "C") = "Parti" Then
                DLCloturé = 1 + Sheets("Clôturé").Range("C65500").End(xlUp).Row
                .Range("A" & L & ":E" & L).Copy Destination:=Sheets("Clôturé").Range("A" & DLCloturé)
                .Range("A" & L & ":E" & L).Delete Shift:=xlUp
            End If
        Next L
    End With
End Sub

 

Pièces jointes

• Test (V2).xlsm

  51.2 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution

P

Promethee642

XLDnaute Nouveau

• 14 Octobre 2021

• #5

Merci beaucoup pour ta solution,

Cela fonctionne parfaitement.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #6

Info comme vous êtes nouveau.
Vous pouvez mettre ce post en Résolu. Cela simplifie la compréhension aux futurs lecteurs, et leur évite de télécharger une mauvaise solution.

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 14 Octobre 2021

• #7

Bonjour sylvanu, Promethee, le forum.

Sylvanu, ta macro devrait me satisfaire dans un de mes fichiers, sauf que j'ai 2 colonnes en plus. Une "date" en col B et une "Montant" en col E. Peux tu me modifier la macro du dernier fichier en #4 , j'essaie par tous les moyens de changer les lettres, les chiffres et je n'y arrive pas.
Je te remercie.

​

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #8

Bonjour Collins,
Les colonnes B et E sont déjà copiées.
Si cela veut dire que les colonnes ajoutées sont F et G alors :

VB:

Sub Archiver()
    Application.ScreenUpdating = False
    DLListing = Sheets("Listing").Range("B65500").End(xlUp).Row
    With Sheets("Listing")
        For L = DLListing To 2 Step -1
            If .Cells(L, "C") = "Parti" Then
                DLCloturé = 1 + Sheets("Clôturé").Range("C65500").End(xlUp).Row
                .Range("A" & L & ":G" & L).Copy Destination:=Sheets("Clôturé").Range("A" & DLCloturé)
                .Range("A" & L & ":G" & L).Delete Shift:=xlUp
            End If
        Next L
    End With
End Sub

Si ça ne marche pas, alors ouvrez un nouveau post avec un fichier test.

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 14 Octobre 2021

• #9

Merci beaucoup de ta réponse
je prend le même exemple que Promethee et regarde les colonnes que j'ai en +par rapport à lui (la B et La E)


j'ai mis ta macro que tu m'as modifiée et rien ne se passe quand j'archive.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2021

• #10

C'est normal, "Parti" est en colonne D et non C,

VB:

Remplacer :
If .Cells(L, "C") = "Parti" Then
par
If .Cells(L, "D") = "Parti" Then

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 14 Octobre 2021

• #11

Je l'avais fait, mais ca y est je viens de voir d'où viens mon erreur. Dans la colonne D j'avais écris "parti" sans majuscule alors que la macro c'est "Parti".
Je te remercie encore. Tu me sauves à chaque fois
Passe une bonne soirée

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2021

• #12

Si cela vous pose problème vous pouvez le résoudre de cette façon :

VB:

If Lcase(.Cells(L, "C")) = "parti" Then

Lcase transforme la chaine en minuscules.
Ainsi cela marchera avec Parti, parti, PARTI ....

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Octobre 2021

• #13

Bonjour Sylvanu

j'ai mis cet If et dans un 1er temps ça n'a pas marché parce que j'avais "PARTI" en majuscule comme ci-dessous
If Lcase(.Cells(L, "C")) = "PARTI" Then
En le mettant en minuscule il n'y a pas eu de problème.
je me débrouille en faisant des essais
Un grand merci encore.

 

Vote positif 0 Vote négatif