VBA : traitement via une liste de données suite

Bonjour,

J’ai un problème à poser aux bonnes volontés :

Dans un fichier boites.xlsx j’ai deux onglets :

- Donnees
- Sources

Dans le 1er, il y a toutes mes valeurs dont en colonne D, un code qui est repris dans le second onglet à en colonne A.
Je souhaiterais savoir, si il est possible sous VBA de copier toutes les lignes ayant un code 101 par exemple et les copier dans un onglet à créer ayant le nom associé au code (qui se trouve dans le second onglet sources). Puis faire de même avec tous les autres codes.

Au final avoir un onglet par code avec le nom associé au code et toutes les lignes qui vont bien.

D’avance merci.

Pièce jointe 141354

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim C As Range, Plage As Range, Data As Range With Sheets("Sources") Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp)) End With With Sheets("Donnees") Set Data = .Range(.[A1], .Cells(.Rows.Count, 5).End(xlUp)) .AutoFilterMode = False For Each C In Plage Data.AutoFilter 4, C.Value Sheets.Add.Name = C.Offset(, 1).Value .AutoFilter.Range.Copy ActiveSheet.[A1] Next C .AutoFilterMode = False End With End Sub

---

Bonjour Daniel,

Comme la dernière fois ça marche super !

Merci encore.

20 min après mon poste et hop la solution !