Transfert automatique de données

Bonjour,

Je vous adresse un fichier de 3 feuilles dans lequel je souhaiterais transférer automatiquement des données.

(Les explications sont fournies dans la feuille Banque).

Merci.

Feever

Bonjour à tous,

Une façon parmi d'autres

Sub SoldeCompte()
Dim f1 As Worksheet, f2 As Worksheet
Dim Lg&, Lg2&
        Set f1 = Sheets(1)
        Set f2 = Sheets(2)
    With Sheets("Banque")
        '--- crédit ---
        Lg = .Range("a" & Rows.Count).End(xlUp).Row + 1
        Lg2 = f1.Range("a" & Rows.Count).End(xlUp).Row + 1
        f1.Range("a2:a" & Lg).Copy Destination:=.Range("a" & Lg)
        f1.Range("b2:b" & Lg).Copy Destination:=.Range("c" & Lg)
        f1.Range("a2:b" & Lg2).ClearContents                     'efface données
        '--- débit ---
        Lg = .Range("a" & Rows.Count).End(xlUp).Row + 1
        Lg2 = f2.Range("a" & Rows.Count).End(xlUp).Row + 1
        f2.Range("a2:a" & Lg).Copy Destination:=.Range("a" & Lg)
        f2.Range("b2:b" & Lg).Copy Destination:=.Range("b" & Lg)
        f2.Range("a2:b" & Lg2).ClearContents                     'efface données
        '--- formule ---
        Lg = .Range("a" & Rows.Count).End(xlUp).Row
        Range("D3").AutoFill Destination:=Range("D3:D" & Lg), Type:=xlFillDefault
    End With
End Sub

Bonne journée

Claude

Bonjour,

Je te remercie pour ton fichier, mais l'exemple est un extrait du plan comptable, il faut que les données Credit/Debit restent

écrites, j'aurais souhaité que les informations se recopient automatiquement dans la feuille Banque sans passer par le bouton

Ajoute?

re,

Pas suffisamment d'explications, ou fichier trop succinct,

je passe la main, désolé !

Claude