XL 2013 Copier coller avec conditions en VBA

[davy76]

Bonjour,

Je dispose d'un tableau toutes les semaines (le nombre de ligne varie suivant les semaines), que j'aimerais mettre en forme.
J'aimerais que lorsque la colonne A contient une ville, Excel reprenne l'info correspondante en colonne J.
Et fasse un copier coller des 2 colonnes (mais uniquement les lignes contenants les infos) sur la feuille Résultat attendu.

Merci de votre aide

 

[Jacky67]

Bonjour,

Je dispose d'un tableau toutes les semaines (le nombre de ligne varie suivant les semaines), que j'aimerais mettre en forme.
J'aimerais que lorsque la colonne A contient une ville, Excel reprenne l'info correspondante en colonne J.
Et fasse un copier coller des 2 colonnes (mais uniquement les lignes contenants les infos) sur la feuille Résultat attendu.

Merci de votre aide

Bonjour,
Si tu n'es pas allergique au vba un exemple en PJ avec ce code
La mise à jour se fait à la selection de la feuille "Résultat attendu"

Private Sub Worksheet_Activate()
 Dim plage
 Application.ScreenUpdating = False
 Cells.Clear
    With Feuil1
        If .FilterMode Then .ShowAllData
        Set plage = .Range("$A$1:$j" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row)
        plage.AutoFilter Field:=1, Criteria1:="<>"
        plage.SpecialCells(xlCellTypeVisible).Copy [a1]
        plage.AutoFilter
    End With
   Columns("B:I").Delete Shift:=xlToLeft
End Sub