XL 2010 Créer une copie de définies avec condition

[MONTREAL2020]

Bonsoir,

Je souhaiterai avoir solution pour automatiser la création d'une copie de certaines colonnes que j'aurais définies et extraire les données sur une feuille vierge existante.

Je veux avoir uniquement les lignes dans la cellule contient (eg. UPL 1 ou UPL 2, UPL 3 ) sans l'entête.




Merci

 

[sylvanu]

Bonjour Montréal,
Vous n'auriez pas un petit fichier test anonyme, ce serait bien plus simple pour répondre.

 

[i20100_]

Bonjour,

voici un exemple pour transférer les lignes filtrer de la colonne "B"

Sub transfert()
Dim lignes_visibles  As Range
With Sheets("Feuil1").ListObjects("Tableau1")
        Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        lignes_visibles.Columns(2).Copy Sheets("Feuil3").[A2]
 End With
End Sub

 

[MONTREAL2020]

Bonjour,

voici un exemple pour transférer les lignes filtrer de la colonne "B"

Sub transfert()
Dim lignes_visibles  As Range
With Sheets("Feuil1").ListObjects("Tableau1")
        Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        lignes_visibles.Columns(2).Copy Sheets("Feuil3").[A2]
End With
End Sub

Bonjour i20100,

Super, merci beaucoup