Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Extraction dynamique de deux listes d'une Feuil1 à Feuil2

Extraction dynamique de deux listes d'une Feuil1 à Feuil2

2 réponses
Avatar
Apitos
Bonjour =E0 tous,

Je voulais adapt=E9 un exemple de JB, mais je n'arrive pas.

'Extraction dynamique de la liste des d=E9signations et cat=E9gories en
A2 et D2
'D=E8s qu 'une d=E9signation ou cat=E9gorie est saisi en colonne B ou C de
la premiere feuille,
'la liste en colonne A ou D de la deuxieme feuille est mise =E0 jour

Private Sub Worksheet_Change(ByVal Target As Range)
If sheets("feuil1").Target.Column =3D 2 And
sheets("feuil1").Target.Count =3D 1 Then
Application.EnableEvents =3D False
Sheets("feuil1).range(A2:F1000).AdvancedFilter
Action:=3DxlFilterCopy, CriteriaRange:=3D[B2], _
CopyToRange:=3D[A2], Unique:=3DTrue
[A2:A1000].Sort key1:=3D[A2]
Application.EnableEvents =3D True
end if
If sheets("feuil1").Target.Column =3D 3 And sheets("feuil1").Target.Count
=3D 1 Then
Application.EnableEvents =3D False
Sheets("feuil1).range(A2:F1000).AdvancedFilter
Action:=3DxlFilterCopy, CriteriaRange:=3D[C2], _
CopyToRange:=3D[D2], Unique:=3DTrue
[D2:D1000].Sort key1:=3D[D2]
Application.EnableEvents =3D True
End If
End Sub

Quelqu'un peut m'aider SVP ?

Merci d'avence.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonsoir,

Extraction dynamique:

http://cjoint.com/?jvwiXSKZJ5

Private Sub Worksheet_Change(ByVal Target As Range)
'--- désignation
If Target.Column = 2 And Target.Count = 1 Then
Application.EnableEvents = False
[B1:A1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True
Application.EnableEvents = True
End If
'--- catégorie
If Target.Column = 3 And Target.Count = 1 Then
Application.EnableEvents = False
[C1:C1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil2").Range("C1"), Unique:=True
Sheets("feuil2").Range("C2:C1000").Sort
key1:=Sheets("feuil2").Range("C2")
Application.EnableEvents = True
End If
End Sub

JB


Bonjour à tous,

Je voulais adapté un exemple de JB, mais je n'arrive pas.

'Extraction dynamique de la liste des désignations et catégories en
A2 et D2
'Dès qu 'une désignation ou catégorie est saisi en colonne B ou C de
la premiere feuille,
'la liste en colonne A ou D de la deuxieme feuille est mise à jour

Private Sub Worksheet_Change(ByVal Target As Range)
If sheets("feuil1").Target.Column = 2 And
sheets("feuil1").Target.Count = 1 Then
Application.EnableEvents = False
Sheets("feuil1).range(A2:F1000).AdvancedFilter
Action:=xlFilterCopy, CriteriaRange:=[B2], _
CopyToRange:=[A2], Unique:=True
[A2:A1000].Sort key1:=[A2]
Application.EnableEvents = True
end if
If sheets("feuil1").Target.Column = 3 And sheets("feuil1").Target.Count
= 1 Then
Application.EnableEvents = False
Sheets("feuil1).range(A2:F1000).AdvancedFilter
Action:=xlFilterCopy, CriteriaRange:=[C2], _
CopyToRange:=[D2], Unique:=True
[D2:D1000].Sort key1:=[D2]
Application.EnableEvents = True
End If
End Sub

Quelqu'un peut m'aider SVP ?

Merci d'avence.


Avatar
Apitos

Bonsoir,

Extraction dynamique:

http://cjoint.com/?jvwiXSKZJ5

Private Sub Worksheet_Change(ByVal Target As Range)
'--- désignation
If Target.Column = 2 And Target.Count = 1 Then
Application.EnableEvents = False
[B1:A1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True
Application.EnableEvents = True
End If
'--- catégorie
If Target.Column = 3 And Target.Count = 1 Then
Application.EnableEvents = False
[C1:C1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil2").Range("C1"), Unique:=True
Sheets("feuil2").Range("C2:C1000").Sort
key1:=Sheets("feuil2").Range("C2")
Application.EnableEvents = True
End If
End Sub

JB



C'est bon ...

BAE

Salutations.