Overflow (Excel a mal dormi)

Le
Denys
Bonjour à tous,

Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout.' Run
Time error 6 Overflow à côté de Lastrow

Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i = Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value <> "Financial Adjustment" And Cells(i, 1).Value <> "Financial
Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub

Quelqu'un a une petite idée comment corriger cela?

Merci

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Mais qui est Paul
Le #5440031
Bonsour® Denys avec ferveur ;o))) vous nous disiez :

Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow

Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow


Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767
choisir Dim Lastrow as Long



--
--
@+
;o)))

Ellimac
Le #5440011
Bonjour,

Attention une variable Integer ne peut dépasser la valeur 32000 et quelques
Supprime la déclaration de variable tu n'aura pas le problème

Camille

"Denys"
Bonjour à tous,

Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow

Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i = Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub

Quelqu'un a une petite idée comment corriger cela?

Merci

Denys
Jacky
Le #5440001
Bonjour,

Un petit coup de F1 sur "Integer" et tu comprendras...
;o)

--
Salutations
JJ


"Denys"
Bonjour à tous,

Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow

Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow
For i = Lastrow To 2 Step -1
If Cells(i, 1).Value <> "Account Consolidation" And Cells(i,
1).Value Adjustment - RBCTP" Then Cells(i, 8).EntireRow.Delete
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub

Quelqu'un a une petite idée comment corriger cela?

Merci

Denys
isabelle
Le #5439991
bonjour Denys,

je crois qu'il faut remplacer As Double et .Range

With ActiveSheet
Dim Lastrow As Double, i As Integer
Lastrow = .Range("A65000").End(xlUp).Row

isabelle

Bonsour® Denys avec ferveur ;o))) vous nous disiez :

Une petite macro ce matin et voilà qu'Excel me donne un message que je
n'ai jamais vu et dont l'aide d'excel ne m'aide pas du tout....' Run
Time error 6 Overflow à côté de Lastrow

Sub ClairerRaison()
Application.ScreenUpdating = False
Sheet1.Select
With ActiveSheet
Dim Lastrow As Integer, i As Integer
Lastrow = Range("A65000").End(xlUp).Row ' Run Time error 6
Overflow


Mauvaise définition de LastRow as Integer = entre -32 768 et 32 767
choisir Dim Lastrow as Long






Denys
Le #5439951
Bonjour tout le monde,

Wow !!! Ça n'a pas été trop long !!

Merci infiniment à tous et bonne journée.... Tout fonctionne

Denys
Publicité
Poster une réponse
Anonyme