Discussion :

[cricket26]

Bonjour,
pour mon travail, j'aurai besoin de faire différents tableaux issu de la feuille 1 dans mon exemple que je met en pièce jointe.
Par exemple, je souhaiterais avoir un onglet qui recence seulement les lignes présentant un S dans la colonne A.
Ensuite, un onglet par entreprise différentes qui recence seulement leurs ligne d'activité.

merci d'avance

[Daniel.C]

Bonjour,

Ensuite, un onglet par entreprise différentes qui recence seulement leurs ligne d'activité.

Oui. La colonne "Entreprise" est vide. En outre, qu'est-ce que tu entends par "qui recence seulement leurs ligne d'activité" ?

[cricket26]

Bonjour,
Oui. La colonne "Entreprise" est vide. En outre, qu'est-ce que tu entends par "qui recence seulement leurs ligne d'activité" ?

Bonjour,

j'ai modifié mon fichier avec des lettres pour les différentes entreprises. J'entend par "recencer seulement", que dans l'onglet de l'entreprise "a" par exemple s'affiche que les lignes qui la concerne sans ligne vide au milieu du tableau. Et donc pour chaque nouvelle entreprise que je mettrait dans la colonne s'ouvre un nouvel onglet avec la ligne qui la concerne.

cordialement

[Daniel.C]

Bonjour,

Juste pour dire que je ne t'oublie pas, mais que je vais être assez occupé ces jours-ci. Je reprends dès que possible. Envoie ton classeur modifié.

[cricket26]

Mon fichier est dans mon premier message que j'ai modifié.

cordialement

[Daniel.C]

Bonsoir,

Essaie :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub test()
    Dim C As Range, Plage As Range, Ligne As Long, Sh As Worksheet, Dico As Object
    With Sheets("Feuil1")
        Ligne = .[A:AA].Find("*", , , , xlByRows, xlPrevious).Row
        Set Plage = .Range("A3:A" & Ligne)
        .AutoFilterMode = False
        .[A3] = "X"
        Plage.AutoFilter 1, "S"
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Ent"
        .AutoFilter.Range.Resize(, 27).Copy Sheets("Ent").[A3]
        .Range("1:2").Copy Sheets("Ent").[A1]
    End With
    With Sheets("Ent")
        If .Cells(.Rows.Count, 1).End(xlUp).Row > 3 Then
            Set Dico = CreateObject("Scripting.Dictionary")
            .[J3] = "X"
            For Each C In .Range(.[J4], .Cells(.Rows.Count, 10).End(xlUp))
                If Not Dico.exists(C.Value) Then
                    Dico.Add C.Value, C.Value
                    Set Sh = Sheets.Add(after:=Sheets(Sheets.Count))
                    Sh.Name = C.Value
                    .[J3] = "X"
                    .AutoFilterMode = False
                    Ligne = .[A:AA].Find("*", , , , xlByRows, xlPrevious).Row
                    Set Plage = .Range("J3:J" & Ligne)
                    Plage.AutoFilter 1, C.Value
                    Var = .AutoFilter.Range.Offset(, -9).Resize(, 27).Address
                    .AutoFilter.Range.Offset(, -9).Resize(, 27).Copy Sh.[A3]
                    .Range("1:2").Copy Sh.[A1]
                End If
            Next C
        End If
        .AutoFilterMode = False
    End With
End Sub