exportation de données d'une feuille à une autre

cibleo à dit:

Bonjour Nené26,

Colle cette macro événementielle dans la fenêtre de code de la feuille de calcul "bordereau_T"

Opérations pour afficher ta fenêtre de code :

Click droit sur l'onglet "bordereau_T"
Clic sur Visualiser le code
Ta fenêtre apparait, tu n'as plus qu'à y coller le code.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E500")) Is Nothing Then
  If Target.Value <> "" Then
    With Sheets("bordereau")
      LigVide = .Range("C" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & LigVide).Value = Range("A" & Target.Row).Value
      .Range("B" & LigVide).Value = Range("B" & Target.Row).Value
      .Range("C" & LigVide).Value = Range("C" & Target.Row).Value
      .Range("D" & LigVide).Value = Range("D" & Target.Row).Value
      .Range("E" & LigVide).Value = Range("E" & Target.Row).Value
      .Range("F" & LigVide).Value = Range("F" & Target.Row).Value
      .Range("G" & LigVide).Value = Range("G" & Target.Row).Value
      .Range("H" & LigVide).Value = Range("H" & Target.Row).Value
    End With
  End If
End If
End Sub

Espérant t'avoir aidé,

Cibleo

Cliquez pour agrandir...