Macro pour filtre élaboré...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais, à nouveau, votre aide afin d'écrire une macro pour envoyer, en fonction d'un critère, des données dans une autre feuille (même classeur).

Voir fichier...

Par avance merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[kjin]

Re : Macro pour filtre élaboré...

Bonsoir,

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

 

[chris]

Re : Macro pour filtre élaboré...

Bonjour

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

 

[Papou-net]

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.

 

[Christian0258]

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

 

[Christian0258]

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

 

[Christian0258]

Re : Macro pour filtre élaboré...

Re, le forum, bonsoir à tous,

Alors personne pour m'aider..Lol

bien à vous,

Christian