supprimer ligne après un coller

[jeremV]

Bonjour, j'ai un fichier qui reprend selon une condition un copier de cette ligne vers un fichier mais je voudrais la supprimer apres ce coller est il possible ? car je ne trouve pas de code approprié sur le forum etant novice. Merci a tous

 

[Pierrot93]

Re : supprimer ligne après un coller

Bonjour,

petite remarque au passage, plutôt qu"un "copier" pourquoi ne pas faire un "couper".... A voir, sans plus de détails, difficile d'en dire plus...

bonne journée
@+

 

[jeremV]

Re : supprimer ligne après un coller

Bonjour, donc un couper puis un coller ? j'ai essayé de remplacer copy par .cut mais erreur de débogage avec le past dans l'autre fichier. mais le probleme du couper c'est que la ligne ne supprime pas et moi mon but et de copier la ligne et de la supprimer completement, car dans cette ligne il y a des conditions qui reste par exemple car des case en couleurs.

Public Sub archives()
Dim nFichier As String, Dlig&, dl As Long
Dim wbSOURCE As Workbook, wbDESTINATION As Workbook
Dim A_COPIER As Range
' mettre le bon chemin
nFichier = "C:\Users\Jérémy\Desktop\ok\ok\test\Nouveau dossier (2)\archive\TDB Historique 2014.xlsx"
Set wbSOURCE = ThisWorkbook
Dlig = ActiveCell.Row
Set A_COPIER = wbSOURCE.Sheets("Tableau de Bord").Cells(Dlig, "A").Resize(, 7)
Set wbDESTINATION = Workbooks.Open(nFichier)
With wbDESTINATION
    With .Sheets(1)
        .Unprotect PassWord:="jeremy0"
        A_COPIER.Copy
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(dl + 1, 1).PasteSpecial xlValues
        .Protect PassWord:="jeremy0"
    End With
    .Close True
End With
End Sub

 

[Pierrot93]

Re : supprimer ligne après un coller

Bonjour,

pour supprimer la ligne copiée :

A_COPIER.EntireRow.Delete

bonne journée
@+

 

[jeremV]

Re : supprimer ligne après un coller

Bonjour, merci pour votre repondre. c'est impeccable !!!!! Merci !

Par contre c'est possible comme il supprime la ligne de rajouter une ligne avec la même mise en forme en desous de la derniere ligne qui contient des informations ? merci d'avance


bonne journée

 

[Pierrot93]

Re : supprimer ligne après un coller

Re,

bah... au lieu d'un "delete" fait un "ClearFormats".... ensuite faire un copier / collage spécial du format voulu

 

[jeremV]

Re : supprimer ligne après un coller

mais le probleme si je mets ça , c'est que cette ligne sera vide en plein milieu des lignes remplis non ?

 

[Pierrot93]

Re : supprimer ligne après un coller

Re,

c'est que cette ligne sera vide en plein milieu des lignes remplis non ?

oui, il y a des chances.... pas tout compris moi alors....

 

[jeremV]

Re : supprimer ligne après un coller

En fait je veux tout simplement rajouter une ligne ayant la meme mise en forme que les autre que celle supprimer. Et je voudrais que celle ci se situe en dessous des lignes ayant des valeurs

 

[jeremV]

Re : supprimer ligne après un coller

j'espere tu me comprend :s

 

[Pierrot93]

Re : supprimer ligne après un coller

Bonsoir,

mets un tout petit fichier en pièce joince, ne representant que le problème posé, avec ce que tu as et le résultat attendu, plus facile pour t'aider...

bonne soirée
@+

 

[jeremV]

Re : supprimer ligne après un coller

bonjour, voilà le petit fichier merci d'avance.

Bonen journée

 

[jeremV]

Re : supprimer ligne après un coller

le fichier te conviens ?

 

[jeremV]

Re : supprimer ligne après un coller

bonjour a tous quelqu'un serait m'aider svp