Depassement de capacité a mi-page

[CelluleVide]

Bonjour le forum,

J'ai une code qui tourne depuis pas mal de temps et là il bloque avec pour motif "dépassement de capacité " alors que je colle des lignes au dela de la ligne32768 ( la moitié de 65536) Que je dépasse de 2; 10; ou 40 lignes

Voici le bout de code:
Range("A" & Numlig).Select 'Num lig = ici: 32739
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Dim NumLigFin As Integer
NumLigFin = Numlig + NbCmde - 2 (NbCmde = 41 donc NumLigFin = 32778)

C'est là que ça bloque... Quelqu'un a une idée?
A+

 

[ftho]

Re : Depassement de capacité a mi-page

Bonjour,

Probablement à cause du type de la variable NumLigFin, elle ne serait pas déclarée As Integer par hazard ?

Elle doit être de type Long

Dim NumLigFin As Long

 

[CelluleVide]

Re : Depassement de capacité a mi-page

Re- bonjour,

J'ai trouvé ma solution, je la transcris, ça pourra aider les benêts comme moi qui ne pensent pas a utiliser d'abord l'aide VBA...
En fait j'ai écrit "Dim Num... as integer"
or la variable doit etre comprise entre entre -32 768 et 32 767.
En remplacant integer par un type Long tout roule

A+

Bonjour et merci qd meme ftho (pas vu)