Copie des donnees du feuille a une autre

Bonjour

Je dois copier des donnees d'une feuille vers une autre avec une condition . j'ai une liste déroulante dans la rangée qui contienne 3 options ( complete /in process /cancel) je dois copier toutes les lignes qui ont ''complete'' dans la liste déroulante

j'ai essayce ce code ci dessous mais ca marche toujours pas

Sub copier()
    Dim ws1 As Worksheet, ws2 As Worksheet, src As Range, dest As Range, i As Integer

    Set ws1 = Worksheets("Workload - Charge de travail")
    Set ws2 = Worksheets("Sheet1")

    For i = 2 To ws1.Range("A1").SpecialCells(xlLastCell).Row

        Set src = ws1.Range("A2:AL50") ' la selection des plages de donnees
        Set dest = ws2.Range("A2:AL50")

        If src.Cells(i, 28).Value = "Completed - Appointment made / Complété - Nomination faite" Then

           '(i,28) for my drop down list

           src.Copy Destination:=dest ' page source
           dest.Value = dest.Value 'destination page

      End If

  Next i
End Sub

bonjour

une copie de tableau avec filtrage se fait facilement avec le menu Données "Filtre avancé"

et ça peut s'enregistrer en macro

j'ai besoin d'une macro par ceque le tableau est toujours peut etre modifiable

re

il est bien entendu que le filtre avancé peut être enregistré en macro, inutile de taper la macro

joins un fichier, on va le faire

ok merci beaucoup pour ton aide :

tu trouveras en piece jointe le fichier excel

je voulais copier seulement les lignes qui ont une valeur = ''Completed - Appointment made / Complété - Nomination faite ''

(Range AB ) de la page `Workload - Charge de travail" vers la feuile `` sheet1``

re

s'il te plaît, pourrais-tu ne mettre que le tableau de départ (et même supprimer les colonnes inutiles pour comprendre quoi faire) ?

je suis perdu dans trop de feuilles et de détails inutiles pour t'aider.

en attendant je te fais un template :

voir la macro Macro1