1 Onglet pour 1 critère

Bonjour,

Je recherche une solution "Simple" pour créer 1 Onglet à partir d'un 1 critère d'une colonne d'une base de donnée.

(je ne veux pas sélectionner le critère, je veux que chaque critère (admettons j'ai 10 société dans la colonne A, j'aurais 11 onglet dans mon fichier Excel (1 onglet avec la base de donnée, et les 10 onglets par société).

merci beaucoup,

bonjour

une proposition, 1 onglet par société et non 10.

Sub aargh()
    For Each c In Range("A1:A10")
        If c.Value <> "" Then
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = c.Value
        End If
    Next c
End Sub

Re,

merci de votre retour, sauf que j'ai 2 "problèmes" :

1. la recopie des données correspondant à la liste d'un critère sélectionner n'est pas effective dans l'onglet crée.

2. si j'ai deux critères le même, l'agence saute.

Merci

Pour information,

Voici un fichier type base de donnée, et les critères possibles.

l'objectif : créer un onglet, par critère "exemple : avignon") et cette onglet doit reprendre les données relatives à la sélection du critère avignon (les colonnes de A à K et plus, )

Merci beaucoup,

bonsoir,

voici une nouvelle proposition, basée sur tes nouvelles demandes

Sub Onglet()
    Set ws = Sheets("base")
    dl = ws.Cells(Rows.Count, 1).End(xlUp).Row
    ws.Cells.AutoFilter
    For Each critere In Range("A2:A" & dl)
        If critere.Value <> "" Then
            On Error Resume Next
            Set wso = Nothing
            Set wso = Sheets(critere.Value)
            On Error GoTo 0
            If wso Is Nothing Then
                Sheets.Add After:=Sheets(Sheets.Count)
                Set wso = ActiveSheet
                wso.Name = critere.Value
                ws.Range("$A$1:$K$" & dl).AutoFilter Field:=1, Criteria1:=critere.Value
                ws.Rows("1:" & dl).Copy wso.Range("A1")
            End If
        End If
    Next critere
End Sub

Bonjour,

c'est excellent, je vous remercie beaucoup.