Macro pour filtre élaboré...

K

kjin

XLDnaute Barbatruc

• 28 Novembre 2009

• #2

Re : Macro pour filtre élaboré...

Bonsoir,

Code:

Sub Export()
Sheets("sélection").Cells.Clear
With Sheets("Banque")
    .Range("A1") = .Range("C5")
    .Range("C5:N" & .UsedRange.Rows.Count).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("A1:A2"), _
        CopyToRange:=Sheets("sélection").Range("D4"), Unique:=False
    .Range("A1") = ""
End With

End Sub

Fichier en PJ
A+
kjin

 

Pièces jointes

• christian.zip

  15.5 KB · Affichages: 94
• christian.zip

  15.5 KB · Affichages: 95
• christian.zip

  15.5 KB · Affichages: 83

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 28 Novembre 2009

• #3

Re : Macro pour filtre élaboré...

Bonjour

Voir ci-joint avec la zone de critère en haut à gauche de la feuille sélection.

 

Pièces jointes

• BanqueHorairesV02.zip

  38.2 KB · Affichages: 70
• BanqueHorairesV02.zip

  38.2 KB · Affichages: 68
• BanqueHorairesV02.zip

  38.2 KB · Affichages: 73

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Novembre 2009

• #4

Re : Macro pour filtre élaboré...

Bonsoir Christian0258,

Voici ton fichier dans lequel j'ai ajouté une macro 'MaJSelection' dans le module2.
Cette macro est appelée par l'événement 'SelectionChange' de la feuille 'Banque', uniquement si les cellules en colonne C sont cochées.

Espérant avoir répondu.

Cordialement.

Bonsoir kjin, chris,

Désolé pour la collision.

Bonne soirée.

 

Pièces jointes

• Christian0258.zip

  38.8 KB · Affichages: 95

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 28 Novembre 2009

• #5

Re : Macro pour filtre élaboré...

Re, le forum,
Bonsoir à tous,

Merci à vous, Papou-net, Chris et Kjin, c'est nickel.

Je regarde vos codes pour apprendre...

Bien à vous,

Encore merci.

à+
Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 4 Janvier 2010

• #6

Re : Macro pour filtre élaboré...

Bonjour à tout le forum,

Je souhaiterais modifier cette macro de "Papou-net", que je remercie à nouveau, pour déclarer une zone lors la copie Feuil2 (soit D6:N29) afin de ne pas écraser ce qui suit dans cette Feuil2.

Merci par avance,
Amitiés,
Christian

Sub MaJSelection()
Feuil2.Range("D6:N29").ClearContents
With Feuil1
For Each cel In .Range("C6:C245").Cells
If cel = "ü" Then
lg = Feuil2.Range("D65536").End(xlUp).Row + 1
Feuil2.Range("D" & lg & ":N" & lg).Value = .Range("D" & cel.Row & ":N" & cel.Row).Value
End If
Next
End With
End Sub

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 4 Janvier 2010

• #7

Re : Macro pour filtre élaboré...

Re, le forum, bonsoir à tous,

Alors personne pour m'aider..Lol

bien à vous,

Christian

 

Vote positif 0 Vote négatif