Erreur sur un copier/coller

[matthieu69]

bonjour a tous,

Je me permet d'ouvrir se poste car depuis se matin je cherche mais sans aucun résultat

J'ai créer un classeur Excel avec plusieurs UserForm qui me permette de gérer un stock.
Il se trouve que quand une pièce rentre en stock on utilise le premier UserForm pour incrémenter la Feuil1 et quand il en sort je copie/colle la ligne sur ma Feuil2 pour garder un historique.

Tout se passe bien jusqu'à mon copier/coller ou mon 'ActiveSheet.Paste' me met en error 1004.

J'ai fais plusieurs modification mais je tourne en rond

Merci d'avance à tous ceux qui accorderons un peux de leur temps

Ci-joint vous trouverez mon fichier.

 

[thebenoit59]

Re : Erreur sur un copier/coller

Bonjour Matthieu.

Pour éviter de passer par un Select et une boucle For k =, qui n'est pas utile dans ta situation :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'masque les étapes----------------------

'compte le nombres de lignes-----------------------------------------------
nbl = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
X = Format(Date, "dd mmmm yyyy")

'si la textbox ne contient pas de valeur numérique, alors msgbox et vider la textbox
If TextBox1.Value = "" Then Exit Sub
If Not IsNumeric(TextBox8) Then
       MsgBox "Saisir un Gencod", vbInformation, "Erreur de saisie"
       TextBox1.Value = ""
       TextBox1.SetFocus
       Exit Sub
     End If

'cherche la ligne qui correspond au gencod de la textbox et copie colle cette dernière
For j = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
    If Cells(j, 3).Value = CDbl(TextBox1) Then
        nbl2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
        Rows(j).EntireRow.Copy Sheets(2).Rows(nbl2 + 1)
        Sheets(2).Cells(nbl2 + 1, 7) = X
        Sheets(1).Rows(j).Delete
    End If
Next

Application.ScreenUpdating = True
End Sub

 

[matthieu69]

Re : Erreur sur un copier/coller

parfait c'est exactement ce qu'il me fallait merci a toi