re le forum Excel-Pratique!
le code sur feuil1 (Equipements)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" & Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" & Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value = Sheets("Equipements").Range("B6", Sheets("Equipements").Range("E6").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C6", Sheets("Equipements").Range("D6").Offset(Zone, 0)).ClearContents
End If
End Sub
sur feuil2 (Données)
Sub incremente()
'macro par Dan pour clyver - xl pratique le 02/04/08
Dim i As Integer
For i = 2 To Range("D65536").End(xlUp).Row
If Range("D" & i) > 0 Then Range("E" & i) = Range("E" & i - 1) + 1
Next
End Sub
pour faire simple une archive de la feuil1 (Equipements) se fait lorsque je change la valeur en 'C3" et la copie en feuil2 (Données).
voilouu
merci