GNT sans publicité, site mobile, fonctionnalitées exclusives...

Recopie partielle d'une liste

Le
Indigo
Bonjour à tous.

J'ai une feuille Base sur laquelle j'ai une liste de valeurs en 2 colonnes.
Je voudrais les extraire automatiquement au fur et à mesure de la saisie sur
la feuille base pour que n'apparaisse sur une autre feuille Résultat que
certains éléments de la liste :

Exemple si le filtrage doit se faire sur Patricia (voir le surlignage vert
sur cette image) :
http://oooforum.free.fr/cijoint/fic...012721.gif

Feuille Base
Patricia 15
Sylvie 16
Patricia 12
Catherine 13
Joséphine 15
Patricia 16

Feuille Résultat
Patricia 15
Patricia 12
Patricia 16

Comment faire sans macro?

Merci à tous.
Lire les 13 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ardus Petus
Le #3772801
Données>Filtre>Filtre automatique ou Filtre élaboré

Cordialement,
--
AP

"Indigo" news:
Bonjour à tous.

J'ai une feuille Base sur laquelle j'ai une liste de valeurs en 2
colonnes.

Je voudrais les extraire automatiquement au fur et à mesure de la saisie
sur

la feuille base pour que n'apparaisse sur une autre feuille Résultat que
certains éléments de la liste :

Exemple si le filtrage doit se faire sur Patricia (voir le surlignage vert
sur cette image) :
http://oooforum.free.fr/cijoint/fic...012721.gif

Feuille Base
Patricia 15
Sylvie 16
Patricia 12
Catherine 13
Joséphine 15
Patricia 16

Feuille Résultat
Patricia 15
Patricia 12
Patricia 16

Comment faire sans macro?

Merci à tous.


Indigo
Le #3772751
J'y ai pensé mais je ne veux pas que soit recopiée toute la liste mais
seulement les éléments du filtrage.

Comment faire?
michdenis
Le #3772631
Bonjour Indigo,

Tu peux utiliser ce type de code dans la feuille module où l'action se déroule.
L'exemple a retenu la colonne 1 (A:A) comme source du filtre élaboré et
la Range("A1") de la feuil2 comme plage de destination... à toi d'adapter
selon ton application :

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:þuil2.Range("A1"), Unique:=True
End With
End If

End Sub
'---------------------------


Salutations!



"Indigo" Bonjour à tous.

J'ai une feuille Base sur laquelle j'ai une liste de valeurs en 2 colonnes.
Je voudrais les extraire automatiquement au fur et à mesure de la saisie sur
la feuille base pour que n'apparaisse sur une autre feuille Résultat que
certains éléments de la liste :

Exemple si le filtrage doit se faire sur Patricia (voir le surlignage vert
sur cette image) :
http://oooforum.free.fr/cijoint/fic...012721.gif

Feuille Base
Patricia 15
Sylvie 16
Patricia 12
Catherine 13
Joséphine 15
Patricia 16

Feuille Résultat
Patricia 15
Patricia 12
Patricia 16

Comment faire sans macro?

Merci à tous.
Indigo
Le #3772621
La question est SANS UTILISER DE MACRO.


Bonjour Indigo,

Tu peux utiliser ce type de code dans la feuille module où l'action se déroule.
L'exemple a retenu la colonne 1 (A:A) comme source du filtre élaboré et
la Range("A1") de la feuil2 comme plage de destination... à toi d'adapter
selon ton application :

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:þuil2.Range("A1"), Unique:=True
End With
End If

End Sub
'---------------------------


Salutations!



"Indigo" Bonjour à tous.

J'ai une feuille Base sur laquelle j'ai une liste de valeurs en 2 colonnes.
Je voudrais les extraire automatiquement au fur et à mesure de la saisie sur
la feuille base pour que n'apparaisse sur une autre feuille Résultat que
certains éléments de la liste :

Exemple si le filtrage doit se faire sur Patricia (voir le surlignage vert
sur cette image) :
http://oooforum.free.fr/cijoint/fic...012721.gif

Feuille Base
Patricia 15
Sylvie 16
Patricia 12
Catherine 13
Joséphine 15
Patricia 16

Feuille Résultat
Patricia 15
Patricia 12
Patricia 16

Comment faire sans macro?

Merci à tous.





michdenis
Le #3772581
Lorsque ton filtre élaboré (sans doublon) est réalisé,

tu sélectionnes ta colonne à copier du résultat de ton filtre,
Barre de menu / édition / atteindre / cellules / visible seulement
et par copier/coller vers ta plage de destination.


Salutations!



"Indigo" La question est SANS UTILISER DE MACRO.


Bonjour Indigo,

Tu peux utiliser ce type de code dans la feuille module où l'action se déroule.
L'exemple a retenu la colonne 1 (A:A) comme source du filtre élaboré et
la Range("A1") de la feuil2 comme plage de destination... à toi d'adapter
selon ton application :

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
With Rg.EntireColumn
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:þuil2.Range("A1"), Unique:=True
End With
End If

End Sub
'---------------------------


Salutations!



"Indigo" Bonjour à tous.

J'ai une feuille Base sur laquelle j'ai une liste de valeurs en 2 colonnes.
Je voudrais les extraire automatiquement au fur et à mesure de la saisie sur
la feuille base pour que n'apparaisse sur une autre feuille Résultat que
certains éléments de la liste :

Exemple si le filtrage doit se faire sur Patricia (voir le surlignage vert
sur cette image) :
http://oooforum.free.fr/cijoint/fic...012721.gif

Feuille Base
Patricia 15
Sylvie 16
Patricia 12
Catherine 13
Joséphine 15
Patricia 16

Feuille Résultat
Patricia 15
Patricia 12
Patricia 16

Comment faire sans macro?

Merci à tous.





Publicité
Suivre les réponses
Poster une réponse
Anonyme