code à adapter

[Chaps]

Bonjour,

Voici mon code, mais j'ai un pb, ma sélection à copier comporte parfois plus d'une ligne, serait il alors possible d'adapter mon code pour ne prendre en compte que la première ligne visible des lignes visibles de ma sélection (Range("g18:g" & Fin).Select) afin de ne coller qu'une donnée.

Sub test()

Sheets("blabla").Select
Dim Fin As Integer
Fin = [a65536].End(xlUp).Row
Range("g18:g" & Fin).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Range("H1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

Merci pour le retour d'info...

@+
chaps

 

[Chaps]

Re : code à adapter

Bonjour,

Scusy je tente une relance

Merci

 

[Roland_M]

Re : code à adapter

bonjour

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

Roland

 

[Pierrot93]

Re : code à adapter

Bonsoir Chaps, Rolland

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

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
@+

 

[Chaps]

Re : code à adapter

Bonjour,

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

 

[Chaps]

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

 

[Pierrot93]

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
@+

 

[Chaps]

Re : code à adapter

Bonjour,

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

 

[wilfried_42]

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

 

[Chaps]

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