copy de selection en vba

[Chris]

Bonjour a tous.


J'avance lentement mais surement en vba mais je rencontre 2 problemes sur mon code.

1) Lors de la selection vers la droite comment faire pour arreter la selection à la colone M est non pas a la premiere cellule vide?
2) J'ai une erreur 438 au moment de coller la selection que je ne comprend pas?


Voici le code.
'
Sheets("Encours").Select
Range("A6").Select
Selection.AutoFilter Field:=8, Criteria1:="<>"
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Histogen").Select
Range("A8").End(xlDown)(2).Select
ActiveSheet.Selection.Paste
Sheets("Encours").Select
Selection.AutoFilter
Application.CutCopyMode = False


End Sub


Merci à tous.

@+ Chris

 

[SWEAT]

Salut,

Voilà tes réponses :

Sheets("Encours").Select
Range("A6").Select
Selection.AutoFilter Field:=8, Criteria1:="<>"
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Histogen").Select
Range("A8").End(xlDown)(2).Select
ActiveCell.Select
ActiveSheet.Paste
ActiveCell.Offset(0, 12).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("Encours").Select
Selection.AutoFilter
Application.CutCopyMode = False



Bon courage

A+

 

[Chris]

Merci

Ca fonctionne bien pour coller ma selection par contre j'ai toujours le meme probleme avec la selection.

Execel s'arrete à la premiere colone vide alors que je voudrais etendre cette sellection jusqu'a la colone m.


@+

Chris

 

[Chris]

Je viens de trouver tout seul la solution à mon probleme.


Merci Sweat pour ton aide.

A bientot sur le forum (meme tres bientot je pense car je debute et je coince souvent)


@+


Chris