Modifier macro pour extraire par filtre élaboré...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro, de J.Boisgontier, cette macro permet d'extraire
les données d'une base en fonction d'un clic sur une ligne...


voir fichier joint.

Merci pour votre aide si précieuse.

Bien amicalement,
Christian

 

[MP59]

Re : Modifier macro pour extraire par filtre élaboré...

Bonjour, essaye de remplacer
titreCritere = Cells(1, ActiveCell.Column) par
titreCritere = Cells(10, ActiveCell.Column)

 

[tototiti2008]

Re : Modifier macro pour extraire par filtre élaboré...

Bonjour Christian,

un essai

Edit : Bonjour MP59

 

[job75]

Re : Modifier macro pour extraire par filtre élaboré...

Bonjour Christian, MP59, Marc,

Ceci fonctionnera même si l'on déplace le tableau source :

Sub extrait()
Dim P As Range, nomOnglet$, ZoneCritere As Range
Set P = Cells.Find("Nom", , xlValues).CurrentRegion
If Intersect(ActiveCell, P) Is Nothing Then Exit Sub
nomOnglet = CStr(ActiveCell)
Set ZoneCritere = P(1, P.Columns.Count + 1).Resize(2)
ZoneCritere(1) = Intersect(P.Rows(1), ActiveCell.EntireColumn)
ZoneCritere(2) = ActiveCell
Application.DisplayAlerts = False
On Error Resume Next
Sheets(nomOnglet).Delete
On Error GoTo 0
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
P.AdvancedFilter xlFilterCopy, ZoneCritere, Sheets(nomOnglet).[A1]
ZoneCritere = ""
End Sub

A+

 

[Christian0258]

Re : Modifier macro pour extraire par filtre élaboré...

Re, le forum, MP59, tototiti2008, job75,


Je vous remercie infiniment pour votre travail.

J'ai le choix, c'est impec.

Bien à vous,
Christian