Transfert de donnée

Bonjour

je possède deux tableaux: un permettant la saisie de donnée ( tableau A) et l'autre servant de database (tableau B)

j'aimerais que les données soient transmise de A vers B en gardant les lignes précédente du tableaux B

ne travaillant que sur une seule colonne je pensais donc à ce code

Sub extraitRE()

Dim objMonClasseur As Workbook
Dim objPlageRecherche As Range
Dim derligne As Long

Set objMonClasseur = Workbooks.Open("C:\Users\ygril\Desktop\sdfsdf\FICHIER UNIQUE LCQ LEE.xlsm", True, False, , , "fu") 

Sheets("final").Unprotect ("mcayg")

    Windows("FICHIER UNIQUE LCQ LEE.xlsm").Activate
    ActiveSheet.Range("$A$8:$AC$99989").AutoFilter Field:=2, Criteria1:= _
        "=*CQGBS*", Operator:=xlAnd
    Windows("Enregistrement FNC.xlsm").Activate

Workbooks("Enregistrement FNC.xlsm").Sheets("final").Range("C15") = Workbooks("FICHIER UNIQUE LCQ LEE.xlsm").Sheets("final").Range("b65536").End(xlUp).Value

 If MsgBox("La dernière FNC est " & Range("c15") & ". Voulez vous utiler la prochaine FNC " & Range("c17") & " ?", vbQuestion + vbYesNo) <> vbNo Then
Windows("FICHIER UNIQUE LCQ LEE.xlsm").Activate
ActiveSheet.ShowAllData
derligne = Workbooks("FICHIER UNIQUE LCQ LEE.xlsm").Sheets("final").Cells(Rows.Count, 2).End(xlUp).Row + 1

 MsgBox derligne
derligne = Workbooks("Enregistrement FNC.xlsm").Sheets("final").Range("C17").Value

 End If

Workbooks("FICHIER UNIQUE LCQ LEE.xlsm").Activate
 'ActiveWorkbook.Close savechanges:=True

End Sub

cependant mes donnée n'arrivent pas au tableau B et la je tourne en rond....

un petit coup de main svp.....

Salut,

Pourrait tu nous joindre un fichier excel ?

Cordialement

bonjour

au final, j'ai réussi à trouver par moi-même

merci

Salut Deadpiou,

Si tu peux poster la solution pour les autres ca serait top ^^

Cordialement