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

MONTREAL2020 · 28 Janvier 2021

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 · 28 Janvier 2021

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

i20100_ · 28 Janvier 2021

Bonjour,

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

VB:

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 · 29 Janvier 2021

i20100_ à dit:
Bonjour,

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

VB:

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

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

MONTREAL2020

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

i20100_

XLDnaute Nouveau

MONTREAL2020

XLDnaute Junior

Discussions similaires