Copier coller / macro boisgontier

[urbanito1]

le forum bonjour,
je m'inspire d'un fil


https://www.excel-downloads.com/threads/macro-copier-coller-sous-conditions.20000453/

Free Pages Personnelles: Erreur 404 - Document non trouvé

pour l'adapter à mon tableau

j'ai un souci mais je ne vois pas ce qu'il faut changer dans la macro

je recopie les donnèes deux fois au niveau de la feuille 1 "BD"

merci de m'éclairer
urbanito1

 

[DoubleZero]

Re : Copier coller / macro boisgontier

Bonjour, urbanito1, le Forum,

Comme ceci ?

Sub Extrait()
    Set f = Sheets("BD")
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    '--- Liste des services
    f.[a:a].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[Z1], Unique:=True
    For Each c In f.Range("Z2:Z" & f.[Z65000].End(xlUp).Row)   ' pour chaque service
        f.[Z2] = c.Value
        On Error Resume Next
        Sheets(c.Value).Delete
        On Error GoTo 0
        Sheets.Add After:=Sheets(Sheets.Count)   ' création
        ActiveSheet.Name = c.Value
        '-- extraction
        f.[A1:V10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[Z1:Z2], CopyToRange:=[A1]
    Next c
End Sub

A bientôt

 

[BOISGONTIER]

Re : Copier coller / macro boisgontier

Bonsoir,

Il faut que Service soit écrit en Z1 avant de lancer la macro.

JB

 

[urbanito1]

Re : Copier coller / macro boisgontier

le forum
Double Zéro
Boisgontier

c'est clair
merci et bonne soirée
urbanito1