Discussion :

[dttpedt]

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.

boites.xlsx

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dttpedt]

Bonjour Daniel,

Comme la dernière fois ça marche super !

Merci encore.

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