Transfère de donnée VBA

Bonsoir tout le monde

Ce que je demande est simple je l'assume mais mes connaissance en VBA ne sont plus de nos jours donc s'il vous plait un peu d'aide

J'ai joint un fichier, en réalité c'est environ 5000 et quelque de ligne c'est pour ça que j'aimerai bien un Code VBA pour automatiser le travail

Il faut SVP transférer les chiffre de la feuille 2 à la feuille 1 en tenant compte du numéro de facture . Pas de conditions

Merci d'avance et bonne soirée

Bonjour,

A tester

Merci ça a marché mais est ce possible d'avoir un code sans bouton ? Merci encore

Re,

Dis-moi à quel moment tu désires que le transfert se fasse.

A l'ouverture du classeur

Au changement de données sur la feuille 2

Re,

Voilà en étant sur Feuil2, à chaque changement de valeur de la colonne B la MàJ s'effectue sur la Feuil1 colonne B

Je vais exagérer un peu: peut tu sttttp me copier le code ici j'ai pas accès à internet sur le pc merci

Re,

A mettre dans Feuil2

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim F1 As Range
Dim F2 As Range
Dim i As Integer
Dim j As Integer
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Feuil1").Range("A2:A" & DernLigne)
Set F2 = Sheets("Feuil2").Range("A2:A" & DernLigne)
Sheets("Feuil1").Range("B2:B" & DernLigne).Clear
    For i = 1 To F1.Rows.Count
        For j = 1 To F2.Rows.Count
            If F1(i, 1).Value = F2(j, 1).Value Then
            F1(i, 2).Value = F2(j, 2).Value
            End If
        Next j
    Next i

Set F1 = Nothing
Set F2 = Nothing
End Sub

Merci beaucoup !!! Je vis tester et je vous tiens au courant

Merci ca A marche