code à adapter

C

Chaps

Guest

• 27 Février 2008

• #2

Re : code à adapter

Bonjour,

Scusy je tente une relance

Merci

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 27 Février 2008

• #3

Re : code à adapter

bonjour

comprends pas bien !?
tu connais ta ligne puisque tu mets : Range("g18:g" & Fin).Select

Roland

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Février 2008

• #4

Re : code à adapter

Bonsoir Chaps, Rolland

si j'ai bien compris, regarde le code ci dessous :

Code:

Sub test()
Dim c As Range
For Each c In Range("G18:G" & Range("G65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
     If c.Row > 17 Then c.Copy Range("H1")
     Exit For
Next c
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 28 Février 2008

• #5

Re : code à adapter

Bonjour,

Ca m'a l'air ok, MERCI !!

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 28 Février 2008

• #6

Re : code à adapter

Re,
Demande complémentaire, pour chaque changement de critère de filtre en colonne H je souhaiterais que la macro test soit lancée automatiquement, après recherche, j'ai collé ceci dans ma feuille et testé cela mais ca fonctionne pas !


Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Change("$A$17:$K$65536").AutoFilter Field:=8 Then Call test(Target.Value)
End Sub

Merci pour l'aide.

@+
chaps

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Février 2008

• #7

Re : code à adapter

Bonjour Chaps, Roland

à ma connaissance il n'est pas possible d'intercepter dans une macro événementielle l'utilisation du filtre auto. Maintenant quelqu'un d'autre a peut être une solution... A voir....

bonne journée
@+

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 28 Février 2008

• #8

Re : code à adapter

Bonjour,

Oops pas good new. M'enfin histoire à suivre !!

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 28 Février 2008

• #9

Re : code à adapter

Bonjour

Voici un fichier trouvé chez nos collegues de chez Developpez.com Code ecrit par Tirex

j'ai testé et adapté pour moi, ca marche super

 

Pièces jointes

• FilterEvent.zip

  21.7 KB · Affichages: 28

Vote positif 0 Vote négatif

C

Chaps

Guest

• 28 Février 2008

• #10

Re : code à adapter

Bonjour wilfried_42,

Merci pour ton post, je le garde sous le coude, ca me semble pas évident meme si ca a l'air trés bien detaillé.

@+

Chaps

 

Vote positif 0 Vote négatif