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 ct 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 ide comment corriger cela?

Merci

Denys
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