Copier/Coller dans un UserForm

Bonjour !

Je travail actuellement sur la mise en place d'un UserForm dans mon projet. Malheureusement je n'arrive pas a mettre en place un simple coller. Lorsque je clic sur copier, ma ligne est effectivement entièrement copier,mais par contre impossible de coller j'ai un message d'erreur "438".

Voici mon code que j'utilise

Private Sub pbCopy_Click()
Selection.EntireRow.Copy
End Sub

Private Sub pbPaste_Click()
Selection.EntireRow.Paste
End Sub

Private Sub pbEffacer_Click()
Selection.EntireRow.Delete
End Sub

Merci

Bonjour,

Tu peux essayer comme cela

Private Sub pbCopy_Click()
Selection.EntireRow.Copy
End Sub
Private Sub pbPaste_Click()
ActiveSheet.Paste Destination:=ActiveCell.EntireRow
End Sub
Private Sub pbEffacer_Click()
ActiveCell.EntireRow.Delete
End Sub

A+

Super ! Merci beaucoup !

Je reviens rapidement sans ouvrir un nouveau topic pour éviter de polluer inutilement ! Je veux insérer un ligne mais avec a l'intérieur de la cellule colonne "C" une formule. Comme dois je procéder ?

Formule :

=SOMME(D";H";L";P";T";X";AB";AF";AJ";AN";AR")
Le " représentant le numéro de la ligne

Private Sub PbInserer_Click()
Selection.EntireRow.Insert
End Sub

Private Sub PbInserer_Click()
Dim L As Long
    Selection.EntireRow.Insert
    L = ActiveCell.Row
    Range("C" & L).Formula = "=SuM(D" & L & _
    ",H" & L & _
    ",L" & L & _
    ",P" & L & _
    ",T" & L & _
    ",X" & L & _
    ",AB" & L & _
    ",AF" & L & _
    ",AJ" & L & _
    ",AN" & L & _
    ",AR" & L & _
    ")"
End Sub

A+

Maîtrise total frangy ! J'aurais jamais réussi a faire ça

Merci !