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