Discussion :

[quellec29]

Bonjour à tous,

Je vous sollicite aujourd'hui car j'ai un problème sur une macro et je n'arrive pas à trouver la solution.

il faut savoir que la macro a toujours marché et je ne sais pourquoi ce matin elle a décidé de ne plus fonctionner.
En effet en cliquant sur le bouton de la macro ce matin cette erreur a apparu : erreur d'exécution '-2147319767 (80028029)'

Et voici ou la macro se bloque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Allumer1Fois()
 
Dim Nombre As Integer
Nombre = 0
Dim fin As Integer
fin = ActiveSheet.Range("F10:F1000").End(xlDown).Row ' <-- blocage de la macro à ce niveau
'MsgBox (fin)
Range("H3:H" & fin).ClearContents

Je vous remercie par avance pour votre aide

[EricDgn]

Bonjour,

Commencer par déclarer Dim fin as Long car Integer s'arrête à 32.767 alors qu'une feuille peut contenir jusqu'à 1.048.576 lignes. Il est possible que l'erreur vienne seulement au moment où la plage est entièrement vide.

Cordialement.