J'ai tapé ceci:
Private Sub CommandButton2_Click()
Dim ligVide As Long
ligVide = Sheets("Créances").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Facture").Range("A2").Copy (Worksheets("Créances").Cells(ligVide, 2))
Worksheets("Facture").Range("B2").Copy (Worksheets("Créances").Cells(ligVide, 3))
Worksheets("Facture").Range("C2").Copy (Worksheets("Créances").Cells(ligVide, 5))
End Sub
J'ai mis le fichier en pièce jointe.
Pouvez-vous me dire pourquoi les lignes ne se rajoutent pas les unes derrières les autres quand je clique plusieurs fois sur mon bouton ?
Merci