Bonjour,
j'ai une macro pour mettre les produit offerts et commandés à la suite à condition que le code d'identification soit le même.
J'aimerais que la macro mette aussi sur la feuille trois, les codes n'ayant pas de correspondance en desous du tri précédent, mais la j'ai du mal à trouver une solution.
Voici le code;
Sub test()
Dim Plage As Range, a As Range, Sh As Worksheet, Ligne, Ligne2 As Long
Set Sh = Sheets("Feuil2")
Ligne2 = 2
With Sheets("Feuil1")
Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("Feuil3")
.Cells.Clear
[Feuil1!A1:CD1].Copy .[A1]
[Feuil2!A1:CL1].Copy .[CE1]
For Each a In Plage
Ligne = Application.Match(a.Value, [Feuil2!A:A], 0)
If IsNumeric(Ligne) Then
Ligne2 = Ligne2 + 1
a.Resize(, 82).Copy .Cells(Ligne2, 1)
Sh.Range(Sh.Cells(Ligne, 1), Sh.Cells(Ligne, 90)).Copy .Cells(Ligne2, 83)
End If
Next a
End With
End Sub
merci pour votre aide
j'ai une macro pour mettre les produit offerts et commandés à la suite à condition que le code d'identification soit le même.
J'aimerais que la macro mette aussi sur la feuille trois, les codes n'ayant pas de correspondance en desous du tri précédent, mais la j'ai du mal à trouver une solution.
Voici le code;
Sub test()
Dim Plage As Range, a As Range, Sh As Worksheet, Ligne, Ligne2 As Long
Set Sh = Sheets("Feuil2")
Ligne2 = 2
With Sheets("Feuil1")
Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("Feuil3")
.Cells.Clear
[Feuil1!A1:CD1].Copy .[A1]
[Feuil2!A1:CL1].Copy .[CE1]
For Each a In Plage
Ligne = Application.Match(a.Value, [Feuil2!A:A], 0)
If IsNumeric(Ligne) Then
Ligne2 = Ligne2 + 1
a.Resize(, 82).Copy .Cells(Ligne2, 1)
Sh.Range(Sh.Cells(Ligne, 1), Sh.Cells(Ligne, 90)).Copy .Cells(Ligne2, 83)
End If
Next a
End With
End Sub
merci pour votre aide
Dernière édition: