Regrouper deux tableaux

[mateo22]

Bonjour à tous,

après plusieurs recherches et tests, je n'ai pas réussi à regrouper 2 tableaux en un seul

J'ai un tableau sur la feuil1 et sur la feuil2 que j'aimerai regrouper sur la feuil3

Un exemple est en PJ

Merci beaucoup pour votre aide

 

[tototiti2008]

Re : Regrouper deux tableaux

Bonjour mateo,

un essai avec ADO (voulais voir si ça marchait sur le même fichier..)

Sub ADOLocal()
    Dim Conn As Object, ConnString As String, Rs As Object, StrSQL As String
    ConnString = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & ThisWorkbook.FullName & ";ReadOnly=0;"
    StrSQL = "select [Feuil1$].num, [Feuil2$].code2, [Feuil1$].code from [Feuil1$] inner join [Feuil2$] on [Feuil1$].num = [Feuil2$].num"
    Set Conn = CreateObject("ADODB.Connection")
    With Conn
        .CursorLocation = 3
        .Open ConnString
        .CommandTimeout = 0
        Set Rs = .Execute(StrSQL)
    End With
    With Sheets("Feuil3")
        .Cells.ClearContents
        .Range("a1").Value = "Num"
        .Range("b1").Value = "Code2"
        .Range("c1").Value = "Code"
        .Range("A2").CopyFromRecordset Rs
    End With
    Rs.Close
    Conn.Close
    Set Rs = Nothing
    Set Conn = Nothing
End Sub

 

[tototiti2008]

Re : Regrouper deux tableaux

Re,

après plusieurs recherches et tests, je n'ai pas réussi à regrouper 2 tableaux en un seul

en recherchant un peu dans tes propres questions tu aurais pourtant pu tomber sur les fils là 😡

https://www.excel-downloads.com/threads/fusionner-deux-tableaux.167102/
https://www.excel-downloads.com/threads/regrouper-deux-tableaux-en-un-seul.167085/

Quel est le but de reposer la même question à plusieurs reprises ?

 

[mateo22]

Re : Regrouper deux tableaux

Exusez moi je suis distrait

problème résolu

 

[tototiti2008]

Re : Regrouper deux tableaux

Re,

Bon, c'est pas trop grave, ça m'a amusé de le faire en ADO 😉