extraction vers autre onglet

[rafi93]

bonjour à tous

j'ai regardé sur le forum, mais pas réussi à trouver de solution adaptée (ou alors modifier le code et je ne suis pas un pro..)

dans une feuille, j'ai un onglet qui contient un tableau 40 col x 3000 lignes
je cherche à extraire certaines lignesxcolonnes selon la valeur d'une colonne

y aurait il une solution par formule (mais la taille de la source et du résultat sont variable) ou en VB ?

ci joint un exemple peut être plus clair

merci pour toute solution !

 

[Staple1600]

Re : extraction vers autre onglet

Bonsoir à tous

rafi93
Essaies ceci

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

 

[rafi93]

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]] ??

 

[Staple1600]

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

 

[rafi93]

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

 

[Staple1600]

Re : extraction vers autre onglet

Re

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

Dans cas, pourquoi écrire ?

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

😕😕

 

[rafi93]

Re : extraction vers autre onglet

ben j'ai modifié le code en

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

et ça plante

 

[Staple1600]

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).

 

[rafi93]

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

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

(qui plante)

plutot que

.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

 

[Staple1600]

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 !!!!

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

 

[rafi93]

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 ?

 

[Staple1600]

Re : extraction vers autre onglet

Re

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

.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

 

[rafi93]

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)

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 ?

 

[Staple1600]

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)

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

 

[rafi93]

Re : extraction vers autre onglet

allez merci, et dodo !