XL 2013 Copier coller avec conditions en VBA

davy76

XLDnaute Nouveau
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
 

Pièces jointes

  • test.xlsx
    9.7 KB · Affichages: 14

Jacky67

XLDnaute Barbatruc
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"
VB:
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
 

Pièces jointes

  • villes.xlsm
    20.7 KB · Affichages: 12

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou