Crer un tableau a partir de deux autres

Bonjour a tous,

Je cherche a realiser une macro qui cree un tableau a partir de deux autres, un fix et un variable.

J ai un tableau maitre en page 1 ( devis francais) et un deuxieme en page 2 (Topsolid) qui sera le tableau pilot.

Donc le tableau Topsolid contient en colonne 1 une quantite, en colonne 2 une reference et en colonne 3 une longueur.

Si une reference est dans le tableau Topsolid je voudrais aller chercher et copier la ligne complete contenant cette reference dans le tableau Devis francais pour la coller dans le nouveau tableau page 3. Puis retourner dans la page Topsolid pour copier les informations de longueur et de quantites de cette reference pour les coller dans la nouvelle ligne du tableau en page 3.

Je sais pas si c est tres clair

J ai essaye de faire le code mais sa ne fonctionne pas :

Sub Button1_Click()

   i = 30 //j ai juste besoin de commencer le nouveau tableau a la ligne 30

    For r = Sheets("Topsolid").UsedRange.Rows.Count To 1 Step -1 //Pour chercher toutes les references du tableau Topsolid

       If Sheets("Topsolid").Cells(r, 1).Value <> 0 Then                          //Si j ai une quantite alors j ai beoin de cette reference

           For x = Count To 190 Step 1                                                 //Pour rechercher la reference dans le tableau devis francais

                If Sheets("devis  francais").Cells(x, 2).value = Sheets("Topsolid").Cells(r, 2).value Then        

                                       Sheets("devis  francais").Rows(x).Select
                                       Selection.Copy
                                       Sheets("Sheet3").Select
                                       Cells(i, 1).Select
                                       ActiveSheet.Paste
                                       Sheets("Topsolid").Select
                                       Cells(r, 1).Select
                                       Selection.Copy
                                       Sheets("Sheets3").Select
                                       Cells(i, 5).Select
                                       ActiveSheet.Paste
                                       i = i + 1
                 End If

            Next x

        End If

        Next r

End Sub

Par avance Merci,

Steve

Bonjour et bienvenue

Si tu veux avoir une chance d'être aidé, merci de joindre un fichier.

Amicalement

Nad

Rechercher des sujets similaires à "crer tableau partir deux"