Importer des données

Bonjour à vous tous,

Bonjour paita, le forum,

Zut, trop tard....je poste quand même....

Option Explicit

Sub Macro1()
 Dim x%, k%, i%
 Dim colsource, coldest, tablo, tabloR()

          tablo = Sheets("BDD").ListObjects("tb_BDD").DataBodyRange
      colsource = Array(1, 2, 3, 4, 5, 6, 7, 8)
        coldest = Array(1, 2, 3, 6, 7, 9, 12, 13)

   With Sheets("Suivi")
    If Not .ListObjects("tb_suivi").DataBodyRange Is Nothing Then .ListObjects("tb_suivi").DataBodyRange.Delete
     k = 0
      For i = 1 To UBound(tablo, 1)
       If tablo(i, 9) Like "x" Then
        ReDim Preserve tabloR(1 To 14, 1 To k + 1)
         For x = LBound(colsource) To UBound(colsource)
          tabloR(coldest(x), 1 + k) = tablo(i, colsource(x))
         Next x
     k = 1 + k
       End If
      Next i
     On Error Resume Next
      .Cells([tb_suivi].Rows.Count + 1, 1).Resize(UBound(tabloR, 2), 14) = Application.Transpose(tabloR)
    Erase tabloR: Erase tablo
   End With
   MsgBox "Transfert effectué sur feuille Suivi"
End Sub

Cordialement,

Merci d'avoir pris la peine de me lire et c'est parfait, mieux de ce que j'ai réalisé sur mon fichier, j'adopte vraiment ce que je voulais faire !

Mille mercis xorsankukai, bonne soirée et une tonne de chocolats

Bien le bonjour,

Je me suis remise sur ce fichier ; super cela fonctionne comment faire pour mettre en ligne 21 merci

Bonjour paita,

Merci pour le retour,

comment faire pour mettre en ligne 21

Peux-tu être plus précise, car je ne comprends pas ta demande...

Dans le fichier que je t'ai joint, on commence par vider le Tableau de la feuille Suivi, pour ensuite écrire les données du Tableau de la feuille BDD dont les lignes contiennent un x dans la colonne Transfert.

De quelle ligne 21 parles-tu ?

Un exemple peut-être ?

Cordialement,

Voilà j'ai pu modifier mais le titre s'enlève - je veux garder les infos que j'importe et chaque semaine je vais en rajouter ; encore mille mercis

Re,

Remplaces

.Cells([tb_suivi].Rows.Count + 1, 1).Resize(UBound(tabloR, 2), 15) = Application.Transpose(tabloR)

Par

 .Cells([tb_suivi].Rows.Count + 20, 1).Resize(UBound(tabloR, 2), 15) = Application.Transpose(tabloR)

Cordialement,

Merci beaucoup c'est génial, une très bonne journée et mille mercis pour ton aide précieuse ; question comment garder les infos précédentes ; juste copier coller les 4 lignes dans le tableau suivi