VBA - Couper/coller : quel code ???

[Blueangel]

Bonsoir à tous,

Je reviens parmi vous pour mon programme.
Je suis sur mon bouton "Supprimer".
Voilà ce que je souhaiterai faire via mon formulaire G_Clients :
- je sélectionne un clients dans mon ListView et je clic sur supprimer (ok)
- la ligne de mon listView est supprimée (ok)
- dans ma table "Clients", la ligne correspondant à mon client doit être coupée (ok)
- puis collée sur la 1ère ligne vide de ma table "Archives Clients". (problème !!!!)
- et suppression de la ligne vide dans la table "Clients".

Quel est le code pour coller ?
question bonus : est-ce que mon code est correct, ou y'a-t-il plus simple/mieux ?

Merci pour votre aide
@+
Blueangel

 

[Blueangel]

Re : VBA - Couper/coller : quel code ???

Re,

J'ai trouvé qqch,mais ça me colle que ma 1ère colonne !

Private Sub suppr_client_Click()
Dim i As Integer
Dim res As Boolean
Dim r2 As Range

res = False
i = 2
Do While res = False
If Worksheets("Clients").Cells(i, 1).Text = TextBox1.Text Then

If Worksheets("Archives_Clients").Cells(2, 1).Text = "" Then 'Cas particulier : 1er archivage
Set r2 = Worksheets("Archives_Clients").Cells(2, 1)
Else
Set r2 = Worksheets("Archives_Clients").Cells(1, 1).End(xlDown).Offset(1, 0) 'Cas général des archivages
End If

With Worksheets("Clients")
.Cells(i, 1).Rows.Copy Destination:=r2.Rows 'erreur à ce niveau
End With

With Worksheets("Clients")
.Rows.Cells(i, 1).Delete
End With

res = True
Else
res = False
i = i + 1
End If

Loop

ListView1.ListItems.Remove (ListView1.SelectedItem.Index)

End Sub


Pouvez-vous m'indiquer où est le problème ?
Merci
Blueangel