besoin d'aide concernant erreur 6 dans macro

[man]

bonsoir à tous,

j'ai un souci avec la macro suivante : elle me renvoie "erreur 6, dépassement de capacité" lorsque A6 est la seule cellule remplie dans la colonne A (après la ligne 6).
le deboguage me surligne : Fin = Range("a6").End(xlDown).Row. je comprends pas ce qui ne vas pas....
si quelqu'un pouvait m'aider.....

Dim Fin As Integer
Range("a6").Select
Fin = Range("a6").End(xlDown).Row 'defini jusqu'ou copier
Range("H6").Select
ActiveCell.FormulaR1C1 = _
"=(SUM(RC[-4]:R6C[-4])-SUM(RC[-3]:R6C[-3]))+(SUM(RC[-2]:R6C[-2])-SUM(RC[-1]:R6C[-1]))"
Range("H6").Copy
Range("H6:H" & Fin).Select 'selection de la range de cellule où copier
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'copie la formule

 

[Fred]

Bonsoir,

Ce qui ne va pas c'est que à la ligne 3 le programme commence à compter juste après la plage définie "a6" et s'arrête lorsqu'il rencontre une cellule non vide, par conséquent il dépasse les limites du tableau excel et renvoie un message d'erreur 6, dépassement de capacité.

solution possible :

Fin = Range("a65536").End(xlup).Row


A+
Fred

 

[man]

Bonsoir Fred, le forum

merci pour ton aide et ton explication. ca fonctionne et j'ai compris que dans ce cas il faut partir de la derniere ligne et remonter.

Merci encore et bonne soirée ou nuit.

@+
Emmanuel