Extraire

[candido57]

Bonjour,

Je veux extraire un article précis et ma macro extrait d'autres articles qui commencent de la même façon.
Je veux extraire tous les article L316 et il extrait d'autre voir ci-dessous.
Je mets ci-joint ma macro

Pouvez vous m'aider?

Merci

L3169
L3160
L3167
L3161
L3163
L3165
L3166
L3168
L3162
L3164
L316

Sub Filtrer()
Worksheets("Base").Protect userinterfaceonly:=True, Password:="cqs"
Application.ScreenUpdating = False
Sheets("Recherche").Cells.Clear
If Selection.Row < 2 Or ActiveCell = "" Then
Exit Sub
Else
Cells(2, ActiveCell.Column).Copy Destination:=Sheets("Recherche").Range("g1")
Selection.Copy Destination:=Sheets("Recherche").Range("g2")
End If
Sheets("Recherche").Activate
Sheets("Base").[a2].CurrentRegion.Offset(1, 0).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("g1:g2"), CopyToRange:=Range("a5"), Unique:=False
Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

 

[Modeste]

Re : Extraire

Bonjour candido57,


... Et on devrait pouvoir répondre à ta question, sans voir le fichier!? 😱

• A quoi correspond la sélection dans "Selection.Row < 2"
• Que sont censées faire les deux instructions

  Cells(2, ActiveCell.Column).Copy Destination:=Sheets("Recherche").Range("g1")
  Selection.Copy Destination:=Sheets("Recherche").Range("g2")

• Qu'est-ce qui figure dans la plage G1:G2 de "CriteriaRange:=Range("g1:g2")" ? Cette plage figure-t-elle dans la feuille active?
• Etc.

 

[candido57]

Re : Extraire

Voici mon tableau ci-joint

 

[Modeste]

Re : Extraire

Bonsoir candido57,

Dans ton fichier, j'ai "nettoyé" la ligne 1 de la feuille "Base": je présume que c'est pour qu'elle ne soit plus sélectionnée, au moment du filtre, que tu écrivais:
Sheets("Base").[a2].CurrentRegion.Offset(1, 0).AdvancedFilter
J'ai supprimé aussi les lignes sous la 32e, dans cette même feuille, pour alléger le fichier.

J'ai utilisé une autre syntaxe, pour définir le critère en feuille "Recherche" G2 et ai donc commenté 2 de tes instructions, pour les remplacer par 2 autres.

Testé en Excel 2000 et 2010 ... ça devrait donc fonctionner sous 2003 aussi ... Tu nous diras?

 

[candido57]

Re : Extraire

Bonjour,

Merci beaucoup ça fonctionne.
Je voudrais vous demander , si je veux que 2 ou 3 cellules dans la feuille "Recherche" ne soit pas effacées lors de extraction par exemple de L2 à O2.

Que dois je modifier dans ma macro.

Merci

 

[Modeste]

Re : Extraire

Bonjour candido57, le fil, le forum,

On comprendra aisément ce que tu ne veux pas effacer ... difficile par contre, de savoir ce que tu veux effacer, puisque la version précédente était:

Sheets("Recherche").Cells.Clear

Si c'est le résultat de l'extraction que tu veux supprimer, sans toucher au reste, essaie peut-être:

Sheets("Recherche").[A5].CurrentRegion.Clear

 

[candido57]

Re : Extraire

Merci beaucoup,,
ça fonctionne
Bonne journée