Bonsoir bbadr, forum
Une solution , mais comme je débute en VBA ...
affecter ce code au bouton "Ajouter à historique clients"
Sub Historique()
Dim i As Byte, Depart As Range
If Worksheets("Facture").Range("A10") <> "" Then
Set Depart = Worksheets("Suivie_clients").Range("A2").End(xlDown)
For i = 1 To Worksheets("Facture").Range("A9").End(xlDown).Row - 9
With Worksheets("Facture")
Depart.Offset(i, 0) = .Range("G5")
Depart.Offset(i, 1) = .Range("G2")
Depart.Offset(i, 2) = .Range("B2")
Depart.Offset(i, 3) = .Range("B3")
Depart.Offset(i, 4) = .Range("A10").Offset(i - 1)
Depart.Offset(i, 5) = .Range("B10").Offset(i - 1)
Depart.Offset(i, 6) = .Range("E10").Offset(i - 1)
Depart.Offset(i, 7) = .Range("G28")
Depart.Offset(i, 8) = .Range("F10").Offset(i - 1)
Depart.Offset(i, 9) = .Range("G27")
Depart.Offset(i, 10) = .Range("G4")
End With
Next
End If
End Sub
Amicalement