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/fichier/060407012721.gif
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
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" a écrit dans le message de 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/fichier/060407012721.gif
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 2D8424C3-3ADA-4197-B9AE-AF3CE5F276D1@microsoft.com...
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/fichier/060407012721.gif
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" a écrit dans le message de 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/fichier/060407012721.gif
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" a écrit dans le message de 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/fichier/060407012721.gif
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 2D8424C3-3ADA-4197-B9AE-AF3CE5F276D1@microsoft.com...
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/fichier/060407012721.gif
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" a écrit dans le message de 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/fichier/060407012721.gif
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" a écrit dans le message de news: 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" a écrit dans le message de 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/fichier/060407012721.gif
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 6C5BECD4-6F25-4F7B-A6CB-79123E2BFC67@microsoft.com...
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 2D8424C3-3ADA-4197-B9AE-AF3CE5F276D1@microsoft.com...
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/fichier/060407012721.gif
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" a écrit dans le message de news: 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" a écrit dans le message de 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/fichier/060407012721.gif
Il ne s'agit pas d'utiliser des macros, il ne s'agit pas non plus de recopier à la main la feuille Base, ni d'utiliser la fonction filtrage sur la feuille Résultat.
Il s'agit de taper des données sur la feuille base et que celles-ci se recopient automatiquement sur la feuille Résultat si elles correspondent au critère. Ici (voir l'image http://oooforum.free.fr/cijoint/fichier/060407012721.gif )
Pourquoi pas de filtre ? Parce qu'après des opérations vont être réalisées sur ces résultats et qu'il y a par ailleurs plusieurs centaines de données même si ici je n'ai indiqué qu'une seule données : Patricia.
Pourquoi pas les macros : parce que je ne les maîtrises pas assez pour pouvoir ensuite les expliquer.
Il doit bien y avoir une solution? Merci pour votre aide.
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" a écrit dans le message de news: 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" a écrit dans le message de 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/fichier/060407012721.gif
Il ne s'agit pas d'utiliser des macros, il ne s'agit pas non plus de
recopier à la main la feuille Base, ni d'utiliser la fonction filtrage sur la
feuille Résultat.
Il s'agit de taper des données sur la feuille base et que celles-ci se
recopient automatiquement sur la feuille Résultat si elles correspondent au
critère. Ici (voir l'image
http://oooforum.free.fr/cijoint/fichier/060407012721.gif )
Pourquoi pas de filtre ? Parce qu'après des opérations vont être réalisées
sur ces résultats et qu'il y a par ailleurs plusieurs centaines de données
même si ici je n'ai indiqué qu'une seule données : Patricia.
Pourquoi pas les macros : parce que je ne les maîtrises pas assez pour
pouvoir ensuite les expliquer.
Il doit bien y avoir une solution? Merci pour votre aide.
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 6C5BECD4-6F25-4F7B-A6CB-79123E2BFC67@microsoft.com...
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" <Indigo@discussions.microsoft.com> a écrit dans le message de news: 2D8424C3-3ADA-4197-B9AE-AF3CE5F276D1@microsoft.com...
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/fichier/060407012721.gif
Il ne s'agit pas d'utiliser des macros, il ne s'agit pas non plus de recopier à la main la feuille Base, ni d'utiliser la fonction filtrage sur la feuille Résultat.
Il s'agit de taper des données sur la feuille base et que celles-ci se recopient automatiquement sur la feuille Résultat si elles correspondent au critère. Ici (voir l'image http://oooforum.free.fr/cijoint/fichier/060407012721.gif )
Pourquoi pas de filtre ? Parce qu'après des opérations vont être réalisées sur ces résultats et qu'il y a par ailleurs plusieurs centaines de données même si ici je n'ai indiqué qu'une seule données : Patricia.
Pourquoi pas les macros : parce que je ne les maîtrises pas assez pour pouvoir ensuite les expliquer.
Il doit bien y avoir une solution? Merci pour votre aide.
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" a écrit dans le message de news: 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" a écrit dans le message de 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/fichier/060407012721.gif
