Code VBA permettant de copier un tableau

Résolu
Simoaasri Messages postés 20 Statut Membre -  
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je voulais ecrire un code qui permet de copier des lignes de tableau dans une autre feuille quand les valeurs de certaines cases sont identiques.
Donc dans mon classeur je veux que quand une case de la colonne "ref pay" de la feuille "facture" est égale à une case dans la colonne "livraison" de la feuille "Avoirs", ca copie toute la ligne de la feuille facture dans la feuille "lignes à relier".

Voila une capture du code que j'ai utilisé.

2 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    Plutôt qu'un image tu aurais pu mettre le code dans ton texte !!!
    Essaies : 
    Option Explicit
Sub relier()
Dim src As Range  'Source à comparer
Dim cmp As Range  'Élément de comparaison
Dim dst As Range  'Destination

  Set src = Worksheets("Facture").Range("A2")
  Set dst = Worksheets("Les lignes à relier").Range("A2")
  Do While src.Formula <> ""
    Set cmp = Worksheets("Avoirs").Range("A2")
    Do While cmp.Formula <> ""
      If src.Value = cmp.Value Then
        src.Resize(1, 12).Copy Destination:=dst
        Set dst = dst.Offset(1)
      End If
      Set cmp = cmp.Offset(1)
    Loop
    Set src = src.Offset(1)
  Loop
End Sub

    0
  2. Simoaasri Messages postés 20 Statut Membre
     
    Bonjour Patrice, je te remercie pour ta réponse mais quand j'execute la macro il n'y a rien qui se passe, je te mets le fichier en lien ci dessous si tu veux bien regarder, Merci
    https://mon-partage.fr/f/xxFUluz1/
    0
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Bonjour,

      Je suis pas sur d'avoir compris ce que tu voudrais !
      Voici un essai (la macro met plus d'une minute pour s'exécuter) :
      https://mon-partage.fr/f/lEvCUKCO/
      0