XL 2016 Erreur de code VBA

[luke3300]

Bonjour le forum,

J'ai un code qui me pose souci ... pourtant on dirais qu'il marche de temps en temps et c'est ça que je ne parviens pas à comprendre. Pourriez-vous me donner votre avis SVP?

Merci d'avance à tous et excellent vendredi.

 

[herve62]

Bonjour
Si tu veux une réponse concrète , au lieu de mettre l'image , ne peux tu pas mettre le fichier ou juste un bout concernant ce code
car là rien ne fait penser que cela ne marche pas ?

 

[Efgé]

Bonjour luke3300, bonjour herve62
Je pense que

Range("A8:H8").Select
Range(Selection, Selection.End(xlDown)).Select

renvoie un plage de cellule trop importante pour la coller en D14 (il doit manquer 6 lignes).
Comme le dit herve62, sans exemple impossible de nettoyer ce code qui en aurai bien besoin.

Cordialement

EDIT

Si le problème viens de là.... on peux utiliser ceci:

Dim drlRw&
drlRw = Cells(Rows.Count, 1).End(xlUp).Row
If drlRw < 8 Then drlRw = 8
Range("D14").Resize(drlRw - 7, 8).Value = Range("A8:H" & drlRw).Value

 

[luke3300]

Bonjour le forum, Efgé, Herve62,

Merci pour vos réponses, en effet, la zone à coller étant plus importante que la zone de réception, ça plantait

J'ai donc augmenté ma zone de destination et c'est OK maintenant, merci beaucoup et agréable WE