XL 2016 Erreur de code VBA

luke3300 · 22 Février 2019

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 · 22 Février 2019

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é · 22 Février 2019

Bonjour luke3300, bonjour herve62
Je pense que

Code:

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:

Code:

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 · 23 Février 2019

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

XL 2016 Erreur de code VBA

luke3300

XLDnaute Impliqué

Pièces jointes

herve62

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

luke3300

XLDnaute Impliqué

Discussions similaires