Salut, je transfèrt des données d'une feuile a l'autre cad 3 données, dont
la première est un identifiant pour moi. Comment faire pour rempacer la linge existante par la novelleen écrasnt l'ancienne.
Voici le code de Mr.fring soit dit en passant qu'il va tres bien, une amilioration
Voir mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Bouton5_QuandClic()
 
    Dim DerL As Integer
    DerL = Sheets("Cumul").Cells(Rows.Count, 2).End(xlUp).Row + 1
 
    Sheets("Cumul").Range("B" & DerL) = Sheets("Feuil1").Range("B37")
    Sheets("Cumul").Range("D" & DerL) = Sheets("Feuil1").Range("D37")
    Sheets("Cumul").Range("F" & DerL) = Sheets("Feuil1").Range("F37")
    Sheets("Feuil1").Range("G11:G23").ClearContents
 
End Sub