extraction vers autre onglet

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #2

Re : extraction vers autre onglet

Bonsoir à tous

rafi93
Essaies ceci

Code:

Sub Macro14()
With ActiveSheet
.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="1"
.AutoFilter.Range.Columns(3).Copy Sheets("cible").[A1]
.AutoFilter.Range.Columns(5).Copy Sheets("cible").[B1]
.AutoFilter.Range.Columns(6).Copy Sheets("cible").[C1]
End With
End Sub

 

Dernière édition: 14 Mai 2015

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 14 Mai 2015

• #3

Re : extraction vers autre onglet

merci
simple et efficace !

j'essaie maintenant de remplacer le N° de colonne par le nom de la colonne ("Titre2") mais je n'y arrive pas :
remplacer Field:=2 par ([Tableau1[Titre2]] ??

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #4

Re : extraction vers autre onglet

Re

Ayant d'essayer, il est plus sage de se poser pour un peu de lecture 😉
Ce lien n'existe plus

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 14 Mai 2015

• #5

Re : extraction vers autre onglet

en fait, j'avais déjà été lire le guide de référence

mais je ne sais pas comment passer le nom de la colonne Titre2 en paramètre (et non son N°)

ce sera sans doute évident quand je le saurai, mais là je coince

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #6

Re : extraction vers autre onglet

Re

en fait, j'avais déjà été lire le guide de référence

Cliquez pour agrandir...

Dans cas, pourquoi écrire ?

remplacer Field:=2 par ([Tableau1[Titre2]] ??

Cliquez pour agrandir...

😕😕

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 14 Mai 2015

• #7

Re : extraction vers autre onglet

ben j'ai modifié le code en

Code:

.ListObjects("Tableau1").Range.AutoFilter [Tableau1[Titre2]], Criteria1:="1"

et ça plante

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #8

Re : extraction vers autre onglet

Re

Oui justement c'est pour cela que j'ai mis le lien !!!

Field
Facultatif
Variante
Offset d'entier du champ sur lequel vous voulez baser le filtre (à partir de la gauche de la liste ; le champ le plus à gauche est le champ un).

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 14 Mai 2015

• #9

Re : extraction vers autre onglet

mais oui, ça j'ai compris

mais ce que je vodrais passer en parametre c'est pas l'offset, mais le nom de la colonne !!!!

autrement dit, écrire un truc du genre

Code:

.ListObjects("Tableau1").Range.AutoFilter [Tableau1[Titre2]], Criteria1:="1"

(qui plante)

plutot que

Code:

.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="1"

je ne sais pas si je suis clair, ou alors y'a un truc qui m'échappe

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #10

Re : extraction vers autre onglet

Re

Non tu n'as pas compris!

mais ce que je vodrais passer en parametre c'est pas l'offset, mais le nom de la colonne !!!!

Cliquez pour agrandir...

Field ne reçoit pas de nom mais un chiffre comme expliqué dans l'aide.

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 14 Mai 2015

• #11

Re : extraction vers autre onglet

bon, OK

alors, dans un tableau, y a t il une un moyen simple pour deduire l'offset de la colonne à partir de son nom ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2015

• #12

Re : extraction vers autre onglet

Re

Je n'appelle pas cela un moyen simple ...

Code:

.ListObjects("Tableau1").Range.AutoFilter Field:=Range("Tableau1[[#All],[titre 2]]").Column, Criteria1:="1"

Et cela renvoit bien un nombre (numéro de colonne) et pas un nom...🙄

NB: En tout cas, c'est plus long que Field:=2

 

Dernière édition: 14 Mai 2015

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 15 Mai 2015

• #13

Re : extraction vers autre onglet

ok merci bcp !

en fait, c'est parce que mon tableau fait 40 colonnes, et que je m'y retrouve plus facilement avec le nom des colonnes qu'avec leur N°; c'est plus lisible pour mes traitements...

si je puis abuser à c't'heure, je ne comprends pas pourquoi dans le code ci-dessous, il refuse le "cible" que je passe en paramètre (ça plante)

Code:

Sub extraction2()
Source = ActiveSheet.Name
Sheets.Add
cible = ActiveSheet.Name
Sheets(Source).Select

With ActiveSheet
.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="1"
.AutoFilter.Range.Columns(3).Copy Sheets(cible).[A1]
.AutoFilter.Range.Columns(5).Copy Sheets(cible).[B1]
.AutoFilter.Range.Columns(6).Copy Sheets(cible).[C1]
End With
End Sub

pourtant je passe bien un nom de feuille ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mai 2015

• #14

Re : extraction vers autre onglet

Re

Allez une dernière avant d'aller dormir
Cela devrait mieux fonctionner ainsi
(AU PREALABLE, supprimer la feuille "cible" existante)

Code:

Sub extraction2()
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "cible"
Sheets("Source").Select
With ActiveSheet
.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="1"
.AutoFilter.Range.Columns(3).Copy Sheets("cible").[A1]
.AutoFilter.Range.Columns(5).Copy Sheets("cible").[B1]
.AutoFilter.Range.Columns(6).Copy Sheets("cible").[C1]
End With
End Sub

 

Vote positif 0 Vote négatif

R

rafi93

XLDnaute Occasionnel

• 15 Mai 2015

• #15

Re : extraction vers autre onglet

allez merci, et dodo !

 

Vote positif 0 Vote négatif